Validar Text.text

[principefreddy]

Hola... Saludos a todos, estoy programando en visual basic 6.0 y tengo un problema de validacion que no se programar: el problema es que tengo una caja de texto llamada cedula pero tengo que validar que el numeros de caracteres a introducir por el usuario sea minimo 6 maximo 10....... yo solucione el problema de el maximo con una propiedad llamada Maxlenght pero no se como hacer para lo del minimo....
en ese mismo campo cedula estoy validando que solo entren numeros y lo hago con un modulo y esta funcion y lo llamo desde en formulario tal ves alguien pueda modificarla para lo que necesito o me digan si hay forma de usar la propiedad para las dos cosas al mismo tiempo.......Gracias

Public Function validacion(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 And KeyAscii >= 13 Then
MsgBox " Solo Se Permite Ingresar Numeros", vbExclamation, "Sistema DIFRE"
KeyAscii = 0
End If
End Function

[Avellaneda]

Iniciado por principefreddy

Hola... Saludos a todos, estoy programando en visual basic 6.0 y tengo un problema de validacion que no se programar: el problema es que tengo una caja de texto llamada cedula pero tengo que validar que el numeros de caracteres a introducir por el usuario sea minimo 6 maximo 10....... yo solucione el problema de el maximo con una propiedad llamada Maxlenght pero no se como hacer para lo del minimo....
en ese mismo campo cedula estoy validando que solo entren numeros y lo hago con un modulo y esta funcion y lo llamo desde en formulario tal ves alguien pueda modificarla para lo que necesito o me digan si hay forma de usar la propiedad para las dos cosas al mismo tiempo.......Gracias

Public Function validacion(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 And KeyAscii >= 13 Then
MsgBox " Solo Se Permite Ingresar Numeros", vbExclamation, "Sistema DIFRE"
KeyAscii = 0
End If
End Function

Hola, en la misma función no lo puedes hacer, pues no sabes cuando va a dejar de introducir caracteres, debe ser en el evento Lost_Focus o Validate del TextBox. Yo me inclino más por el Validate.

Código:

Private Sub Text1_Validate(Cancel As Boolean)
If Len(Text1) < 6 Then
    MsgBox "Hay que introducir 6 caracteres como mínimo"
    Cancel = True
End If
End Sub