VB6.0中picture控件怎么实现其中图片连续切换？
想从4-1.jpg匀速一直切换到4-25.jpg，有什么方便的好办法吗？把P赋值在text控件上就解决问题了...
想从4-1.jpg匀速一直切换到4-25.jpg，有什么方便的好办法吗？
把P赋值在text控件上就解决问题了 展开
把P赋值在text控件上就解决问题了 展开
2个回答
展开全部
试试用定时器，设定时间段，应该就可以啦
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Dim p As Integer
Private Sub Form_Load()
Timer1.Interval = 40
End Sub
Private Sub Timer1_Timer()
p = p + 1
If p > 25 Then
Timer1.Enabled = False
Else
picture1.Picture = LoadPicture(App.Path & "\4-" & p & ".jpg")
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 40
End Sub
Private Sub Timer1_Timer()
p = p + 1
If p > 25 Then
Timer1.Enabled = False
Else
picture1.Picture = LoadPicture(App.Path & "\4-" & p & ".jpg")
End If
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
