Dit is hoe het programma er uit ziet:
Als de gebruiker rechtsklikt op het formulier, komt er een menu tevoorschijn
dat een NotifyIcon toont.
Dit is wat we doen:
We voegen een MainMenu, een ContextMenu en een
NotifyIcon toe. We laten de namen zoals ze zijn.
In het MainMenu bouwen we het volgende menu op:
mnuBestand (Bestand)
mnuInformatie (Informatie)
mnuBestandNieuw (Nieuw)
mnuBestandSluiten (Sluiten
ContextMenu bevat mnuContextClick (Klik hier)
De code:
Private Sub mnuBestandNieuw_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles mnuBestandNieuw.Click
Dim f As New Form1
f.Show()
End Sub
Private Sub mnuBestandSluiten_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles mnuBestandSluiten.Click
Me.Dispose()
End Sub
Private Sub mnuInformatie_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuInformatie.Click
MsgBox("Dit is een demo van een menu")
End Sub
Private Sub mnuContextClick_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuContextClick.Click
MsgBox("Je hebt geklikt")
NotifyIcon1.Icon = Me.Icon
NotifyIcon1.ContextMenu = ContextMenu1
End Sub
