Foro de elhacker.net

Bueno pues mi duda es básicamente el título. ¿Cómo puedo hacer un contador que muestre los ceros a la izquierda? Dada antes una longitud claro...

Ejemplo:
00000
00001
00002
...
00150
00151
...

Se me ha ocurrido que una cadena de caracteres se puede hacer, pero necesitaría cuatrocientasmil líneas de código.

Espero que podais echarme una mano... Gracias

Hola,proba...

Private Sub Command1_Click()
Static i As Integer
i = i + 1
Me.Caption = Format(i, "0000")
End Sub

saludos.

Seba123neo, esa funcion solo te va a agregar 4 ceros.
Esta funcion te agrega la cantidad de ceros q quieras y en tiempo de ejecucion:

Function addzeros(maxzeros As Byte, number As String) As String
Dim i As Long
addzeros = number
For i = 1 To maxzeros - Len(number)
DoEvents
addzeros = "0" & addzeros
Next i
End Function

[offtopic] 1000 fucking posts!!! [/offtopic]

Private Sub Form_Load()
    Dim lNum As Long
    Dim lZeros As Long
    lNum = 20
    lZeros = 10
    Debug.Print Right$(String(lZeros, "0") & lNum, lZeros)
End Sub

lo acabo de hacer no se si te servira XD... es una lammerada jaja

Private Sub Command1_Click()
Dim uno As String
Dim dos As String
Dim final As String
Dim faltan As Byte
uno = 2
dos = 156
faltan = 5 - Len(uno)
final = ""
For i = 1 To faltan
    final = final & "0"
Next
final = final & uno
MsgBox final
 
final = ""
faltan = 5 - Len(dos)
For i = 1 To faltan
    final = final & "0"
Next
final = final & dos
MsgBox final
End Sub

espero te sirva..
Saludos

Creo que lo que el quiere seria esto o yo lo aria asi


Asi quedaria  00001 y el siguiente 00002 le pone los ceros a la izquierda

Saludos..

El ejemplo q posteo cobein le funciona...  ;)