[Ayuda] Imprimir Números

[Canito07]

Hola amigos..
necesito ayuda..
estoy realizando un código y no entiendo porqué hace tal cola!!

miren:

teniendo este código:

Código:

Private Sub cmdImprimir_Click()
For i = 1 To 10
Print i
Next i
End Sub

Presionando el botón de Comando me aparecen así en el formulario:
1
2
3
4
5
6
7
8
9
10

Está bien..

pero yo quiero que si vuelvo a apretar aparezcan del 10 al 1
hice lo siguiente:

Código:

Private Sub cmdImprimir_Click()
For i = 1 To 10
Print i
Next i

For i = 10 To 1 Step -1
Print i
Next i
End Sub

Así me quedaría completo digamos...

No entiendo porqué al presionar el boton de comando me aparece:
1
2
3
4
5
6
7
8
9
10
10
9
8
7
6
5
4
3
2
1

me aparece con un solo click...
yo quiero que con un click me aparezcan del 1 al 10
y con otro del 10 hasta el 1..

Espero que me puedan ayudar...

Mientras sigo viendo que puedo hacer!!



GRACIAS TOTALES!

[Avellaneda]

Iniciado por Canito07

Hola amigos..
necesito ayuda..
....

yo quiero que con un click me aparezcan del 1 al 10
y con otro del 10 hasta el 1..

Espero que me puedan ayudar...

Mientras sigo viendo que puedo hacer!!

GRACIAS TOTALES!

Hola,

puedes hacerlo con una variable booleana estática que cambie de valor cada vez que se haga click:

Código:

Private Sub cmdImprimir_Click()
Static b As Boolean, i As Integer
b = Not b
If b Then
    For i = 1 To 10
        Print i
    Next i
Else
    For i = 10 To 1 Step -1
        Print i
    Next i
End If
End Sub