• ベストアンサー
  • すぐに回答を!

プログレスバー

  • 質問No.2678643
  • 閲覧数93
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 15% (25/159)

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

質問者が選んだベストアンサー

  • 回答No.1
  • ベストアンサー

ベストアンサー率 52% (9/17)

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

お礼率 15% (25/159)

ありがとうございます。
動くようにはなったのですけど
透明のようなものが動いています。
picBarのBackcolor=&H00FF0000&です。
お願いします。
投稿日時:2007/01/20 06:25
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,600万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ