2个回答
展开全部
Option Explicit
Private Sub Timer1_Timer()
On Error GoTo err
err: If err.Number <> 0 Then Dir ("D:\My Documents\My Pictures\本人收藏\*.jpg")
Form1.Picture = LoadPicture("D:\My Documents\My Pictures\本人收藏\" & Dir())
End Sub
改一下地址就可以了
Private Sub Timer1_Timer()
On Error GoTo err
err: If err.Number <> 0 Then Dir ("D:\My Documents\My Pictures\本人收藏\*.jpg")
Form1.Picture = LoadPicture("D:\My Documents\My Pictures\本人收藏\" & Dir())
End Sub
改一下地址就可以了
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询