The Mighty Atom
Terugkerende gebruiker
- Lid geworden
- 22 mei 2008
- Berichten
- 1.380
Ik geloof niet dat de titel precies vertelt wat ik wil, ik ben compleet confused nu. :/
Een plaatje zegt meer dan 1000 woorden:
Je ziet hier een ContextMenuStrip.
Wat ik graag wil, is dat wanneer je bijvoorbeeld op kokiri1 klikt, dat ik dan de text van de ToolStripMenuItem terug wil krijgen in bijvoorbeeld een MsgBox.
Ik zou dus in dit geval de text "tetsu0_cot" moeten krijgen in een MsgBox, omdat de DropDownItem zich daarin bevind.
Of stel dat ik een DropDownItem in de ToolStripMenuItem valve aanklik, dat ik dan een MsgBox krijg met de text "valve" erin.
En klik ik een item aan onder sts_121, dan moet ik een MsgBox krijgen met "sts_121" als text.
Ik krijg het niet voor elkaar.
Ik kan namelijk niet:
doen want alle ToolStripMenuItems boven de ToolStripSeparator worden dynamisch aangemaakt.
Irritant lastig dit.
Waarom is er niet iets als:
Ofzo. 
Edit:
Ik ben na het posted van dit topic gewoon doorgegaan meet prutsen, en dat wil soms wel eens lukken. Ik ben eruit. Voor diegene die er later met een soortgelijk probleem komen te zitten, hier is de oplossing:
Een plaatje zegt meer dan 1000 woorden:

Je ziet hier een ContextMenuStrip.
Wat ik graag wil, is dat wanneer je bijvoorbeeld op kokiri1 klikt, dat ik dan de text van de ToolStripMenuItem terug wil krijgen in bijvoorbeeld een MsgBox.
Ik zou dus in dit geval de text "tetsu0_cot" moeten krijgen in een MsgBox, omdat de DropDownItem zich daarin bevind.
Of stel dat ik een DropDownItem in de ToolStripMenuItem valve aanklik, dat ik dan een MsgBox krijg met de text "valve" erin.
En klik ik een item aan onder sts_121, dan moet ik een MsgBox krijgen met "sts_121" als text.
Ik krijg het niet voor elkaar.
Ik kan namelijk niet:
Code:
MsgBox(ToolStripMenuItem.Text)
doen want alle ToolStripMenuItems boven de ToolStripSeparator worden dynamisch aangemaakt.
Irritant lastig dit.
Waarom is er niet iets als:
Code:
ToolStripMenuItem.HighlightedItem.Text

Edit:
Ik ben na het posted van dit topic gewoon doorgegaan meet prutsen, en dat wil soms wel eens lukken. Ik ben eruit. Voor diegene die er later met een soortgelijk probleem komen te zitten, hier is de oplossing:
Code:
Sub cmsSysTray_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim ModItem As ToolStripItem = TryCast(sender, ToolStripItem)
If ModItem IsNot Nothing Then
MsgBox(ModItem.OwnerItem.Text)
End If
End Sub
Laatst bewerkt: