[[20110111232218]] 『シートのImage1.Pictureへファイルを連続して読み』(オサム) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『シートのImage1.Pictureへファイルを連続して読み込ませたい』(オサム)
バージョンは2007です。
画像ファイル"0.gif"〜"9.gif"(0・1・2・3・・・9)までを
For Nextで繰り返し読み込み、各々表示させながら、最後は9を残したい。
これがどうやっても、9のみの最後の読み込みファイルが表示されたままです。

 For i = 0 To 9 Step 1

        kazu = CStr(i)

        Worksheets("タイマー表示").Image1.Picture = LoadPicture("数字\" & kazu & ".gif")
             For h = 1 To 100000000 Step 1
                 Next h

   Next i

どうすればよいのでしょうか?
なお、Worksheets("タイマー表示").Image1.Picture = LoadPicture("数字\" & kazu & ".gif")
の数字は画像ファイルの格納フォルダです。同じフォルダ内にしても同じでした。
また、 For h = 1 To 100000000 Step 1

                 Next h
は、タイマーがわりに使っています。
2007でタイマーのやさしい使い方があれば教えてください。
よろしくお願いします。

 Option Explicit
 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 Sub disp()
    Const 待機時間 = 1000
    Const 待機回数 = 8
    Dim g0 As Long
    Dim g1 As Long
    Dim kazu As String
    For g0 = 0 To 9
        kazu = CStr(g0)
        Worksheets("タイマー表示").Image1.Picture = LoadPicture("数字\" & kazu & ".gif")
        For g1 = 1 To 待機回数
           DoEvents
        Next
        Sleep 待機時間
    Next
 End Sub

 これできちんと表示されない場合は、
 待機回数の値を増やしてみてください。

 表示間隔は、待機時間の値を増減してみてください。

[[20081212225700]]

 ↑同様の質問です

 ichinose


ありがとうございました!
感謝いたします。

今後ともわからないことがあったときは助けてください。


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.