Problema con MaskEdit de VB

[estudiantina]

Veréis, tengo un problemilla con un control MaskEdit.

Está dentro de un formulario que recoge datos personales y lo utilizo para recoger un DNI. Le pongo la máscara de DNI pero me he dado cuenta que aunque tenga la máscara si, por ejemplo, sólo introduzco los dos primeros dígitos cuela, no da error.

He intentado solucionarlo comprobando en el evento Validate de dicho control el valor de lo que devuelve la función len (len(<ControlMaskEdit>.Text), ya que esta función me devuelve la longitud de la cadena. El problema es que como tengo especificada una máscara (de 10 caracteres) esa función siempre me devuelve 10, aunque no hayan rellenado todos los caracteres, así que no me vale.

No sé cómo puedo hacerlo.

Si alguien sabe algo por favor que conteste, es muy importante

Saludos

[Avelar]

Con el InStr puedes verificar si dentro del contenido está algún guión bajo, y de ser así entonces falta de introducir caracteres...

[estudiantina]

No, creo que eso no me sirve, porque yo no tengo ningún guión bajo. La propiedad mask tiene el siguiente valor: ########-?.

Lo que quiero es poder contar los caracteres que han introducido o comprobar si han rellenado todos los datos (esto es, si han introducido los 9 caracteres del dni).

Pero muchas gracias de todas formas

[Avelar]

La máscara que pusiste es en #, pero al momento en que tú corres el programa el contenido del Mask es _________, chécalo.

Entonces, para comprobar si faltan caracteres por introducir podrías hacer esto según lo que yo te decía:

Código:

    Dim byCont As Byte
    
    For byCont = 1 To Len(MaskEdBox1.Text) Step 1
        If InStr(byCont, MaskEdBox1.Text, "_") Then
            MsgBox "No se han introducido todos los caracteres"
            Exit Sub
        End If
    Next byCont

Pero ahora que se que los caracteres son puros números, con la función IsNumeric te basta.

[estudiantina]

Miles y miles de gracias Avelar, eres un genio. Ya he conseguido que funcione (claro, que con el código que me has pasado, lo hace cualquiera).

Ahora que veo el código entiendo por qué me decías lo de los guiones bajos, no me dí cuenta.

Es necesario un fragmento de código como el que me has pasado, la función IsNumeric no sirve, porque el último carácter debe ser una letra.

otra vez: GRACIASSSSSSSSSSSSSS

Saludos