Stap 1: Nodige besturingselementen toevoegen
1 formulier - Form1
1 knop - Opdracht1
Een Module toevoegen aan uw project, en advertentie die deze code op:
' Maak een Icon in System Tray behoeften
'------------------------------------------------------
'
' Tutorial: met behulp van het Dienblad van het systeem
' 09/26/98
'
' Gedistribueerd door: Dhrubajyoti Nath e-mail: dhruvonet
'------------------------------------------------------
Openbare 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
Public Const NIM_ADD = & H0
Public Const NIM_MODIFY = & H1
Public Const NIM_DELETE = & H2
Public Const WM_MOUSEMOVE = & H200
Public Const NIF_MESSAGE = & H1
Public Const NIF_ICON = & H2
Public Const NIF_TIP = & H4
Public Const WM_LBUTTONDBLCLK = & H203 ' Dubbelklik op
Public Const WM_LBUTTONDOWN = & H201 ' knop ingedrukt
Public Const WM_LBUTTONUP = & H202 ' omhoog knoop
Public Const WM_RBUTTONDBLCLK = & H206 ' Dubbelklik op
Public Const WM_RBUTTONDOWN = & H204 ' knop ingedrukt
Public Const WM_RBUTTONUP = & H205 ' omhoog knoop
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid als NOTIFYICONDATA) As Boolean