VB 缩小上下滚动范围代码

来源：百度知道 编辑：UC知道 时间：2024/06/15 17:52:00
下面这一段是 上下滚动代码
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 100
Label1.Top = Me.ScaleHeight
End Sub

Private Sub Timer1_Timer()
Label1.Move Label1.Left, Label1.Top - 50
If Label1.Top + Label1.Height < 0 Then Label1.Top = Me.ScaleHeight
End Sub

这一段代码滚动的范围是从窗体的尾到头滚动，我现在要缩小范围，比如从TOP值的200--400 之间滚动，如何实现呢？

我将你的改了一下，试过了，能让标签只在中间一段滚动显示
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 100
Label1.Top = Me.ScaleHeight - 1500
End Sub
Private Sub Timer1_Timer()
Label1.Move Label1.Left, Label1.Top - 50
If Label1.Top + Label1.Height < 1500 Then Label1.Top = Me.ScaleHeight - 1500
End Sub
你看行不

Private Sub Form_Load()
Timer1.Interval = 100
Label1.Top = Me.ScaleHeight
Label1.Top = 400
End Sub

Private Sub Timer1_Timer()
Label1.Move Label1.Left, Label1.Top - 50
If Label1.Top < 200 Then Label1.Top = 400 ' - Label1.Height
End Sub