que tal como estan, aqui de nuevo con una consulta, lo que ando tratando de hacer es q en mis texbox se escriba en mayusculas no importando que este o no activado el bloq mayus del teclado........ de antemano gracias por la ayuda
saludos
| |||
formato mayusculas que tal como estan, aqui de nuevo con una consulta, lo que ando tratando de hacer es q en mis texbox se escriba en mayusculas no importando que este o no activado el bloq mayus del teclado........ de antemano gracias por la ayuda saludos |
| |||
Respuesta: formato mayusculas Saludos, una forma rapida de lograrlo seria:
Código:
Espero que te sea de utilidad Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii >= 97) And (KeyAscii <= 122) Then KeyAscii = KeyAscii - 32 End If End Sub |
| |||
Respuesta: formato mayusculas Hola, aquí tienes otra forma:
Código:
Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(StrConv(Chr(KeyAscii), vbUpperCase)) End Sub |
| |||
Respuesta: formato mayusculas Esa esta mejor jajaja, no me la sabia gracias. |
| |||
Respuesta: formato mayusculas Cita: Si me funciono perfectamente bien, solo una pregunta como puedo hacerle cuando son textbox indexados, ojala me pudieran orientar..... graciassaludos |
| |||
Respuesta: formato mayusculas Cita: Ok ya estuve investigando y la forma seria asi por si les sirve alguien
Código:
Saludos Private Sub text2_KeyPress(Index As Integer, KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub |