Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
sm.Initialize(Form1.RootPane)
MainForm.Show
MainForm.Title = "Key Listener"
AddKeyPressedListener
End Sub
Sub AddKeyPressedListener
Dim r As Reflector
r.Target = MainForm.RootPane
r.AddEventHandler("keypressed", "javafx.scene.input.KeyEvent.KEY_PRESSED")
End Sub
Sub KeyPressed_Event (e As Event)
Dim jo As JavaObject = e
Dim keycode As String = jo.RunMethod("getCode", Null)
Log(keycode)
If keycode = "ESCAPE" Or keycode = "C" Then
Else If keycode = "Y" Then
Else If keycode = "N" Then
End If
End Sub