Propercase

[doogal]

Is there a workaround for shiftlock? I found this code from Erel and it works as expected except for the shiftlock, ex. I can't easily type three consecutive letters "ABC".

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)
        ignoreNextTextChangedEvent = True
        EditText1.Text = s
        EditText1.SelectionStart = EditText1.Text.Length
    End If
End Sub

:BangHead:

 

[Erel]

I don't think that changing the user text during typing will give you good results.

Better solution:

EditText1.InputType = Bit.Or(EditText1.InputType, 0x00004000) 'TYPE_TEXT_FLAG_CAP_SENTENCES

 

[doogal]

Thanks Erel,
That is a better solution. Keep up the Good work.