Dim NotifyIcon1 As New System.Windows.Forms.NotifyIcon
NotifyIcon1.Icon = Me.Icon
NotifyIcon1.Text = "Cliquez droit pour afficher le menu contextuel"
NotifyIcon1.Visible = True
'Défini un menu contextuel qui sera associer à notre icône
Dim ctxMenu As New System.Windows.Forms.ContextMenu
ctxMenu.MenuItems.Add("&Option1", AddressOf Option1_Click)
ctxMenu.MenuItems.Add("&Option2", AddressOf Option2_Click)
ctxMenu.MenuItems.Add("&Quitter", AddressOf Quitter_Click)
'Associe le menu contextuel à notre icône
NotifyIcon1.ContextMenu = ctxMenu
Private Sub Option1_Click(ByVal Sender As Object, ByVal e As System.EventArgs)
'// ...
End Sub
Private Sub Option2_Click(ByVal Sender As Object, ByVal e As System.EventArgs)
'// ...
End Sub
Private Sub Quitter_Click(ByVal Sender As Object, ByVal e As System.EventArgs)
'// ...
End Sub
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.