Anónimo
Código ascii
Hola.. Como codifico para saber para preguntar si una palabra ingresada en un text es mayúscula o minúscula..
1 respuesta
Respuesta de ifrancoz
1
Los códigos ascii de las letras mayúsculas van desde 65 hasta 90 y las minúsculas desde 97 hasta 122 de manera que tendrías que preguntar por cada carácter.
Si lo que quieres es forzar a que te escriban un text en mayúsculas o minúsculas puedes hacerlo de esta forma:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 ' Solo Mayúsculas
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Si lo que quieres es que te escriban solo minúsculas puedes utilizar la función Lcase y no importa como lo escriban la función los pasa a minúsculas. Para mayúsculas se usa la función Ucase
Private Sub Text2_KeyPress(KeyAscii As Integer)
Char = Chr(KeyAscii)
KeyAscii = Asc(LCase(Char))
End Sub
Suerte !
Si lo que quieres es forzar a que te escriban un text en mayúsculas o minúsculas puedes hacerlo de esta forma:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 ' Solo Mayúsculas
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Si lo que quieres es que te escriban solo minúsculas puedes utilizar la función Lcase y no importa como lo escriban la función los pasa a minúsculas. Para mayúsculas se usa la función Ucase
Private Sub Text2_KeyPress(KeyAscii As Integer)
Char = Chr(KeyAscii)
KeyAscii = Asc(LCase(Char))
End Sub
Suerte !
No olvides cerrar la pregunta calificando la respuesta.
Cerrar la pregunta evaluando la respuesta.