### Change Case

An example of changing the field content to Uppercase whilst keeping the cursor position in the TextField.
`Sub Process_Globals
Private TextField1 As TextField
...
End Sub`
`Sub TextField1_TextChanged (Old As String, New As String)
If TextField1.Text.Length = 0 Then Return
' Keep the cursor position
Dim selstart As Int = TextField1.SelectionStart
Dim selend As Int = TextField1.SelectionEnd
' Change the field content to uppercase
TextField1.Text = New.ToUpperCase
' Set the cursor position
TextField1.SetSelection(selstart, selend)
End Sub`

Changed: , Category: TextField, File: T6C262M1934.htm, ID: 1934