Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Dim robot As JavaObject
Private Button2 As B4XView
End Sub
Public Sub Initialize
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
robot.InitializeNewInstance("javafx.scene.robot.Robot", Null)
End Sub
Private Sub Button1_Click
Dim x = Button2.Left + 20dip, y = Button2.Top + 20dip As Double
Dim form As Form = B4XPages.GetNativeParent(Me)
robot.RunMethod("mouseMove", Array(form.WindowLeft + x, form.WindowTop + y + 30dip)) 'rough compensation for the title
Dim buttons As JavaObject
Dim btn As JavaObject
btn.InitializeStatic("javafx.scene.input.MouseButton")
buttons.InitializeArray("javafx.scene.input.MouseButton", Array(btn.GetField("PRIMARY")))
robot.RunMethod("mouseClick", Array(buttons))
End Sub
Private Sub Button2_Click
Log("test")
End Sub