VB6.0 : Setting textbox to Caps Lock

[wassup]

Hi all,

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

[Dököll]

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 :

 
UCase(Text1.Text)
 
 

What is this for anyway?

You may also need SelStart in there

 
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]

hi Dokoll,

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

[Killer42]

Try this...

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

[wassup]

Try this...

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.

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

[Killer42]

thanks killer. i got another source code too.

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]

@Killer42
Thanks it's working..

[commutronics]

Your idea works good..