Mein Beispiel: Auswahlmenu für ein Filter, wird durch "Tag-Filter" geöffnet, dann können die verschiedenen Optionen ausgewählt werden, Schliessen des Auswahlmenus und weitere Verarbeitung erfolgt durch "Anwenden"
Tricks:
- Submenus offenhalten: Jedem Submenupunkt (bei dessen Anklicken das Menu offen bleiben soll) ein MouseDown- und MouseLeave-Event zuweisen
Private Sub tsmenitem_MouseDown(sender As Object, e As EventArgs)
tsmenitemTagFilter.DropDown.AutoClose = False
End Sub
Private Sub tsmenitem_MouseLeave(sender As Object, e As EventArgs)
tsmenitemTagFilter.DropDown.AutoClose = True
EndSub
AddHandler HmenItem.MouseDown, AddressOf tsmenitem_MouseDown
AddHandler HmenItem.MouseLeave, AddressOf tsmenitem_MouseLeave
- Submenu-Items checkbar machen: CheckOnClick setzen
HmenItem.CheckOnClick = True
- Auswertung der Menupunkte und Schliessen der SubMenus: Anwenden-MenuItem ein Click-Event zuweisen
Private Sub tsmenitemUseTagFilter_Click(sender As Object, e As EventArgs) Handles tsmenitemUseTagFilter.Click
.....
End Sub