HOE EEN APP AAN HET SYSTEEMDIENBLAD VAN HET TOT EEN MINIMUM BEPERKT IN VB? (2 / 2 stap)

Stap 2: Rest van de code

Dim nid als NOTIFYICONDATA ' trayicon variabele

'----------------------
'---Opdracht1 Klik---
'----------------------
Private Sub Command1_Click()
minimize_to_tray
End Sub

'------------------------
'---maken dienbladpictogram---
'------------------------
Sub minimize_to_tray()
Me.Hide
nid.cbSize = Len(nid)
Nid.hWnd = Me.hwnd
nid.uId = vbNull
nid.uFlags = NIF_ICON of NIF_TIP of NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Me.Icon ' het pictogram zal worden uw pictogram van Form1 project
nid.szTip = "blablabla tekst die u wilt weergeven wanneer muis over lade iicon" & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
End Sub

'---------------------------------------------------
'--Schenkblad pictogram acties wanneer muis tikken voort, enz--
'---------------------------------------------------
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim msg As Long
Dim sFilter As String
msg = x / Screen.TwipsPerPixelX
Select Case msg
Zaak WM_LBUTTONDOWN
Me.Show ' formulier tonen
Shell_NotifyIcon NIM_DELETE, nid ' del schenkblad pictogram
Zaak WM_LBUTTONUP
Zaak WM_LBUTTONDBLCLK
Zaak WM_RBUTTONDOWN
Zaak WM_RBUTTONUP
Me.Show
Shell_NotifyIcon NIM_DELETE, nid
Zaak WM_RBUTTONDBLCLK
Einde selecteren
End Sub

'------------------------------
'---formulier acties op unload---
'------------------------------
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid ' del schenkblad pictogram

End Sub

In plaats van herstel het wanneer u klikt op het pictogram in het systeemvak, kunt u het weergeven van een popup met sommige acties: maximaliseren/sluiten / / over / / etc!