Kontexmenu
24.10.2003 21:09:54
Reinhold
ich erzeuge in einem Treeview- Steuerelement ein Kontextmenu nach folgendem Muster.
Private Sub tvw_MouseUP( Button,... )
Dim KMenu as CommandBar
Set KMenu = CommandBars.Add( "KontextMnu", msoBarPopup)
with KMenu.Controls.add
.caption = "1. Punkte"
.OnAction = "sub1"
end with
Kmenu.ShowPopup
End Sub
Dabei wird das Kontextmenu richtig angezeigt, aber nach Auswahl eines Menupunktes springt die Sub, die ich in OnAction definiert habe, nicht an. Es tut sich nichts, außer dass das Kontexmenu richtigerweise wieder verschwindet.
Kann mir jemand sagen, was ich falsch mache?
Vielen Dank im Voraus
Reinhold
Anzeige