'Sub CreateTextBox
Sub CreateTextBox(DataType As String,TagId As String, TxtHint As String) As EditText
Dim edt As EditText
edt.Initialize("EditText")
edt.SingleLine = True
edt.Tag = TagId
edt.Hint = TxtHint
edt.Color = Colors.RGB(240,240,240)
edt.TextColor = Colors.Black
If DataType = "0" Then
edt.InputType = edt.INPUT_TYPE_TEXT
Else If DataType = "1" Then
edt.InputType = edt.INPUT_TYPE_NUMBERS
Else If DataType = "2" Then
edt.InputType = edt.INPUT_TYPE_DECIMAL_NUMBERS
Else If DataType = "3" Then
edt.InputType = edt.INPUT_TYPE_PHONE
End If
Return edt
End Sub
3rd: TextChanged
B4X:
'TextChanged Event
Sub EdtName_TextChanged(Old As String,New As String)
EdtName.color = Colors.White
End Sub