１ループごとにラベルに表示するには？

解決

かむ 2003-07-25 22:37:15 No: 107884

こんにちは１ループごとにラベルに表示させたいのですができません。再描画とかいう処理はありますか。なおＡＰＩのＤｒａｗＴｅｘｔではできたのですが、どうしてもラベルでやりたいのでお願いします。

Private sub commond_Click
For i = 1 To 300
Label1 = i
For j = 1 To 1000000: Next j
Next i
End sub

このようにしても全ての処理が終わるまでラベルには表示されませんでした。
理想は１，２，３・・・３００となるようにしたいです。

nanashi 2003-07-25 22:46:59 No: 107885

> For j = 1 To 1000000: Next j

の代わりにDoEventsを発行する。

GOD 2003-07-25 22:46:59 No: 107886

Refresh メソッドについて調べて下さい。

Private sub commond_Click
For i = 1 To 300
Label1 = i
Label1.Refresh '追加
For j = 1 To 1000000: Next j
Next i
End sub

Say 2003-07-26 01:35:07 No: 107887

空ループさせるとCPU時間を食いつぶしますので、
Sleep(API)を使うか、Timerイベントで
処理したほうがいいかもしれません。

かむ 2003-07-26 05:32:42 No: 107888

どうもみなさまありがとうございます。refreshで出来ました。