Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private TextField1 As TextField
Private TextField2 As TextField
Private TextField3 As TextField
Private TextField4 As TextField
Private TextField5 As TextField
Private fields As List
Private currentIndex As Int
End Sub
Private Sub Application_Start (Nav As NavigationController)
currentIndex = -1
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.LoadLayout("1")
fields = Array(TextField1, TextField2, TextField3, TextField4, TextField5)
NavControl.ShowPage(Page1)
End Sub
Sub TextField_BeginEdit
currentIndex = fields.IndexOf(Sender)
End Sub
Sub Button1_Click
Dim tf As TextField = fields.Get((currentIndex + 1) Mod fields.Size)
tf.RequestFocus
End Sub