German [Gelöst] B4J: Context Menü zur Laufzeit verändern

[{Text: "MyItem", EventName: "MyCallback"}]

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
End Sub

Sub Button1_Click
    xui.MsgboxAsync("Hello World!", "B4X")
End Sub

Sub MyCallback_Action
    Dim Item As MenuItem = Sender
    Log(Item.Text)
End Sub

Dim b As Button = Button1
Dim c As MenuItem = b.ContextMenu.MenuItems.Get(0)
c.Enabled = False