急求 VB滚动字幕的制作 从下往上滚 谢啦

楼上的方法是对的啊。如果想加入一个滚动条来调节速度。就要把楼上的50设成变量。然后和滚动条结合起来！
代码如下：
Dim
n
As
Integer
Private
Sub
Form_Load()
n
=
50
Timer1Interval
=
100
HScroll1Max
=
10
HScroll1Min
=
1
End
Sub
Private
Sub
HScroll1_Change()
Select
Case
HScroll1Value
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()
Label1Left
=
Label1Left
-
n
If
Label1Left
+
Label1Width
<=
0
Then
Label1Left
=
Form1Width
End
If
End
Sub
用的烂掉の萝卜的代码。请见谅
----------------------------------------------

以上就是关于急求 VB滚动字幕的制作 从下往上滚 谢啦全部的内容，包括:急求 VB滚动字幕的制作 从下往上滚 谢啦、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！