Sub Process_Globals
End Sub
Sub Globals
Private EditDay As EditText
Private EditMonth As EditText
Private EditYear As EditText
Private btnParse As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Private Sub btnParse_Click
Log(EditDay.Text & "." & EditMonth.Text & "." & EditYear.Text)
End Sub
Private Sub EditDay_TextChanged (Old As String, New As String)
If New.Length > 2 Then
EditDay.Text = Old
EditMonth.RequestFocus
End If
End Sub
Private Sub EditMonth_TextChanged (Old As String, New As String)
If New.Length > 2 Then
EditMonth.Text = Old
EditYear.RequestFocus
End If
End Sub
Private Sub EditYear_TextChanged (Old As String, New As String)
If New.Length > 4 Then
EditYear.Text = Old
EditYear.SelectionStart = 4
End If
End Sub