谁有vb做的滚动字幕的程序代码啊,急用呀,谢谢了

发布网友发布时间：2023-08-19 12:12

共3个回答

热心网友时间：2023-08-19 15:26

'添加一个TextBox框
将其BorderStyle设置为0
将BackColor设置为
系统选项卡下的
按钮表面
将MultiLine设置为True
Text属性中加入N行文本
注意不要让文本超过Text框
Visable设置为False
一个Timer框
Interval设置成50
示例代码如下：
Private
Sub
Form_Click()
Text1.Top
=
Form1.ScaleHeight
Text1.Visible
=
True
End
Sub
Private
Sub
Timer1_Timer()
Text1.Top
=
Text1.Top
-
10
If
Text1.Top
<=
0
Then
Timer1.Enabled
=
False
End
Sub

热心网友时间：2023-08-19 15:26

添加一个TextBox框和一个timer和
lable
示例代码如下：
循环滚动:
Private
Sub
Form_Click()
Text1.Top
=
Form1.ScaleHeight
Text1.Visible
=
True
End
Sub
Private
Sub
Timer1_Timer()
If
Text1.Top
>
form1.width
Then
Text1.Top
=
Text1.Top
=0
eles
Text1.Top
=
Text1.Top
+
10
End
Sub
来回滚动:
Private
Sub
Form_Click()
Text1.Top
=
Form1.ScaleHeight
Text1.Visible
=
True
End
Sub
Private
Sub
Timer1_Timer()
If
Text1.Top
<
form1.width
Then
Text1.Top
=
Text1.Top
+
10
eles
Text1.Top
=
Text1.Top
-
10
End
Sub

热心网友时间：2023-08-19 15:27

我这里有一个点阵式的滚动字幕，不知道你须要不。
就像百货商场或是火车站的那种屏幕。
可以改变速度以及字的大小还有前/背景颜色。
如果你须要的话加我为Q友，我发给你
2，5，4，1，8，6，9，1，7