Como validar cualquier clase de cadena

Iniciado por ANTRAX, Julio 26, 2010, 04:11:28 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Julio 26, 2010, 04:11:28 PM Ultima modificación: Mayo 12, 2014, 03:25:22 PM por Expermicid
Código: vb
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