Am 13.01.2013 um 12:08 schrieb Stefan Mettenbrink <[email protected]>:
> Claudius Sailer wrote:
>
>> z.B. im MouseDown Event einer ListBox geht ja nicht mehr!!!!
>
> Die Probleme hatte ich auch :-(
>
> In der Listbox (und vielen anderen Stellen) gibt es jetzt ein
> ConstructContextualMenu-Event. Dorthin kommt:
> base.AppendSubMenuitem "Menu1"
Freut mich zu lesen, dass die von mir mal gepostete Menuitemextension
"appendSubmenuItem" schon zum Quasi-Standard avanciert zu sein scheint. Man
sollte aber sicherheitshalber doch noch erwähnen, dass man sie erst einbauen
muss:
In einem Modul (etwa MenuitemExtensions):
Sub AppendSubMenuitem(extends mi as menuitem,TextOfSubMenu as
String,TagOfSubMenu as variant=nil,ItemIsChecked as boolean=false,
KeyboardShortCut as string="", enabled as boolean=true,MenuName as string="")
if mi.HasSubMenuItem(TextOfSubMenu) then Return
dim NewSubMenuItem as new MenuItem
NewSubMenuItem.Text=TextOfSubMenu
If TagOfSubMenu is nil=False then
NewSubMenuItem.Tag=TagOfSubMenu
end if
NewSubMenuItem.Checked=ItemIsChecked
If KeyboardShortCut<>"" then
NewSubMenuItem.KeyboardShortcut=KeyboardShortCut
end if
NewSubMenuItem.Enabled=enabled
NewSubMenuItem.Name=MenuName
mi.Append NewSubMenuItem
End Sub
Maximilian Tyrtania
http://www.contactking.de
