Étape 2: Reste du code
Dim nid As NOTIFYICONDATA ' variable trayicon
'----------------------
'---command1 cliquez---
'----------------------
Private Sub Command1_Click()
minimize_to_tray
End Sub
'------------------------
'---créer icône---
'------------------------
Void minimize_to_tray()
Me.Hide
nid.cbSize = Len
nid.HWND = Me.hwnd
nid.uId = vbNull
nid.uFlags = NIF_ICON ou NIF_TIP ou NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Me.Icon ' l’icône sera votre icône de projet Form1
nid.szTip = « blablabla texte à afficher lorsque la souris sur plateau iicon » & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
End Sub
'---------------------------------------------------
'--Actions bac icône quand souris clique sur elle, etc.--
'---------------------------------------------------
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
Sélectionnez la Case msg
Cas WM_LBUTTONDOWN
Me.Show ' afficher le formulaire
Shell_NotifyIcon NIM_DELETE, nid ' icône de plateau de del
Cas WM_LBUTTONUP
Cas WM_LBUTTONDBLCLK
Cas WM_RBUTTONDOWN
Cas WM_RBUTTONUP
Me.Show
Shell_NotifyIcon NIM_DELETE, nid
Cas WM_RBUTTONDBLCLK
End Select
End Sub
'------------------------------
'---formulaire Actions sur déchargement---
'------------------------------
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid ' icône de plateau de del
End Sub
Au lieu de restauration quand vous cliquez sur l’icône, vous pouvez lui faire afficher un popup avec certaines actions : maximiser/fermer / / à propos / / etc !