展开全部
把13张图片弄成有规则的文件名并在同一文件夹下
或者用数组把图片的路径分别存储下来
然后用Timer控件
代码
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
Picture1.Picture = LoadPicture(App.Path & n & ".jpg")
If n = 13 Then Timer1.Enabled = False
End If
End Sub
或者用数组把图片的路径分别存储下来
然后用Timer控件
代码
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
Picture1.Picture = LoadPicture(App.Path & n & ".jpg")
If n = 13 Then Timer1.Enabled = False
End If
End Sub
更多追问追答
追问
必须是绝对路径吗？放在根目录下不可以？
追答
可以 如果文件名排名是有规律的就行了
App.Path & n & ".jpg"
App.path 是路径 你可以改成你自己的路径
n 即有规律的文件名
".jpg" 文件名后缀
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
