formato mayusculas

[spiderman78]

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

[Judgement]

Saludos, una forma rapida de lograrlo seria:

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= 97) And (KeyAscii <= 122) Then
        KeyAscii = KeyAscii - 32
    End If
End Sub

Espero que te sea de utilidad

[Avellaneda]

Hola, aquí tienes otra forma:

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(StrConv(Chr(KeyAscii), vbUpperCase))
End Sub

[Judgement]

Iniciado por Avellaneda

Hola, aquí tienes otra forma:

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(StrConv(Chr(KeyAscii), vbUpperCase))
End Sub

Esa esta mejor jajaja, no me la sabia gracias.

[spiderman78]

Iniciado por Judgement

Saludos, una forma rapida de lograrlo seria:

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= 97) And (KeyAscii <= 122) Then
        KeyAscii = KeyAscii - 32
    End If
End Sub

Espero que te sea de utilidad

Si me funciono perfectamente bien, solo una pregunta como puedo hacerle cuando son textbox indexados, ojala me pudieran orientar..... gracias


saludos

[spiderman78]

Iniciado por spiderman78

Si me funciono perfectamente bien, solo una pregunta como puedo hacerle cuando son textbox indexados, ojala me pudieran orientar..... gracias


saludos

Ok ya estuve investigando y la forma seria asi por si les sirve alguien

Código:

Private Sub text2_KeyPress(Index As Integer, KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Saludos