VB.Net NotifyIcon Yapımı

ads

ads

 

Visual basic  derslerimize devam ediyoruz. Bu derste   NotifyIcon kullanımını  öğreneceğiz. Ekranın sağ alt bölümünde saatin hemen yanında bulunan simgeye verilen isime NotifyIcon denir.

Bu yazılımı  Visual Basic 6.0 ile yapacağız.  İlk önce menü editörü bölümünden bir popup menü yapın. 



Popup > >> Ana Menü

Showide > > > Göster Gizle

' NotifyIconData yapısını tanımladık
Private Type NotifyIconData
Size As Long
Handle As Long
ID As Long
Flags As Long
CallBackMessage As Long
Icon As Long
Tip As String * 64
End Type

' lAZIM olan değişkenleri tanımladık.  Bu değerleri "shell32.h" bölümünden ulaşabilirsiniz
Private Const Ekle = &H0
Private Const Duzenle = &H1
Private Const Sil = &H2

Private Const WM_MOUSEMOVE = &H200

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLICK = &H203

Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLICK = &H206

Private Const MessageFlag = &H1
Private Const IconFlag = &H2
Private Const TipFlag = &H5

' Shell32.dll içinden API fonksiyonunu  tanımladık
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" _
 Alias "Shell_NotifyIconA" (ByVal Message As Long, Data As NotifyIconData) As Boolean

' Notify Icon nesnesini tanımladık
Private Data As NotifyIconData

' İkon nesnesini ekleyebilmek için kullanabileceğiniz yöntem
Private Sub SimgeyiEkle()
Data.Size = Len(Data)
Data.Handle = hWnd
Data.ID = vbNull
Data.Flags = IconFlag Or TipFlag Or MessageFlag
Data.CallBackMessage = WM_MOUSEMOVE
Data.Icon = Icon ' Formun ikonu ile devam ediyoruz
Data.Tip = "Arkeolog NET - NotifyIcon" & vbNullChar ' Bilgi yazısı
Call Shell_NotifyIcon(Ekle, Data)
End Sub

' Forum ikonunu kaldırmak isterseniz aşağıdaki yöntem ile kaldırma işlemi gerçekleşecektir.
Private Sub SimgeyiKaldir()
Call Shell_NotifyIcon(Sil, Data)
End Sub

' Başlangıç fonksiyonu
Private Sub Form_Load()
SimgeyiEkle
End Sub

' Bitiş fonksyonu
Private Sub Form_Terminate()
SimgeyiKaldir
End Sub

'Menü tıklandığında
Private Sub ShowHide_Click()
Visible = Not (Visible)
End Sub

Gösterdiğimiz örnek için mutlaka gerekli olan kodlarımız.

Popup >>> Ana Menü
ShowHide >>> Alt Menü
Popup ve ShowHide bulunması şarttır.

ads