Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41605 / 76732

←次へ　｜　前へ→


	【40206】Re:アニメーションをなめらかにできないか？

ぱっせんじゃー - 06/7/8(土) 22:34 -


	引用なし

	パスワード

失礼！
SleepはAPI関数です。
標準モジュールの先頭に

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

と記述してください。
標準モジュールがなければ挿入してから↑を記述してください。

ユーザーフォームのほうには、

Sleep 100

などと記述してください。

1000で1秒になります。

なお、西谷さんご提示のコードは↓のようにするとうまく動くと思いますよ。

Dim i As Long
　For i = 1 To 10
　　　Image1.Picture = LoadPicture("C:\Pic" & i & ".bmp")
　　　Application.Wait (Now() + TimeValue("00:00:01"))
　　　DoEvents
　Next i

1 hits

▼

【40196】アニメーションをなめらかにできないか？ 西谷　さくら 06/7/8(土) 13:31