Merhabalar bugun VB6'da Notify Icon işlevine gelen bir projemizi yapacağiz.

Kod:
Option Explicit Private Type NOTIFYICONDATA cbboyutu As Long hWnd As Long uld As Long iconumuz As Long gerimesaj As Long gorunenikon As Long frmtr 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
Kod:
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.frmtr = "FRMTR - Odeski21" & 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
Iyi kodlamalar...
__________________