投稿日 | : 2007/06/15(Fri) 17:07 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re: 処理件数の表示 |
> 時間の掛かるテキストデータの更新処理の間に 処理件数を表示させようと ラベルのCaptionに件数をセットしても表示されません 何か簡単に処理件数を表示する方法があればご教授下さい。
再描画処理の都合上、連続して Caption を書き換えるような場合には、
そのプロシージャを抜けるまで、画面には反映されません。
強制的に描画させるため、適宜、Refresh するなどの処置が必要になるでしょう。
Private Sub Command1_Click()
Dim F As Integer
For F = 1 To 10000
Label1.Caption = F
Next
End Sub
Private Sub Command2_Click()
Dim F As Integer
For F = 1 To 10000
Label1.Caption = F
Label1.Refresh
Next
End Sub