Visual Basic - Codigo ACSII

Life is soft - evento anual de software empresarial
   
Vista:

Codigo ACSII

Publicado por Edvin (1 intervención) el 18/03/2018 09:17:37
Me gustaría saber como Hacer un método utilizando el Código ACSII Ejemplo:

1
2
3
4
5
6
Sub codigo_acsii()
     If (KeyAscii >= 97) And (KeyAscii <= 122) Or (KeyAscii >= 65) And (KeyAscii <= 90) Then
          MsgBox "NO SE PERMITEN LETRAS", vbCritical, "ERROR"
          KeyAscii = 0
     End If
End Sub

Pero no me funciona entonces, me gustaría sabe como puedo poner eso en un método y hacer el llamado adentro de un Text Ejemplo:

1
2
3
Private Sub Text1_KeyPress(KeyAscii As Integer)
      codigo_acsii
End Sub

Alguien que me pueda ayudar
Visual Basic 6.0
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Codigo ACSII

Publicado por Juan Gilberto (314 intervenciones) el 18/03/2018 23:14:25
1.- El codigo se llama ASCII (American Standard Code for Information Interchange)

2,. Trata con el siguiente codigo modificado, tenias mal los parentesis
IF (KeyAscii >= 97 And KeyAscii <= 122) OR (KeyAscii >= 65 And KeyAscii <= 90) THEN
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana

Codigo ACSII

Publicado por Antoni Masana (283 intervenciones) el 19/03/2018 08:59:53
Tienes que pasarle la variable KeyAscii a tu procedimiento porque si en algo se caracterizan los procesos es que no son adivinos.
Y lo pasas como Referencia ( ByRef ) porque si no es correcto lo modificas y debes devolverlo modificado.

1
2
3
4
5
6
7
8
9
10
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Call Codigo_Ascii(KeyAscii)
End Sub
 
Sub Codigo_Ascii(ByRef KeyAscii As Integer)
    If (KeyAscii >= 97) And (KeyAscii <= 122) Or (KeyAscii >= 65) And (KeyAscii <= 90) Then
        MsgBox "NO SE PERMITEN LETRAS", vbCritical, "ERROR"
        KeyAscii = 0
    End If
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Edvin

Codigo ACSII

Publicado por Edvin (1 intervención) el 19/03/2018 21:12:21
Muchas Muchas Muchas Gracias me funciono ala perfección Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad