VB6.0怎么用timer空间来改变一个image里的图?(大神可以写下程序吗)
展开全部
比方说5秒钟切换一张图。图片总共10张，名字分别是1.jpg、2.jpg、3.jpg……10.jpg，与程序放在同一文件夹：
Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n Mod 10 + 1
Image1.Picture = LoadPicture(App.Path & "\" & n & ".jpg")
End Sub
程序需要两个控件：Image1和Timer1
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
