VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/10/24(Mon) 11:52 |
| 投稿者 | ： ダンボ |
| ＵＲＬ | ： |
| タイトル | ： Excel2002のイメージRefresh |
Excel2002のVBAで、プログレスバーを画面に表示しようとして下記ルーチンを実行しました。
動作は正しいのですが、２つのイメージがRefreshされません。マクロを中断すれば正しい
進捗状況で２つのイメージが表示されます。コメント部を解除するとキャプションは進捗状況
に合わせて変化表示されていくので、イメージのRefreshだけができていないようです。
ユーザフォームまたはイメージにRefresh命令があればよいのですが、それは無いようです。
どうしたら、画面更新しますでしょうか？（他のプログレスバーOCXを使うという解は無しで）
Public Function ShowProgress(Past As Integer, Total As Integer)
Select Case Past
Case Is = 0
frmProgress.imgPast.Width = 0
frmProgress.Show 0
Case Is = Total
frmProgress.Hide
Case Is > Total
Case Is < 0
Case Else
' frmProgress.Caption = frmProgress.Caption & Past
frmProgress.imgPast.Width = Past * frmProgress.imgTotal.Width / Total
' ここに強制的にRefreshする処理があると良いと思う
End Select
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）