formato en un textbox en vb6 o visual basic 6

[marcoskp]

tendria que darle el formato a un textbox de esta manera "0000-00000000" pero quiero que al momento de ingresar yo los datos me agrege - y me de ese formato, me explico? despues de perder foco


desde ya muchas gracias gente!

[Avellaneda]

Iniciado por marcoskp

tendria que darle el formato a un textbox de esta manera "0000-00000000" pero quiero que al momento de ingresar yo los datos me agrege - y me de ese formato, me explico? despues de perder foco


desde ya muchas gracias gente!

Existe un control de VB llamado MaskEdBox (Componente: Microsoft Masked Edit Control) colocas uno en el formulario con las propiedades

Mask = ####-########
Format = 0000-00000000

[marcoskp]

en realida necesitaria hacerlo por codigo por que no quiero hacer lo por las propiedades del objecto



gracias

[vdiaz18]

saludos, podrias hacerlo de la siguiente manera:

Private Sub Text1_LostFocus()
Dim A(13), B(13) As String
For i = 1 To 12
A(i) = Mid(Text1.Text, i, 1)
Next
B(5) = "-"
For i = 1 To 4
B(i) = A(i)
Next
For i = 6 To 13
B(i) = A(i)
Next
For i = 1 To 13
texto = texto + B(i)
Next
Text1 = texto
End Sub

Espero te sirva

[Avellaneda]

Iniciado por vdiaz18

saludos, podrias hacerlo de la siguiente manera:

Private Sub Text1_LostFocus()
Dim A(13), B(13) As String
For i = 1 To 12
A(i) = Mid(Text1.Text, i, 1)
Next
B(5) = "-"
For i = 1 To 4
B(i) = A(i)
Next
For i = 6 To 13
B(i) = A(i)
Next
For i = 1 To 13
texto = texto + B(i)
Next
Text1 = texto
End Sub

Espero te sirva

Hola, ése código falla, p.e. si escribimos 123456789 el resultado es 1234-6789

Creo que es mas sencillo así:

Private Sub Text1_LostFocus()
Text1.Text = Left(Text1, 4) & "-" & Mid(Text1, 5, Len(Text1))
End Sub