Código KeyAscii
Tengo un control txtbox y quiero que digan como hacer para que al ingresar datos solo admita las letras ES o N. Yo codifique lo siguiente:
Private Sub txtprincipal_KeyPress(KeyAscii As Integer)
If (KeyAscii > 64 And KeyAscii < 91) Or KeyAscii = 241 Or (KeyAscii > 96 And KeyAscii < 123) Or KeyAscii = 209 Then
Else
KeyAscii = 0
End If
End Sub
y el formato para mayusculas:
txtprincipal.Text = Format(UCase(txtprincipal.Text), "String")
Desde ya muy agradecida.
Private Sub txtprincipal_KeyPress(KeyAscii As Integer)
If (KeyAscii > 64 And KeyAscii < 91) Or KeyAscii = 241 Or (KeyAscii > 96 And KeyAscii < 123) Or KeyAscii = 209 Then
Else
KeyAscii = 0
End If
End Sub
y el formato para mayusculas:
txtprincipal.Text = Format(UCase(txtprincipal.Text), "String")
Desde ya muy agradecida.
1 respuesta
Respuesta de Daniel Gomez
1
Este es más rápido (y para borrar está el BACKSPACE habilitado)
Private Sub txtprincipal_KeyPress(KeyAscii As Integer)
If (KeyAscii <> 110 And KeyAscii <> 115 And KeyAscii <> 8) Then
KeyAscii = 0
End If
End Sub
El de formato mayúsculas está bien
Private Sub txtprincipal_KeyPress(KeyAscii As Integer)
If (KeyAscii <> 110 And KeyAscii <> 115 And KeyAscii <> 8) Then
KeyAscii = 0
End If
End Sub
El de formato mayúsculas está bien
