Force Capital Lock 1

[sisan]

Hi..
Got a problem here...

I need to force the CapsLock on my keyboard on. How can we do it in VB command ? I have try it with SendKeys "{CAPSLOCK}", but it didn't work. Any suggestion ?

Thank you

 

[LazyMe]

You can use the "keybd_event " API for that.
Greetings,
Rick

 

[zemp]

Use the KeyPress event to force all letters to be capitalized.

Private Sub Text1_KeyPress(KeyAscii As Integer)
'// Capitalize the entered small letters.
If KeyAscii >= 97 And KeyAscii <= 122 Then
KeyAscii = KeyAscii - 32
End If
End Sub
Thanks and Good Luck!

zemp

 

[johnwm]

If you just want to force all input to capitals you can also use Ucase() function
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[sisan]

Thank you guys,

but my form has a lot of textboxes, so I want as the form shown, the keyboard caps lock always on &quot;On&quot; position. For any reason, I use regular textboxes, not a MaskedEdit textbox which has an UpperCase property.

 

[SemperFiDownUnda]

set your forms KeyPreview property to true and handle it at the form level.

 

[LazyMe]

Yes, if it's only because of capitals in your textboxes SemperFiDownUnda's solution will be the best for you.....
Greetings,
Rick

 

[sisan]

Thank's SemperFiDownUnda, you've helped me!