Anasayfa > Kodlar > Visual Basic 6 ile Sys-tray’da sizin programınızında simgesi olsun

Visual Basic 6 ile Sys-tray’da sizin programınızında simgesi olsun


Yaptığınız programların sys-tray(Görev cubuğunda saatin bulunduğu yer) simge atmasını sağlayan yararlı bir kod

İ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 (tabi ki bunu programımızın özelliğine göre yapmalı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" (ByVal dwMessage As Long, pöys As NOTIFYICONDATA) 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(Button As Integer, Shift As Integer, X As Single, Y As Single)
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(Cancel As Integer)
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.Sorun yaşayanlara üstte
bahsettiğimi programı gönderebilirim mailimden bana ulaşabilirsiniz.


hakanprog@celiknet.com

Hakan ÖZKAYA


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: