14/08/2007, 11:22
|
| | | Fecha de Ingreso: agosto-2007
Mensajes: 3
Antigüedad: 17 años, 3 meses Puntos: 0 | |
| ¿Como validar cualquier clase de cadena?
Que tal este es mi primera aportacion y espero no sea la ultima, esta funcion nos permite validar cualquier cadena con ciertos caracteres que nosotros le indiquemos.
Function ValidarCadena(Caractar As Integer, StrValida As String) As Integer
Dim Respuesta As Integer
Respuesta = Caractar
If Caractar > 26 Then
If InStr(StrValida, Chr(Caractar)) = 0 Then
Respuesta = 0
End If
End If
ValidarCadena = Respuesta
End Function
Private Sub txtvalidar_KeyPress(KeyAscii As Integer)
KeyAscii = ValidarCadena(KeyAscii, "01234567ABCDEF")
End Sub |