プログレスバーの表示方法

解決済

質問者：KOHEI_JAPAN
質問日時：2005/03/15 14:37
回答数：2件

VB6.0 SP5 WINDOWS2000　で開発しています。
処理中のフォームをEnabled=Falseにして、
プログレスバーだけを別のフォームに表示させて、
処理中はプログレスバーのValueをどんどん増やす。
終わるとプログレスバーのフォームを閉じて、
処理してたフォームをEnabled=Trueにしるのですが、
プログレスバーを表示させてるフォームが、変なんです。
プログレスバーが増えている状態の時、
そのフォームが透けてるような、後ろのフォームとまざってるような、
そんな感じになるんです。
これをきれいに表示させたいのですが、何か良い方法はないものでしょうか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： shippo
回答日時：2005/03/15 15:18

プログレスバーを表示させたときに「DoEvents」を記述してみたらどうでしょうか？

例)Form1が基準ページでForm2がプログレスバーのページ

Dim n As Long
Form2.ProgressBar1.Max = 10000
Form2.Show 0
DoEvents
For n=1 to 10000
Form2.ProgressBar1.Value = n
Next n
Unload Form2

で大丈夫だと思いますよ。