|
こんばんわ。
>できました!
了解です。今後はご自身のご質問は名前で検索かけるとかして
最後まで確認しておくれやす。
で、このスレッドのご質問のほうでっけど・・・
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
試してみてな。
ほな。
|
|