AppendSubmenuitem ist eine Methode die ich hier mal gepostet habe. So sieht die
bei mir jetzt aus:
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
Guck mal in Deinem alten Projekt unter Module. Da müsstet Du etwas wie
menuitemextensions haben.
Maximilian Tyrtania
http://www.contactking.de
Am 13.07.2011 um 17:02 schrieb Stefan Mettenbrink:
> Stefan Sicurella wrote:
>
>> pack es mal in CellClick und dann…
>>
>> If IsContextualClick( ) and row>-1 then
>
> Habe ich gemacht:
> dim base as new MenuItem
> dim hitItem as MenuItem
>
> If IsContextualClick( ) and row>-1 then
> if IsContextualClick=false then Return false
>
> Base.AppendSubMenuitem("Test")
>
> hitItem=Base.PopUp
>
> if hitItem is nil then Return true
> if hitItem.Text="Test" then
> //Stuff
> end
> end
>
> Ich bekomme noch immer den Fehler "Diese Methode oder Eigenschaft
> existiert nicht" in der Zeile:
> Base.AppendSubMenuitem("Test")
>
> Ich verstehe das nicht, zumal es im alten projekt funktioniert :-(
>
> MfG, Metti.
>
