Muy sencillo pero no me sale...
 

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.

Re: Muy sencillo pero no me sale...
 

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

Re: Muy sencillo pero no me sale...
 

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

Re: Muy sencillo pero no me sale...
 

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.

Re: Muy sencillo pero no me sale...
 

OK, muchas gracias, eso era lo que buscaba.

Re: Muy sencillo pero no me sale...
 

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]