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"

 Auswahl-Menu

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