プログレスバー

picBar.Width = (picProgress.Width / lCount) * i ...

manabu4673 さんからの 回答

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

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

ベストアンサー率 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
  • プログレスバーで Visual Basic

    VB6.0 SQL SERVER WinXPです。 UPDATEの処理の時に進行状況を表示したいのですが うまく動かずバーが真っ白のままです。 教えてください。 lCount = pbAdo.RsRecordCount(rc) With pvBase If rc.EOF = False Then picBar.Width = 0 labCount.Caption = "" labCount.Visible = True End If If rc.RecordCount Then rc.MoveFirst Do While Not rc.EOF sSQL = " UPDATE m_zaiko SET " sSQL = sSQL & " 実在庫数=" & .CvtSQL(dblZaikoSuu, CVT_DBL) sSQL = sSQL & " WHERE " sSQL = sSQL & " 品番=" & .CvtSQL(strHinban, CVT_STR) sSQL, lRet, adExecuteNoRecords + adCmdText picBar.Width = (picProgress.Width / lCount) * i labCount.Caption = CStr(i) & "/" & CStr(lCount) rc.MoveNext i = i + 1 DoEvents Loop Set rc = Nothing End With...

  • excel VBA プログレスバーについて(初心者) Visual Basic

    VBA初心者の質問です… excelで入力されている値を用いて、グラフ作成する簡単なデータを作りました。 特に問題なくグラフは出来たのですが、グラフ作成が1つではなく数個同時(順番)に作成しているため時間が掛かってしまいます。 この処理中にプログレスバーを表示出来ればと思い質問を致します。 私なりに調べ(goo内)下記サンプルを発見し、簡単なのでこれを使をうかと思うのですが、UserForm1の処理前にUserForm2.showだけでは UserForm2の処理が終わらないと処理をしません…当然ですよね… 本当に初心者で申し訳ないのですが、UserForm1の処理最中にUserform2のプログレスバーを表示するのにはどうすればいいのでしょうか… 【サンプル】 Private Sub UserForm_Activate() With Label1 .SpecialEffect = 2 .BackColor = vbBlue www = .Width .Width = 0 End With For i = 1 To 1000 Me.Caption = i Label1.Width = i / 1000 * www Me.Repaint Next End Sub また他におすすめなやり方があれば教えて頂ければ… 初心者な質問で申し訳御座いません。...

  • PHPでのsyntax errorについて PHP

    こんにちは。今PHPによるサイト制作をしています。 今までちゃんとサイトが表示されていたのですが、 FTPでローカルのデータファイル全体をPUTしたところ、 サイト内で新着情報表示を使用しているページのみParse error: syntax error,が出てしまいます。 構文は一切変更をしていなかったため、原因がわかりません。 どなたかご教授頂けないでしょうか。 (下記、新着情報表示の構文) <table width="600" cellpadding="5" cellspacing="5" border="0"> <?php include("./inc/info.def.php"); ?> <?php $log = file(LOG_FILE); if (TOP_ROWS >= count($log)) { $END = count($log) - 1; } else { $END = TOP_ROWS - 1; } for($i=0;$i<=$END;$i++) { $DATA = _split($log[$i]); ?> <tr> <td> <?php if ($DATA['FILENAME']) { $SIZE = _calc_thumbnail($DATA['HEIGHT'],$DATA['WIDTH']); ?> <p class="news-photo"><a href="news.php?no=<?=$DATA['NO'];?>"><img src="<?=IMG_DIR.$DATA['FILENAME'];?>" border="0" width="<?=$SIZE['WIDTH'];?>" height="<?=$SIZE['HEIGHT'];?>" alt=""></a></p> <?php } ?> </td> <td nowrap valign="top" height="10"> <a href="news.php?no=<?=$DATA['NO'];?>"><font color="#cccccc"><span class="title-text"><?=$DATA['CAPTION'];?></span></font></a><br> <img src="img/blank.gif" alt="" width="1" height="5" border="0"><br> <p class="date-text"><font color="#cccccc"><?=date("Y年m月d日",$DATA['STAMP']);?></font></p> </td> </tr> <? } ?> </table> ---------------------------------------------------- 読み込んでいるinfo.def.phpの構文 <?php // 新着情報に関する設定 define("LOG_FILE","./inc/information.dat");// ログファイル define("IMG_DIR","./up_img/");// アップ画像保存場所 define("TOP_ROWS","5");// トップページに表示する件数 define("LIST_ROWS","3");// 1ページに表示するタイトル // 画像サイズに関する設定 define("IMG_H","600"); define("IMG_W","400"); define("THUMB_H","100"); define("THUMB_W","100"); // ログファイルを分解する関数 function _split($log='') { if (!$log) { return; } $data = split(",",$log); return array( 'NO' => $data[0], 'STAMP' => $data[1], 'CAPTION' => urldecode($data[2]), 'COMMENT' => urldecode($data[3]), 'FILENAME' => $data[4], 'HEIGHT' => $data[5], 'WIDTH' => ereg_replace("\n","",$data[6]) ); } ?> ---------------------------------------------------- よろしくお願い致します。...

  • Excel2007 VBA ラジオボタン Caption Visual Basic

    動的に生成したActiveXコントロールのOptionButtonのプロパティを設定しようと考えています。 For i = StRow To EdRow Step 1 Sheet.Cells(i, Col).Select Left = ActiveCell.Left Top = ActiveCell.Top Width = ActiveCell.Width Height = ActiveCell.Height Set Page = Sheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _ Left:=Left, _ Top:=Top, _ Width:=Width, _ Height:=Height) Page.Name = "Opt" + CStr(i) Page.GroupName = "選択" Page.Caption = "" Next i Nameプロパティは正常に設定できるのですが、GroupNameとCaptionでエラーになってしまいます。 エラー'438' オブジェクトはこのプロパティまたはメソッドをサポートしていません。 となります。 VisualBasicのヘルプよりOptionButtonのプロパティとしては存在しているので、なぜサポートしていないといわれるのかがわかりません。 どのようにすれば設定可能でしょうか。...

  • tex 図のCaptionを中央揃えにしたい 情報工学

    texで図を挿入する際のCaptionについてお伺いします. 以下のようにして,\begin{center}~\end{center}で括っていますが 図は中央揃えになるものの, Captionは中央揃えにならずに左寄せになってしまいます. \centeringでも同様です. Captionも中央揃えにする方法を教えていただけないでしょうか. \begin{figure}[!htbp] \begin{center} \includegraphics[width=13cm, clip, bb=18 75 500 420]{pic/test.eps} \caption{Test} \label{fig:system} \end{center} \end{figure}...

ページ先頭へ