Excel VBA質問箱 IV

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

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


41585 / 76732 ←次へ | 前へ→

【40226】Re:アニメーションをなめらかにできないか?
回答  bykin  - 06/7/9(日) 20:48 -

引用なし
パスワード
   こんばんわ。

>できました!

了解です。今後はご自身のご質問は名前で検索かけるとかして
最後まで確認しておくれやす。

で、このスレッドのご質問のほうでっけど・・・

LoadPictureをアニメ用のループの中で使うから上手いこといかんのです。
こういうのは最初に全部読み込んでおくのがコツです。

↓こんな感じ。

1.Userform1にイメージコントロール10個(Image1〜10)と、
  コマンドボタン1個(CommandButton1)を配置する。
  (イメージコントロールの配置は適当でよい)

2.フォームモジュールに下記のコードを書く。

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

Private Sub CommandButton1_Click()
  Dim i As Long
  Dim j As Long
  
  For i = 1 To 10
    For j = 1 To 10
      Me.Controls("Image" & j).Visible = False
    Next
    DoEvents
    Me.Controls("Image" & i).Visible = True
    DoEvents
    Sleep 100
  Next
End Sub

Private Sub UserForm_Initialize()
  Dim i As Long
  
  For i = 1 To 10
    With Me.Controls("Image" & i)
      .Picture = LoadPicture("C:\Pic" & i & ".bmp")
      .AutoSize = True
      .Left = 0
      .Top = 0
      .Visible = False
    End With
  Next
End Sub

試してみてな。
ほな。
6 hits

【40196】アニメーションをなめらかにできないか? 西谷 さくら 06/7/8(土) 13:31 質問
【40197】Re:アニメーションをなめらかにできないか? ぱっせんじゃー 06/7/8(土) 13:37 発言
【40198】Re:アニメーションをなめらかにできないか? 西谷 さくら 06/7/8(土) 15:44 発言
【40206】Re:アニメーションをなめらかにできないか? ぱっせんじゃー 06/7/8(土) 22:34 発言
【40207】Re:アニメーションをなめらかにできないか? bykin 06/7/9(日) 0:15 発言
【40217】Re:アニメーションをなめらかにできないか? 西谷 さくら 06/7/9(日) 11:13 お礼
【40226】Re:アニメーションをなめらかにできないか? bykin 06/7/9(日) 20:48 回答
【40227】Re:アニメーションをなめらかにできないか? ぱっせんじゃー 06/7/9(日) 20:52 発言
【40298】Re:アニメーションをなめらかにできないか? 西谷 さくら 06/7/10(月) 22:27 発言
【40335】Re:アニメーションをなめらかにできないか? bykin 06/7/11(火) 17:49 回答
【40341】Re:アニメーションをなめらかにできないか? 西谷 さくら 06/7/11(火) 22:32 発言
【40211】Re:アニメーションをなめらかにできないか? 西谷 さくら 06/7/9(日) 6:49 お礼

41585 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free