¿como puedo activar el bloq mayus desde mi programa?

yoymynoe
12 de Julio del 2004
hola a todos espero que me podais echar una mano.el caso es que cuando comience mi programa necesitaria activar el bloq mayus para que se escriba en mayusculas.yo he pensado que se podria hacer con una api pero no se exactamente como asique espero vuestra ayuda.muchas gracias

Bartolom
12 de Julio del 2004
Lo que podrías hacer es utilizar la función UCase cada vez que escribas, por ejemplo en un textBox. Esta instrucción la colocas en el evento KeyPress del TextBox, y sería así:


Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim car As String * 1
car = UCase(Chr(KeyAscii))
KeyAscii = Asc(car)
End Sub

Saludos!
Bartolom
Chile