VB6 Text Entry 2

[DaveJohnson]

I have a form with several text boxes and controls, can I convert all keyboard inputs to uppercase as typed.

Thanks

Dave Johnson

 

[ChewDoggie]

Yes you can. Here's how:

Private Sub txtDesc_KeyPress(KeyAscii As Integer) ' convert keyed in data to uppercase
Dim KeyChar As String
KeyChar = Chr$(KeyAscii)
KeyChar = UCase(KeyChar)
KeyAscii = Asc(KeyChar)
End Sub

HTH

AMA

 

[HarleyQuinn]

Programatically turn on CAPSLOCK...

Harleyquinn

---------------------------------
For tsunami relief donations

 

[HarleyQuinn]

Thinking about it, please ingnore my last post as doing that has concequences for every application opened by the user. Them having to turn CAPSLOCK off everytime they wanted to switch apps would be incredibly frustrating.

Harleyquinn

---------------------------------
For tsunami relief donations

 

[JAG14]

Probably better on the TextBox_Change subroutine..

   Private Sub txtDesc_Change()
      Dim intStart As Integer 
      intStart = txtDesc.SelStart 'Remember Cursor Position
      txtDesc.Text = UCase(txtDesc.Text) 'Change All To Upper
      txtDesc.SelStart = intStart 'Reset Cursor Position
   End Sub

Generally a Tidier Method.

[tt]'Very funny, Scotty... Now Beam down my clothes.'[/tt]

 

[TomSwingruber]

This will be form wide by putting this in all forms
the upper/lower is controlled by one constant.

Set the form's KeyPreview property to true

------------------------------------------------
In a module
Global Const allow_lower_case As Boolean = False
or True to allow lower case

------------------------------------------------

Private Sub Form_KeyPress(KeyAscii As Integer)

If allow_lower_case = False Then
KeyAscii = Asc(UCase$(Chr$(KeyAscii))) 'change
'all to upper case
End If


End Sub

I use this all the time works great

luck Tom