VB窗体由下而上滚动字母

来源：百度知道 编辑：UC知道 时间：2024/06/01 20:25:19
当前目录有一个记事本：155.txt
155.txt里有很多东西

要求：
把每一行的内容当作字符 在窗体的中间由下而上滚动
（就是每个电视剧演完类似演员表的那种效果）

如果155里的内容是

11255
744dasd
dwf

则滚动就是
11255
744dasd
dwf

滚动到没有文本可滚动时然后把最后一条信息滚动出窗体后关End
将每行文字居中滚动

QQ2895582

还有不明白的+Q

窗体中放一frame(frame1)控件,frame1内放一文本框(text1),将以下代码复制到代码窗口中:
Private Sub Form_Load()
Text1.Alignment = 2
Timer1.Interval = 500 '滚动速度
Text1.Text = ""
Dim fn
fn = FreeFile
'如果以下文件路径不对请自己改过
Open "c:\155.txt" For Input As fn
i = 0
Do While Not EOF(fn)
Line Input #fn, X
Text1.SelText = X & vbCrLf
Loop
End Sub

Private Sub Form_Resize()
Text1.BackColor = Me.BackColor
Frame1.BorderStyle = 0
Frame1.Height = 400 '显示区的高度
Frame1.Width = 6000 '显示区的宽度
Text1.Width = Frame1.Width - 800
Text1.Left = 400
End Sub

Private Sub Timer1_Timer()
If Text1.Top + Text1.Height < Frame1.Top Then
Text1.Top = Frame1.Height
Else
Text1.Top = Text1.Top - 50
End If
End Sub

首先建一个laber控件，AutoSize设为True
在vb的form_load的时候用vb自己的open方法或者用fso加载155.txt的内容到laber控件
然后用Timer控件来从下往上移动laber控件
同时在Ti