Muy sencillo pero no me sale...

Yashirobai · #1 (**permalink**) 22/02/2002, 10:32

Quiero realizar un bucle para que me escriba en un label o en un text box los números del 0 al 200. Pues bien, si hago:

For i = 0 To 200 Step 1
Label1.Caption = (i)
Next

Simplemente me aparece escrito el 5.

Por el contrario, si hago:

For i = 0 To 200 Step 1
MsgBox (i)
Next

Funciona perfectamente... me sale "1", "2", etc. en el mensaje. Entonces, que debo hacer para que me aparezcan escritos todos y cada uno de los números ntre 0 y 200 en un label?

Gracias de antemano. Un saludo.

yina · #2 (**permalink**) 22/02/2002, 12:19

prueba quitandole el parentesis al indice y si no funciona...transformalo a cadena antes de pasarselo al label

REVN · #3 (**permalink**) 22/02/2002, 15:02

Solamente agrega debajo de la linea
Label1.Caption = (i)
Label1.Refresh
y es seguro que te funcione.;)

Dans · #4 (**permalink**) 22/02/2002, 18:00

Mira a ver si entiendo, si lo que quieres es que en el label aparezca: 123456...200 hay que hacer esto.

Label1.Caption = ""
For i = 0 To 200 Step 1
Label1.Caption = Label1.Caption & i
Next

Y si lo que quieres es que aparezca en tu label sea: 1, despues cambie a 2 y despues a 3...

For i = 0 To 200 Step 1
Label1.Caption = i
Label1.Refresh
Next

Espero haber entendido tu idea.

Yashirobai · #5 (**permalink**) 25/02/2002, 16:41

OK, muchas gracias, eso era lo que buscaba.

Tukzone · #6 (**permalink**) 26/02/2002, 02:06

no es necesario aclarar 1, ya que el valor por defecto es 1.

For i = 0 To 200 Step 1
Next

<hr noshade size=1><font color="#CC0000" face=Arial size=1>500 rutinas ordenadas por categorías: JS, ASP, PHP, Actionscript y VB!<br><font color="#000000" face=Arial size=1>Descargá <a href="http://www.webtutorial.com.ar/">ScriptMaster v1.0</a>[/CODE]