Bu dersimizde herkesin çok işine yarayacak bir uygulamadan söz edelim.System Tray Yani görev çubuğunda saatin yanında programımızın saklanması.Bir çok kişinin işine yaracağını düşünüyorum teşekkür için KPSS yi kazanmamı dilemeniz yeterli ..
GEçelim kodlarımıza api tanımlamalarımızı ben yapıyorum size sadece form bölümünü anlatacam şimdi aşağıdaki kodları formun boş bir yerine Form_Load Kısmına Değil yapıştıralım.
Kod:
Option Explicit
Private Type NOTIFYICONDATA
cbboyutu As Long
hWnd As Long
uld As Long
iconumuz As Long
gerimesaj As Long
gorunenikon As Long
sanalkurs 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, pnid As NOTIFYICONDATA) As Boolean
Dim t As NOTIFYICONDATA
Dim a As Long
Evet bunları yapıştırdıktan sonra gelelim sizi ilgilendiren aşağı kısım yukardaki kodlardan hemen sonra bunları yazın PictureBox nesnesi eklemeyi unutmayın
Private Sub Form_Load()
t.cbboyutu = Len(t)
t.hWnd = Picture1.hWnd
t.uld = 1&
t.iconumuz = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
t.gerimesaj = WM_MOUSEMOVE
t.gorunenikon = Me.Icon
t.sanalkurs = "++++++++++++++ İnan YILMAZ" & Chr$(0)
Shell_NotifyIcon NIM_ADD, t
Me.Hide
App.TaskVisible = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Shell_NotifyIcon NIM_DELETE, t
End Sub
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static rec As Boolean, msg As Long
msg = X / Screen.TwipsPerPixelX
If rec = False Then
rec = True
Select Case msg
Case WM_LBUTTONDBLCLK:
MsgBox ("Farenin Sol tuşuna Tıklandı Siz Buraya sağ tuşuna tıkladığınızda ne olmasını istiyorsanız o kodu yapıştırın")
Case WM_RBUTTONDOWN:
MsgBox ("Farenin Sağ tuşuna Tıklandı Siz Buraya sağ tuşuna tıkladığınızda ne olmasını istiyorsanız o kodu yapıştırın")
End Select
rec = False
End If
End Sub
orda ++++++++++++++ olan kısmı kendinize göre değiştirin..
Farenin sol ve sağ tuşuna tıkladığında ben mesaj ile uyarı vermişim siz ne olmasını istiyorsanız onu yazın .Örneğin sol tuşuna basıldığında Me.Show yaparak formu gösterin sağ tuşuna menü koyabilirsiniz
Kolay Gelsin!..
GEçelim kodlarımıza api tanımlamalarımızı ben yapıyorum size sadece form bölümünü anlatacam şimdi aşağıdaki kodları formun boş bir yerine Form_Load Kısmına Değil yapıştıralım.
Kod:
Option Explicit
Private Type NOTIFYICONDATA
cbboyutu As Long
hWnd As Long
uld As Long
iconumuz As Long
gerimesaj As Long
gorunenikon As Long
sanalkurs 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, pnid As NOTIFYICONDATA) As Boolean
Dim t As NOTIFYICONDATA
Dim a As Long
Evet bunları yapıştırdıktan sonra gelelim sizi ilgilendiren aşağı kısım yukardaki kodlardan hemen sonra bunları yazın PictureBox nesnesi eklemeyi unutmayın
Private Sub Form_Load()
t.cbboyutu = Len(t)
t.hWnd = Picture1.hWnd
t.uld = 1&
t.iconumuz = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
t.gerimesaj = WM_MOUSEMOVE
t.gorunenikon = Me.Icon
t.sanalkurs = "++++++++++++++ İnan YILMAZ" & Chr$(0)
Shell_NotifyIcon NIM_ADD, t
Me.Hide
App.TaskVisible = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Shell_NotifyIcon NIM_DELETE, t
End Sub
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static rec As Boolean, msg As Long
msg = X / Screen.TwipsPerPixelX
If rec = False Then
rec = True
Select Case msg
Case WM_LBUTTONDBLCLK:
MsgBox ("Farenin Sol tuşuna Tıklandı Siz Buraya sağ tuşuna tıkladığınızda ne olmasını istiyorsanız o kodu yapıştırın")
Case WM_RBUTTONDOWN:
MsgBox ("Farenin Sağ tuşuna Tıklandı Siz Buraya sağ tuşuna tıkladığınızda ne olmasını istiyorsanız o kodu yapıştırın")
End Select
rec = False
End If
End Sub
orda ++++++++++++++ olan kısmı kendinize göre değiştirin..
Farenin sol ve sağ tuşuna tıkladığında ben mesaj ile uyarı vermişim siz ne olmasını istiyorsanız onu yazın .Örneğin sol tuşuna basıldığında Me.Show yaparak formu gösterin sağ tuşuna menü koyabilirsiniz
Kolay Gelsin!..
