809
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
chengwei1985 2004-04-26
- 打赏
- 举报
不知道这个可不可以是用几张图片再连接起来的.
Private Sub Timer1_Timer()
Dim j As Integer
If i >= 0 Then
Picture1.Cls
j = i Mod 4 + 1
FileName = "f:\新建文件夹\as" & j & ".jpg"
Picture1.Picture = LoadPicture(FileName)
i = i + 1
End If
End Sub
Private Sub Timer1_Timer()
Dim j As Integer
If i >= 0 Then
Picture1.Cls
j = i Mod 4 + 1
FileName = "f:\新建文件夹\as" & j & ".jpg"
Picture1.Picture = LoadPicture(FileName)
i = i + 1
End If
End Sub
jjs008 2004-04-26
- 打赏
- 举报
是等待的动画
nik_Amis 2004-04-26
- 打赏
- 举报
你是要做个等待的动画吧?
northwolves 2004-04-26
- 打赏
- 举报
e.g:
webbrowser + *.gif
timer + jpg(s)
webbrowser+ *.swf
webbrowser + *.gif
timer + jpg(s)
webbrowser+ *.swf
