Sub Activity_Create(FirstTime As Boolean)
Dim et1, et2 As EditText
et1.Initialize("")
et2.Initialize("")
Activity.AddView(et1, 0, 0, 100dip, 50dip)
Activity.AddView(et2, 0, 100dip, 100dip, 50dip)
SetUpOnFocusListener2(et1, "et1")
SetUpOnFocusListener2(et2, "et2")
End Sub
Sub SetUpOnFocusListener2(v As View, EventName As String)
Dim JO As JavaObject = v
JO.RunMethod("setFocusable",Array As Object(True))
Dim event As Object = JO.CreateEventFromUI("android.view.View.OnFocusChangeListener",EventName,False)
JO.RunMethod("setOnFocusChangeListener",Array As Object(event))
End Sub
Sub et1_Event (MethodName As String, Args() As Object) As Object
Log(MethodName)
Return Null
End Sub
Sub et2_Event (MethodName As String, Args() As Object) As Object
Log(MethodName)
Return Null
End Sub