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"



  • 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

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


QR-Code for this page
QR - Code -
  URL for this page

© Thx to {Less}Allrounder

We use cookies on our website. Some of them are essential for the operation of the site, while others help us to improve this site and the user experience (tracking cookies). You can decide for yourself whether you want to allow cookies or not. Please note that if you reject them, you may not be able to use all the functionalities of the site.