用vb代码如何实现滚动字幕

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:57:29
谢谢各位了 ，我要做毕业设计！！最好字体可以改变！！麻烦给出窗体和代码！！

水平滚动:
在窗体里放入一个LABEL和一个TIMER控件,字体修改LABEL的字体就可以了.
Private Sub Form_Load()
Label1.Caption = "最好字体可以改变！！麻烦给出窗体和代码！！"
Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1)
End Sub

　　Vb实现屏幕上的字幕滚动效果，运行以下后可看到屏幕底部有一行字从屏幕右侧边缘滚动出现，向右滚动，然后会从屏幕上部向右滚动。

　　文字的定义是在INI文件中，程序先读取INI文件中的文字内容，然后定义具体的文字滚动方法；

　　参考代码如下：

VERSION 5.00    
002    Begin VB.Form Form1    
003       BorderStyle     =   0  'None    
004       Caption         =   "屏幕滚动字幕"    
005      &nb