1个回答
展开全部
示例:
三张图片:1.jpg,2.jpg,3,jpg
窗体中用一图片框:image1
一个计时器:timer1
计时器代码:
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
Image1.Picture = LoadPicture("c:\" & CStr(i) & ".jpg")
If i >= 3 Then
i = 0
End If
End Sub
示例仅供参考,希望对你有帮助.
三张图片:1.jpg,2.jpg,3,jpg
窗体中用一图片框:image1
一个计时器:timer1
计时器代码:
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
Image1.Picture = LoadPicture("c:\" & CStr(i) & ".jpg")
If i >= 3 Then
i = 0
End If
End Sub
示例仅供参考,希望对你有帮助.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
