VB6.0 : Setting textbox to Caps Lock

**Dököll** · May 14 '07, 04:02 AM

Originally posted by wassup

Hi all,

I need a help again. How to set the textbox auto change to Upper Case without on the Caps Lock Key.

Hiya, wassup!

I think it's somewhere in the line of :

Code:

UCase(Text1.Text)

What is this for anyway?

You may also need SelStart in there

Code:

Text1.Text = UCase$(Text1.SelStart)

Check it, I am typing this up from memory, but SelStart makes it that whatever is typed in according to the case specified.

Dököll

**wassup** · May 14 '07, 04:09 AM

hi Dokoll,

i have try but its not working. its that key in at Form_load()?

**Killer42** · May 14 '07, 04:22 AM

Try this...

Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 97 To 122
      KeyAscii = KeyAscii - 32
  End Select
End Sub

**wassup** · May 14 '07, 04:31 AM

Originally posted by Killer42

Try this...

Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 97 To 122
      KeyAscii = KeyAscii - 32
  End Select
End Sub

thanks killer. i got another source code too.

Code:

Private Sub txtPro_KeyPress(KeyAscii As Integer)
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

**Killer42** · May 14 '07, 04:58 AM

Originally posted by wassup

thanks killer. i got another source code too.

Code:

Private Sub txtPro_KeyPress(KeyAscii As Integer)
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Good idea. My version will be very language-specific. The Ucase function might be a bit smarter.

**drepunkz** · Mar 2 '13, 02:17 AM

Great

Originally posted by Killer42

Try this...

Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 97 To 122
      KeyAscii = KeyAscii - 32
  End Select
End Sub

Thanks it's working..

**commutronics** · Feb 19 '14, 03:46 AM

textbox in vb6.0 auto caps letter

Your idea works good..

Comment