Visual Basic - insertar separador en textbox mientras escribo

Life is soft - evento anual de software empresarial
   
Vista:

insertar separador en textbox mientras escribo

Publicado por pedro sladed8@gmail.com (4 intervenciones) el 12/12/2015 00:12:11
Buenas tardes.
Estoy ingresando en el mundo de la programación y generando un pequeño proyecto, agradezco su ayuda de antemano .
tengo dudas de como realizar la siguiente programación en un textbox en visual basic 6.0
quisiera que al momento de escribir cierto numero de caracteres numérico o letras(ya predefinidos en variables). automáticamente se muestre el un textbox un separador (ejemplo: guion " - ").
ejemplo:
' la longitud de la cadena del textbox el 20 caracteres
001
002
003
004
005
006
01
'quiera que a medida que voy ingresando los datos se vaya insertando un guion "-" y continue hasta que yo lo decida..
_______________________________________
| 001-002-003-004-005-006-01 |
|______________________________________ |

ALGUIEN PODRÍA AYUDARME!!
GRACIAS DE NUEVO
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder

insertar separador en textbox mientras escribo

Publicado por Juan Gilberto (278 intervenciones) el 12/12/2015 23:24:03
Opciones:

1.- Desarrollar tu propio algoritmo en algun avento del textbox, por ejemplo en el keypress

2.- Utilizar el control MaskEdit
Puedes encontrar ejemplos en la siguiente liga:
http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-MaskEdBox.htm
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar
Imágen de perfil de JoaoM

insertar separador en textbox mientras escribo

Publicado por JoaoM (72 intervenciones) el 13/12/2015 20:00:44
o uso esto en varios TextBox

1
2
3
4
5
'Para Guion
    Select Case Len(txtmoc6)
    Case 4  'Para ti seria un 3 y no 4
        txtmoc6.Text = txtmoc6.Text & "-"
    End Select

Como tu quieres a cada 3 un - pues seriam 6 guiones

Coloca esto en el evento del textBox
1
2
3
4
5
6
7
8
9
10
Private Sub txtBOX_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) '''cambia txtBOX por el nombre de tu TextBox
 
'AQUI VA TU CODIGO
 
'Para Guion
    Select Case Len(txtmoc6)
    Case 3, 3, 3, 3, 3, 3
        txtmoc6.Text = txtmoc6.Text & "-"
    End Select
End Sub

A cada 3 caracteres te colocará un -

Recuerda que abajo del mensager existe flechas para que valores
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-2
Comentar
Imágen de perfil de JoaoM

insertar separador en textbox mientras escribo

Publicado por JoaoM (72 intervenciones) el 14/12/2015 23:45:37
Eses case en mis plantillas si se ejecutan bien, n ocre oque fuera una calificacion NEGATIVA COMO LA QUE HICISTE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-2
Comentar