Sub Globals
Dim txtSingle As EditText
Dim txtArray(5) As EditText
Dim arrExcludeTxts As String="1,3,":' exclude these textBoxes from getting focus upon 'next' pressed.
End Sub
Sub Activity_Create(FirstTime As Boolean)
txtSingle.Initialize("txtSingle")
txtSingle.SingleLine=True
txtSingle.ForceDoneButton=True
Activity.AddView(txtSingle,0,0,40%x,15%y)
For i=0 To 4
txtArray(i).Initialize("txtArray")
txtArray(i).Tag=i
txtArray(i).SingleLine=True
Activity.AddView(txtArray(i),0,(i+1)*15%y,40%x,15%y)
Next
txtArray(4).ForceDoneButton=True
End Sub
Sub txtArray_FocusChanged (HasFocus As Boolean)
Dim tempTxt As EditText=Sender
Dim tempTag As Int=tempTxt.Tag
If arrExcludeTxts.Contains(tempTag & ",") Then
If tempTag<txtArray.Length-1 Then
txtArray(tempTag+1).RequestFocus
Else
txtSingle.RequestFocus
End If
End If
End Sub