|
こんばんわ。
>切り替え時に一瞬黒くなってパチパチします。
あきまへんか?(^^;;
わての環境ではちょっとちらつくけど黒くなったりはしまへんが・・・
マシンスペックが原因なんかな?
そしたら、イメージコントロールをもう1個追加(Image11)して・・・
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 10
Me.Image11.Picture = Me.Controls("Image" & i).Picture
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
With Me.Image11
.Left = 0
.Top = 0
.Width = Me.Image1.Width
.Height = Me.Image1.Height
.Visible = True
End With
End Sub
こんなんでどーかな?
ちらつきはマシになると思うけど・・・
試してみてな。
ほな。
|
|