Visual Basic - Contador con ceros delante

Life is soft - evento anual de software empresarial
   
Vista:

Contador con ceros delante

Publicado por Carlos (9 intervenciones) el 07/04/2016 15:45:25
Buen día

Quiero crear un contador que tenga la siguiente estructura

0000001

cuando pase a decenas se muestre

0000010

Siempre las posiciones del contador tienen que ser 7.

Es sencillo, pero no consigo hacerlo me ayudan please.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Contador con ceros delante

Publicado por Cris (33 intervenciones) el 07/04/2016 18:16:04
He conseguido hacerlo pero "trampeando" un poco, supongo que habrá otra manera más limpiar de hacerlo.

1
2
3
4
5
6
7
8
9
10
11
Label1.Caption = Val(Label1.Caption) + 1
 
If Label1.Caption <= 9 Then
Text1.Text = "000000" + Label1.Caption
Label1.Caption = Text1.Text
 
ElseIf Label1.Caption <= 99 Then
Text1.Text = "00000" + Label1.Caption
Label1.Caption = Text1.Text
 
End If

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Contador con ceros delante

Publicado por Andres Leonardo (702 intervenciones) el 07/04/2016 20:39:44
Podriasn intentarlo asi.

1
Text1.Text = format(Label1.Caption,"0000000" )

SAludos
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 Andres Leonardo

Contador con ceros delante

Publicado por Andres Leonardo (702 intervenciones) el 07/04/2016 21:14:47
Otra seria usar el String que no la conocia jejejeje



1
Text1.Text  =  String(7-len(Label1.Caption) , "0") & Label1.Caption
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