vb程序中每隔5秒换一张图片的效果怎么弄的
展开全部
是VB6吗？
以下为VB6方法
添加TIMER控件，将interval改为5000（1000代表1秒）
Option Explicit
Dim u() As String
Private Sub Form_Load()
ReDim u(0 To 5)
u(0) = "URL"
u(1) = "URL"
'..........
End Sub
Private Sub Timer1_Timer()
Static a As Integer
Picture1.Picture = LoadPicture(u(a))
If a = u(UBound(u)) Then a = 0
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
