VBA中pictureBox在持续位移时,保持帧动画(延迟LoadPicture)?

Question

请教大神:
1.将一个PictureBox做成帧动画(用timeGetTime来延迟LoadPicture从而逐帧实现)
2.将这个PictureBox进行持续位移(用timeGetTime来延迟持续改变其Left值)

那么问题来了:
位移时,原本进行的帧动画会暂停.
或者帧动画时,原来进行的位移会暂停
各自都使用了DoEvent也没用
请问有解决方案吗?

Answer 1

不能贴附件

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Sub Img1_LoadPic()
Dim Cycle As Integer
Dim PicNum As Integer
Dim Savetime As Double

For Cycle = 1 To 10
        For PicNum = 1 To 3
                Image1.Picture = LoadPicture(ThisWorkbook.Path & "\IMG\" & PicNum & ".gif")
                DoEvents
            Savetime = timeGetTime
            While timeGetTime < Savetime + 500
                DoEvents
            Wend
        Next
Next

End Sub

这是我先实现的帧动画