Sub Process_Globals
End Sub
Sub Globals
Dim EditText1 As EditText
Dim ignoreNextTextChangedEvent As Boolean
End Sub
Sub Activity_Create(FirstTime As Boolean)
EditText1.Initialize("EditText1")
activity.AddView(EditText1, 10dip, 10dip, 200dip, 50dip)
End Sub
Sub EditText1_TextChanged (Old As String, New As String)
If ignoreNextTextChangedEvent = True Then
ignoreNextTextChangedEvent = False
Return
End If
If new.Length > 0 Then
Dim s As String
s = New.SubString2(0, 1).ToUpperCase & New.SubString(1).ToLowerCase
ignoreNextTextChangedEvent = True
EditText1.Text = s
EditText1.SelectionStart = EditText1.Text.Length
End If
End Sub