Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

Ayuda VB6

parka

Becerro
Desde
2 Ene 2008
Mensajes
38
Que tal necesito de su ayuda, lo que pasa es que estoy desarroyando una pequeña utilidad para leer direcciones MAC, pero necesito que en un TextBox salga la direccion en el siguiente formato:

Ejemplo:

En vez de:

001225368596

Salga asi

00:12:25:36:85:96

Necesito que cada 2 caracteres agregue : (dos puntos).

De antemano gracias.
 
Listo amigo seria asi:

Private Sub Command1_Click()
Text2.Text = Mid(Text1.Text, 1, 2) & ":" & Mid(Text1.Text, 3, 2) & ":" & Mid(Text1.Text, 5, 2) & ":" & Mid(Text1.Text, 7, 2) & ":" & Mid(Text1.Text, 9, 2) & ":" & Mid(Text1.Text, 11, 2)
End Sub


saludos
 
Listo amigo seria asi:

Private Sub Command1_Click()
Text2.Text = Mid(Text1.Text, 1, 2) & ":" & Mid(Text1.Text, 3, 2) & ":" & Mid(Text1.Text, 5, 2) & ":" & Mid(Text1.Text, 7, 2) & ":" & Mid(Text1.Text, 9, 2) & ":" & Mid(Text1.Text, 11, 2)
End Sub


saludos


Amigo muchisimas gracias me has salvado la vida!

En verdad gracias!
 
Awebo!!! Gracias al corral, B-K es la neta y mas los carnales que tiran paro.
 
Volver
Arriba