| |
こんばんわ。
＞できました！
了解です。今後はご自身のご質問は名前で検索かけるとかして
最後まで確認しておくれやす。
で、このスレッドのご質問のほうでっけど・・・
LoadPictureをアニメ用のループの中で使うから上手いこといかんのです。
こういうのは最初に全部読み込んでおくのがコツです。
↓こんな感じ。
１．Userform1にイメージコントロール10個（Image1〜10）と、
コマンドボタン1個（CommandButton1）を配置する。
（イメージコントロールの配置は適当でよい）
２．フォームモジュールに下記のコードを書く。
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
試してみてな。
ほな。
|
|
ｂｙｋｉｎ
- 06/7/9(日) 20:48 -
