HUR MAN MINIMERAT EN APP TILL SYSTEM BRICKA I VB? (1 / 2 steg)

Steg 1: Lägga till nödvändiga kontroller

Lägga till en modul i projektet, och ad här koden:

' Skapa en ikonen i System Bricka behov
'------------------------------------------------------
'
"Handledning: använda system bricka
' 09/26/98
'
"Distribueras av: Dhrubajyoti Nath e-post: dhruvonet
'------------------------------------------------------

Offentlig typ NOTIFYICONDATA
cbSize As Long
hWnd som lång
uId som lång
med uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
Slutet typ
Offentliga Const NIM_ADD = & H0
Offentliga Const NIM_MODIFY = & H1
Offentliga Const NIM_DELETE = & H2
Offentliga Const WM_MOUSEMOVE = & H200
Offentliga Const NIF_MESSAGE = & H1
Offentliga Const NIF_ICON = & H2
Offentliga Const NIF_TIP = & H4
Offentliga Const WM_LBUTTONDBLCLK = & H203 ' dubbelklicka på
Offentliga Const WM_LBUTTONDOWN = & H201 ' knappen ner
Offentliga Const WM_LBUTTONUP = & H202 ' knappen
Offentliga Const WM_RBUTTONDBLCLK = & H206 ' dubbelklicka på
Offentliga Const WM_RBUTTONDOWN = & H204 ' knappen ner
Offentliga Const WM_RBUTTONUP = & H205 ' knappen

Offentligt deklarera funktionen Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage som lång, pnid som NOTIFYICONDATA) som boolesk