VB.NET-Quellcode
- Public Class Form1
- Public MyNotifyIcon As New NotifyIcon
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- 'MyNotifyIcon Konfiguration
- MyNotifyIcon.Icon = My.Resources.Graphen
- MyNotifyIcon.Visible = True
- 'MenüStrip Initianlisierung
- Dim MyContextMenuStrip As New ContextMenuStrip()
- 'Übergeordnete Menüs
- Dim MyToolStripMenuItem01H As New ToolStripMenuItem("1HJ")
- Dim MyToolStripMenuItem02H As New ToolStripMenuItem("2HJ")
- 'Untegeordnete Menüs
- Dim MyToolStripMenuItem As ToolStripMenuItem
- For cw As Integer = 0 To 26
- MyToolStripMenuItem = New ToolStripMenuItem(cw.ToString)
- MyToolStripMenuItem01H.DropDownItems.Add(MyToolStripMenuItem)
- AddHandler MyToolStripMenuItem.Click, AddressOf MyToolStripMenuItemClick
- Next
- For cw As Integer = 27 To 53
- MyToolStripMenuItem = New ToolStripMenuItem(cw.ToString)
- MyToolStripMenuItem02H.DropDownItems.Add(MyToolStripMenuItem)
- AddHandler MyToolStripMenuItem.Click, AddressOf MyToolStripMenuItemClick
- Next
- 'Übergeordnete Menüs dem Strip hinzufügen
- MyContextMenuStrip.Items.Add(MyToolStripMenuItem01H)
- MyContextMenuStrip.Items.Add(MyToolStripMenuItem02H)
- 'Übergeordnete Menüs dem Strip hinzufügen dem NotifyIcon hinzufügen
- MyNotifyIcon.ContextMenuStrip = MyContextMenuStrip
- End Sub
- Private Sub MyToolStripMenuItemClick(sender As ToolStripMenuItem, e As EventArgs)
- MsgBox(sender.Text)
- End Sub
- End Class
Bitte mal eure Erfahrungen dazu schreiben. Danke
Ich muss dazu erwähnen das ich ein Icon (ico) dem ResourceManager mit dem Namen Graphen hinzugefügt habe. Das ist wichtig da sonst nix im Menü angezeigt wird. Graphen war ein Testicon.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Entrails“ ()