求vb制作字幕滚动条代码

Answer 1

Dim z As Boolean, y As Boolean, zy As Boolean '申明三种状态按钮
Private Sub Form_Load()
Label1.Caption = "滚动字幕"
Label1.FontSize = 30
End Sub
Private Sub Option1_Click()
z = True: y = False: zy = False '从左向右的状态按钮属性
End Sub
Private Sub Option2_Click()
y = True: z = False: zy = False '从右向左的状态按钮属性
End Sub
Private Sub Option3_Click()
zy = True: z = True: y = False '左右循环的初始属性
End Sub
Private Sub Timer1_Timer()
If z = True And zy = False Then '从左向右的语句
If Label1.Left < Form1.Width Then
Label1.Left = Label1.Left + 20
Else
Label1.Left = -1 * Label1.Width
End If
ElseIf y = True And zy = False Then '从右向左的语句
If Label1.Left > -1 * Label1.Width Then
Label1.Left = Label1.Left - 20
Else
Label1.Left = Form1.Width
End If
ElseIf zy = True Then '左右循环语句
If z = True Then
If Label1.Left < Form1.Width Then
Label1.Left = Label1.Left + 20
Else
y = True: z = False
End If
ElseIf y = True Then
If Label1.Left > -1 * Label1.Width Then
Label1.Left = Label1.Left - 20
Else
z = True: y = False
End If
End If
End If
End Sub

Answer 2

如果想加入一个滚动条来调节速度。就要把楼上的50设成变量。然后和滚动条结合起来！
代码如下：
Dim n As Integer
Private Sub Form_Load()
n = 50
Timer1.Interval = 100
HScroll1.Max = 10
HScroll1.Min = 1
End Sub
Private Sub HScroll1_Change()
Select Case HScroll1.Value
Case 1
n = 100
Case 2
n = 150
Case 3
n = 200
Case 4
n = 250
Case 5
n = 300
Case 6
n = 350
Case 7
n = 400
Case 8
n = 450
Case 9
n = 500
Case 10
n = 550
End Select
End Sub
-----------------------------------------------
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - n
If Label1.Left + Label1.Width<= 0 Then
Label1.Left = Form1.Width
End If
End Sub
用的烂掉の萝卜的代码。请见谅
---------------------------------------------