Du könntest Dir ein Modul Menuitemextensions machen, und da dann diese Methode
einbauen:
Sub AppendSubMenuitem(extends mi as menuitem,TextOfSubMenu as
String,TagOfSubMenu as variant=nil,ItemIsChecked as boolean=false,icon as
Picture=nil)
dim NewSubMenuItem as new MenuItem
NewSubMenuItem.Text=TextOfSubMenu
If TagOfSubMenu is nil=False then
NewSubMenuItem.Tag=TagOfSubMenu
end if
NewSubMenuItem.Checked=ItemIsChecked
NewSubMenuItem.Icon=icon
mi.Append NewSubMenuItem
End Sub
Das ist mehr so zur Bequemlichkeit...
Dann kannst Du in Deinem MouseDown event z.B. sagen:
dim base as new MenuItem
Base.AppendSubMenuitem("Informationen anzeigen...",nil,false,pic_info16)
Abfrage ist dann z.B.:
dim hitItem as MenuItem
hitItem=Base.PopUp
if hitItem is nil then Return true
if hitItem.Text.EndsWith("Informationen anzeigen...") then
//do the right thing
else
...
end if
return true
Maximilian Tyrtania Software-Entwicklung
Dessauer Str. 6-7
10969 Berlin
http://www.contactking.de
Am 22.02.2011 um 15:02 schrieb Stefan Mettenbrink:
> Thomas Tempelmann wrote:
>
>>> Einen normalen Contextmenüpunkt erzeuge ich so:
>>> base.append(New MenuItem("Andern in ..."))
>>
>> behalte eine referenz auf das neue item, und füge da dann wieder
>> welche mit append hinzu.
>>
>> zum späteren erkennen: füge jedem neuen menuitem auch ein Tag zu - das
>> kannst du dann später abfragen.
>
> Ich bin nicht sicher, ob ich das verstanden habe. Wenn ich damit nicht
> zurecht komme, melde ich micht wieder. Sollte das jemand schon mal
> umgesetzt haben, wäre ich froh über einen Codeausschnitt.
>
> Soweit erst mal Danke.
>
> MfG, Metti.
>
