> Wie komme ich dann an die Information, welcher Menüpunkt ausgewählt
> wurde?
So zum Beispiel könnte der Code da aussehen:
if IsContextualClick=false then Return false
dim base as new MenuItem
dim hitItem as MenuItem
Base.AppendSubMenuitem("öffnen...")
Base.AppendSubMenuitem("löschen...",nil,false,pic_trashCan16)
Base.AppendSubMenuitem("umbenennen...",nil,false)
Base.AppendSubMenuitem("Informationen anzeigen...",nil,false,pic_info16)
hitItem=Base.PopUp
if hitItem is nil then Return true
//deal with what the user selected
return true
....wobei noch:
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
...in einem Modul zu ergänzen wäre.
Maximilian Tyrtania Software-Entwicklung
Dessauer Str. 6-7
10969 Berlin
Tel.: ++49/30/48827-952
Mobil: 0152/292 707 36
email: [email protected]
