プログレスバー

picBar.Width = (picProgress.Width / lCount) * i
labCount.Caption = CStr(i) & "/" & CStr(lCount)
wRs.MoveNext
i = i + 1
DoEvents
で実行したのですが
labCountの方は２/３などとちゃんと表示されるのですが
picBarの方は白いままです。
なぜでしょうか？
教えてください。

No.1 ベストアンサー 回答者： manabu4673 回答日時： 2007/01/19 15:58

可能性だけの話ですが、

右辺式の(picProgress.Width / lCount) * i
において、picProgress.WidthがlCountに対して十分に小さい場合、
(picProgress.Width / lCount)の結果が1より小さかったために、
整数化させた際に0になってしまったのだと思います。
i * picProgress.Width / lCount に代えてみてはいかがでしょうか？

この回答への補足

ありがとうございます。
動くようにはなったのですけど
透明のようなものが動いています。
picBarのBackcolor=&H00FF0000&です。
お願いします。

補足日時：2007/01/20 06:25