bir yardımcı olsanız en azından buna benzer bir fikri olan varsa lütfen

İlk önce sys-tray simge atılınca ve simgemizin üzerinde sağ butona basılın ekrana gelecek menüyü kafamızda tasarlamalıyız . Ben verdiğim kodlarda program çalışınca systray bir simge atılacak ve bu simgeyi sağ butonla tıkladığımızda önümüze bir menü gelecek ve bu menüde Simge durumunu kücült Nornal Boyut Kapat şeklinde üç adet komut bulunacak. Tabi ki siz bu komut sayısını isteğinize göre artırabilirsiniz. Şimdi Visual Basicte Tools menüsünden Menü Editor komutunu açalım. Gelen ekranda caption yazan yere Sysmenü yazalım Name yazan yere ise smenü yazalım ve Next butonuna basalım bu butona bastıktan sonra Next butonun yan tarafında bulunan ve sağ tarafı gösteren ok tuşuna bir kere basalım. Şimdi üstteki caption yazan yere Simge Durumuna Kücült küçült ve name yazan yere ise ssim yazalım. Tekrar next tuşuna basalım caption yazan yere bu defa Normal boyut name yazan yere ise snor yazalım. Ve sonkez next tuşuna bir kez bastıktan sonra caption bölümüne Kapat name bölümünede skap yazalım ve bulunduğumuz ekrandan Ok butonuna basark çıkalım. Böylece systarydaki menüde bulunacak komutları atamış olduk Şimdide alttaki kodları projenize ekleyin Private Type NOTIFYICONDATA cbSize As Long hWnd As Long uId As Long uFlags As Long uCallBackMessage As Long hIcon As Long szTip As String 64 End Type Private Const NIM_ADD = &H0 Private Const NIM_MODIFY = &H1 Private Const NIM_DELETE = &H2 Private Const WM_MOUSEMOVE = &H200 Private Const NIF_MESSAGE = &H1 Private Const NIF_ICON = &H2 Private Const NIF_TIP = &H4 Private Const WM_LBUTTONDBLCLK = &H203 Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Private Const WM_RBUTTONDBLCLK = &H206 Private Const WM_RBUTTONDOWN = &H204 Private Const WM_RBUTTONUP = &H205 Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" As Boolean Dim öys As NOTIFYICONDATA Private Sub Form_Load öys. hWnd = Form1. hWnd öys. uId = vbNull öys. uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE öys. uCallBackMessage = WM_MOUSEMOVE öys. hIcon = Form1. Icon öys. szTip = "Görev çubuğunda görünür" & vbNullChar Shell_NotifyIcon NIM_ADD, öys End Sub Private Sub Form_Terminate Shell_NotifyIcon NIM_DELETE, öys End Sub Private Sub Form_MouseMove Dim msg As Long msg = X / Screen. TwipsPerPixelX Select Case msg Case WM_LBUTTONDOWN Case WM_LBUTTONUP Case WM_LBUTTONDBLCLK ssim_Click Case WM_RBUTTONDOWN PopupMenu smenü, , , , ssim Case WM_RBUTTONUP Case WM_RBUTTONDBLCLK End Select End Sub Private Sub Form_Unload Shell_NotifyIcon NIM_DELETE, öys End Sub Private Sub sKap_Click Unload Me End Sub Private Sub snor_Click ssim. Enabled = True snor. Enabled = False Me. WindowState = 0 - Normal End Sub Private Sub ssim_Click ssim. Enabled = False snor. Enabled = True Me. WindowState = 1 - minimized End Sub Kodları ekledikten sonra Yine Tools menüsünde menu Editör komutunu çalıştırın ve gelen ekranda visible yazan seçeneği pasif hale getirerek ekranı ok düğmesine basarak kapatın. Artık sizinde Systray da progreamınıza ait bir simgeniz oldu.

merhaba arkadaşlar yaptığım program da control box ta sadece simge durumuna al ekranı kapla ve kapat butonu var. ek özellik olarak pc saatinin yanıyan gizli simgelere almak için kod lazım yardımcı olurmusunuz

Kodları ekledikten sonra Yine Tools menüsünde menu Editör komutunu çalıştırın ve gelen ekranda visible yazan seçeneği pasif hale getirerek ekranı ok düğmesine basarak kapatın. demişsiniz ama hangisinini visible ı pasif olacak. Kodda bu arada çalışmadı.

programi kapatmak degil zaten... kapatsan bile calisir diye birsey yok formun unload bölümüne cancel olayi var onunla kapanmasini engelleyip simge olmasini sagliyacaksin...

kodu incelersen anlarsin PopupMenu smenü, , , , ssim ayrica kod calisiyor denedim

gerçekten evet çalıştı fakat ben sürekli çalışmasını istiyorum yani benim programı kapatsam bile o ikon hep orda kalacak ve ordan çıkış dediğim zaman program kapacanak. en iyi örnek olarak misal kaspersky veya nero gibi. zaten normal de sürekli çalışmayacak olan program direk gidip te systray a ikon atmaz değil mi. eğer bunun bi çaresi yoksa önemli değil teşekkürler. benim kendi yapmak istediğim se bir saat ti pc deki saat gibi sürekli orada görünsün istemiştim.