convertir a MAYUSCULAS

otreblig
30 de Noviembre del 2005
decirme porfavor que un texbox solo acepte letras MAYUSCULAS y numeros al momento de escribir en el texbox

Rosa
30 de Noviembre del 2005
Usa este código:

Private Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii = ValidaNumeros(KeyAscii)

End Sub

Private Function ValidaNumeros(KeyAscii As Integer)

ValidaNumeros = KeyAscii

Select Case KeyAscii
Case vbKey0 To vbKey9, vbKeyReturn, 8, vbKeyA To vbKeyZ
Case Else
ValidaNumeros = 0
End Select


End Function