Private Sub ActivateKeyReader
Dim r As Reflector
r.Target = MainForm.RootPane
r.AddEventHandler("KPressed", "javafx.scene.input.KeyEvent.KEY_PRESSED")
r.AddEventHandler("KReleased", "javafx.scene.input.KeyEvent.KEY_RELEASED")
End Sub
Private Sub KPressed_Event (e As Event)
Dim jo As JavaObject = e
Dim keycode As String = jo.RunMethod("getCode", Null)
If keycode = "RIGHT" Then
'Begin moving right
e.Consume
Else If keycode = "LEFT" Then
'Begin moving left
e.Consume
End If
End Sub
Private Sub KReleased_Event (e As Event)
Dim jo As JavaObject = e
Dim keycode As String = jo.RunMethod("getCode", Null)
If keycode = "RIGHT" Then
'Stop moving right
e.Consume
Else If keycode = "LEFT" Then
'Stop moving left
e.Consume
End If
End Sub