vb滚动字幕如何控制滚动范围?
1个回答
展开全部
不是很清楚你想要什么,不知是不是你想要的,直接复制进去再添加个Label1和一个Imter1一运行就能看到效果了。
'------------------------------------------
Dim FangXiang As Boolean
Private Sub Form_Load()
Me.Width = 10000
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Label1.Left > Me.Width - 3000 Then '限制右界限
FangXiang = True
End If
If Label1.Left < 3000 Then '限制左界限
FangXiang = False
End If
If FangXiang = False Then Label1.Left = Label1.Left + 15
If FangXiang = True Then Label1.Left = Label1.Left - 15
End Sub
'----------------------------------------
不是的话你说清楚点我再看看.
'------------------------------------------
Dim FangXiang As Boolean
Private Sub Form_Load()
Me.Width = 10000
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Label1.Left > Me.Width - 3000 Then '限制右界限
FangXiang = True
End If
If Label1.Left < 3000 Then '限制左界限
FangXiang = False
End If
If FangXiang = False Then Label1.Left = Label1.Left + 15
If FangXiang = True Then Label1.Left = Label1.Left - 15
End Sub
'----------------------------------------
不是的话你说清楚点我再看看.
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询