vb滚动字幕如何控制滚动范围?

来源：百度知道 编辑：UC知道 时间：2024/05/17 00:56:25
我不想让字幕从最左边滚到最右边.我是想让Label空间与From之间有段距离.

不是很清楚你想要什么，不知是不是你想要的，直接复制进去再添加个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
'----------------------------------------

不是的话你说清楚点我再看看.