How to automatically capitalize the first letter of a sentence in EditText?

[bsnqt]

Dear All

I want my Edit Text automatically capitalize the first letter of the sentence when users make their texting.

I did make a search in the forum but got confused now. I see different INPUT_TYPE but did not get any to work right. Please advise.

Sub Edit_Message_TextChanged(Old As String, New As String)
   Dim edt As EditText
   edt = Sender
   
   If New.EndsWith(". ") OR New.EndsWith("." & Chr(10)) Then
      edt.InputType =  Bit.OR(131072, 4096) '4096--> All CAPITAL LETTERS
   Else
      edt.InputType = Bit.OR(edt.INPUT_TYPE_TEXT, 131072) ' 131072 --> Multiline
   End If
   
End Sub

Thank you for your advice.

Best

 

[stevel05]

Have a look Here.

You'd need

InpTyp.SetInputType(EditText8,Array As Int(InpTyp.TYPE_CLASS_TEXT,InpTyp.TYPE_TEXT_FLAG_CAP_WORDS))

 

[bsnqt]

Hi stevel05,

Thank you very much, it works perfectly! However, I should change a little bit the value, it is like this:

InpTyp.SetInputType(EditText8,Array As Int(InpTyp.TYPE_CLASS_TEXT,InpTyp.TYPE_TEXT_FLAG_CAP_SENTENCES))

Once again thank you!

 

[stevel05]

I'm glad you found what you wanted, I picked the wrong option in a hurry.

 

[salmander]

How would I use this in a InputDialog or msgbox?

 

[stevel05]

I don't think that'll be possible with the standard dialogs, have a look at [LIB] Better Dialogs from Informatix.

 

[Roger Garstang]

Dim d As InputDialog
d.InputType = Bit.OR(d.INPUT_TYPE_TEXT,49152)
d.Show("Test Text", "Test Sentence Case", "OK", "", "", Null)

This also sets the autocorrect Flag, so if your keyboard options are set to insert an automatic period when two spaces are pressed it will work.