アプリ版:「スタンプのみでお礼する」機能のリリースについて

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

A 回答 (2件)

プログレスバーを表示させたときに「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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!