Sub et_Filter (EventData As Event)
Dim jo As JavaObject = EventData
Dim code As String = jo.RunMethod("getCode", Null)
Dim EventType As String = jo.RunMethod("getEventType", Null)
' Log(code)
' Log(EventType)
If EventType = "KEY_PRESSED" Then
... some code
' Possibly this, depending on what you are doing
EventData.Consume
else if code = "ENTER" Then
... some code
' Possibly this, depending on what you are doing
EventData.Consume
else if code = "ESCAPE" Then
... some code
' Possibly this, depending on what you are doing
EventData.Consume
else if code = "BACK_SPACE" Then
If et.Text = "" And Expanded Then Shrink
End If
else if EventType = "KEY_RELEASED" Then
... some code
' Possibly this, depending on what you are doing
EventData.Consume
End If
End Sub