Ich möchte beim rechts-Klick auf TextBox1 das Kontextmenü ändern:
Dim subMenus(3) As MenuItem
Dim subMenuItem1 As New MenuItem("&Rot", New System.EventHandler(AddressOf Me.menuFarbeRot_Click))
Dim subMenuItem2 As New MenuItem("&Blau", New System.EventHandler(AddressOf Me.menuFarbeBlau_Click))
Dim subMenuItem3 As New MenuItem("&Grün", New System.EventHandler(AddressOf Me.menuFarbeGrün_Click))
Dim subMenuItem4 As New MenuItem("&Schwarz", New System.EventHandler(AddressOf Me.menuFarbeSchwarz_Click))
subMenus(0) = subMenuItem1
subMenus(1) = subMenuItem2
subMenus(2) = subMenuItem3
subMenus(3) = subMenuItem4
Dim menuItems() As MenuItem = New MenuItem() _
{New MenuItem("&Info"), _
New MenuItem("&Prüfen"), _
New MenuItem("&SchriftFarbe", subMenus), _
New MenuItem("&Löschen")}
Dim cMenu As New ContextMenu(menuItems)
Me.TextBox1.ContextMenu = New ContextMenu(cMenu) <--hier komme ich nicht weiter
Wo ist dort der Fehler?
Danke im Voraus
Dim subMenus(3) As MenuItem
Dim subMenuItem1 As New MenuItem("&Rot", New System.EventHandler(AddressOf Me.menuFarbeRot_Click))
Dim subMenuItem2 As New MenuItem("&Blau", New System.EventHandler(AddressOf Me.menuFarbeBlau_Click))
Dim subMenuItem3 As New MenuItem("&Grün", New System.EventHandler(AddressOf Me.menuFarbeGrün_Click))
Dim subMenuItem4 As New MenuItem("&Schwarz", New System.EventHandler(AddressOf Me.menuFarbeSchwarz_Click))
subMenus(0) = subMenuItem1
subMenus(1) = subMenuItem2
subMenus(2) = subMenuItem3
subMenus(3) = subMenuItem4
Dim menuItems() As MenuItem = New MenuItem() _
{New MenuItem("&Info"), _
New MenuItem("&Prüfen"), _
New MenuItem("&SchriftFarbe", subMenus), _
New MenuItem("&Löschen")}
Dim cMenu As New ContextMenu(menuItems)
Me.TextBox1.ContextMenu = New ContextMenu(cMenu) <--hier komme ich nicht weiter
Wo ist dort der Fehler?
Danke im Voraus