Dim theMenu As JavaObject = theRealMenu ' this bit was missing
Dim e As Object = theMenu.CreateEvent("javafx.event.EventHandler","menuTitleClick",False)
theMenu.RunMethod("setOnShowing",Array(e)
...
Sub menuTitleClick_Event(MethodName As String, Args() As Object)
Log(Args(0))
End Sub
...
This is interesting for something I am working on but...You can add an event to capture the 'OnShowing" event
B4X:Dim theMenu As JavaObject Dim e As Object = theMenu.CreateEvent("javafx.event.EventHandler","menuTitleClick",False) theMenu.RunMethod("setOnShowing",Array(e) ... Sub menuTitleClick_Event(MethodName As String, Args() As Object) Log(Args(0)) End Sub ...
' create menu bar
mb.Initialize( "MenuBar" )
MainForm.RootPane.AddNode( mb, 0, 0, -1, -1 )
' Add top level File menu to menu bar
Dim FileMenu As Menu
FileMenu.Initialize( "File", "" )
mb.Menus.Add( FileMenu )
' after you have defined FileMenu
Dim theMenu As JavaObject = FileMenu
Dim e As Object = theMenu.CreateEvent("javafx.event.EventHandler","menuTitleClick",False)
theMenu.RunMethod("setOnShowing",Array(e)
...
Sub menuTitleClick_Event(MethodName As String, Args() As Object)
Log(Args(0))
End Sub
...