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

Steg 2: Resten av koden

Dim nid som NOTIFYICONDATA ' trayicon variabel

'----------------------
"---command1 klicka---
'----------------------
Private Sub Command1_Click()
minimize_to_tray
End Sub

'------------------------
"---skapa bricka ikonen---
'------------------------
Sub minimize_to_tray()
Me.Hide
nid.cbSize = Len(nid)
Nid.hWnd = Me.hwnd
nid.uId = vbNull
nid.uFlags = NIF_ICON eller NIF_TIP eller NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Me.Icon ' ikonen kommer att vara din Form1 projektet ikon
nid.szTip = "blablabla text du vill ska visas när musen över facket iicon" & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
End Sub

'---------------------------------------------------
"--Bricka ikonen åtgärder när musen klicka på det, osv--
'---------------------------------------------------
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim msg så länge
Dim sFilter As String
MSG = x / Screen.TwipsPerPixelX
Välj ärende msg
Fallet WM_LBUTTONDOWN
Me.Show "Visa formulär
Shell_NotifyIcon NIM_DELETE, nid ' del bricka ikonen
Fallet WM_LBUTTONUP
Fallet WM_LBUTTONDBLCLK
Fallet WM_RBUTTONDOWN
Fallet WM_RBUTTONUP
Me.Show
Shell_NotifyIcon NIM_DELETE, nid
Fallet WM_RBUTTONDBLCLK
End Select
End Sub

'------------------------------
"---form åtgärder på lasta---
'------------------------------
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid ' del bricka ikonen

End Sub

I stället för att återställa det när du klickar på ikonen, kan du göra det Visa en popup med vissa åtgärder: maximera/Stäng / / om / / etc!