Hi friends,
When I write to EditText, I want to text is written upper. How can i write ?
I
When I write to EditText, I want to text is written upper. How can i write ?
I
edittext1.InputType = Bit.Or(edittext1.INPUT_TYPE_TEXT , 4096) 'set as all capital letters
Sub MyEdit_FocusChanged(Hasfocus As Boolean)
Dim Send As EditText
Send=Sender
If Hasfocus=False Then
Send.text=Send.text.ToUpperCase
End If
End Sub
Sub txtABC_FocusChanged(Hasfocus As Boolean)
If Hasfocus=False Then
txtABC.text=txtABC.text.ToUpperCase
End If
End Sub
What code did you write ?I wrote this code Activity_Create, It did not work
Sub Globals
Dim ckbUpperCase As CheckBox
Dim edtTest1, edtTest2 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
edtTest2.InputType = Bit.Or(edtTest2.INPUT_TYPE_TEXT , 4096)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ckbUpperCase_CheckedChange(Checked As Boolean)
If Checked = True Then
edtTest1.InputType = Bit.Or(edtTest1.INPUT_TYPE_TEXT , 4096)
Else
edtTest1.InputType = edtTest1.INPUT_TYPE_TEXT
End If
End Sub