SOU INICIANTE E PRECISO DE AJUDA.

USUARIO.EXCLUIDOS 07/03/2004 19:57:17
#14281
A quem possa me dar uma dica:
como faço para visualizar um loop em uma label? Eu fiz o seguinte:
No form coloquei um label e um botão de commando e no codigo do evento do botão inserir esse codigo:
for i = 1 to 10 step 1
lbl1.caption = i
i = i + 1
next i
na execução só vejo o resultado 9 dentro da label e gostaria de ver a execução do loop contado 1, 2... ate 10

obrigado
Celimar Ronnie
USUARIO.EXCLUIDOS 07/03/2004 20:14:27
#14282
Resposta escolhida
primeiro tire a linha i=i+1
dentro do loop vc precisa colocar algo para esperar um pouco para que voce possa mesmo ver o numero virando

dim i as integer
dim Tempo as double
for i=1 to 10
lbl1.caption = i
Tempo = Timer
do while Tempo+1Timer
doevents
loop
next i
Tópico encerrado , respostas não são mais permitidas