Visual Basic - MASCARA DE ENTRADA

Life is soft - evento anual de software empresarial

MASCARA DE ENTRADA

Publicado por ROSA (1 intervención) el 06/02/2001 18:59:19

Mi problemas es el siguiente, tengo que crear un textbox para escribir un Dni, y quisiera darle un aspecto de mascara de la forma __.___.___, , a ver si alguien puede ayudarme., gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:MASCARA DE ENTRADA

Publicado por Pedro Luis (878 intervenciones) el 06/02/2001 19:22:29

Hay un control de Microsoft que se llama Mask Edit, que realiza todo tipo de máscaras

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

RE:MASCARA DE ENTRADA

Publicado por rosa (2 intervenciones) el 07/02/2001 08:58:32

Pues me has dejado igual que estaba, podias ser un poco más explicito, como agrego ese control?
gracias

Valora esta respuesta

Comentar

RE:MASCARA DE ENTRADA

Publicado por Pedro Luis (878 intervenciones) el 07/02/2001 14:39:42

Si es VB4 en Herramientas ->Controles Personalizados
Si es VB& en Proyecto -> Componentes -> Controles

Valora esta respuesta

Comentar

RE:MASCARA DE ENTRADA

Publicado por Ariopolis (159 intervenciones) el 07/02/2001 10:57:10

Este código es para generar la máscara al introducir texto en la caja de texto, no se si será lo que buscas pero obtienes el dato con la máscara que buscas:
Debes poner la propiedad MaxLength a 10 y despues:

Private Sub Text1_KeyPress(KeyAscii As Integer)

  If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Then

    If KeyAscii <> vbKeyBack Then

      If Len(Text1.Text) = 2 Or Len(Text1.Text) = 6 Then

        Text1.Text = Text1.Text & "."

        If Len(Text1.Text) = 2 Then

          Text1.SelStart = 3

          Text1.SelLength = 0

        Else

          Text1.SelStart = 7

          Text1.SelLength = 0

        End If

      End If

    End If

  Else

    KeyAscii = 0

  End If

End Sub

Espero que te valga. Un saludo

Valora esta respuesta

Comentar

RE:MASCARA DE ENTRADA

Publicado por Victor Muñoz (1 intervención) el 22/09/2013 16:23:01

Hola, fabulosa, me funciona, solo quiero; si se puede, una explicación de cada linea ya que no se nada de VB6, estoy aprendiendo, ademas quiero formatos para fecha, y que cuando se presione enter me vote la edad, gracias de antemano.

Valora esta respuesta

-1

Comentar

RE:MASCARA DE ENTRADA

Publicado por Walter (18 intervenciones) el 07/02/2001 19:22:34

espero el siguiente codigo te solucione tu problema (no muestra la mascara de inicio pero se activa conforme vayas ingresando los datos)

* tienes que limitar el maximo de caracteres a ingresar (maxlength=10)

Private Sub Text1_KeyPress(KeyAscii As Integer)

If Len(Text1) = 2 Or Len(Text1) = 6 Then

    Text1 = Text1 & "/"

    Text1.SelStart = Len(Text1)

End If

End Sub

* si lo que quieres es que muestre la mascara desde antes de ingresar datos puedes usar el control maskedit

espero te sirva, saludos

Valora esta respuesta

Comentar

RE:MASCARA DE ENTRADA

Publicado por Ricardo (28 intervenciones) el 08/02/2001 23:13:18

yo si he usado el maskedbox pero a mi me manda un error cuando lo uno con el ado y el campo donde quiero q guarde informacion
el error es el siguiente "Unable to bind to field or datamember. 'NombredelCampo'
si saben como resolver esto avisenme por aqui o por email
preferiblemente por email

Valora esta respuesta

Comentar

Forma con extension .obj ??

VB y BD,s