Question

我想用VB做一个程序——打开程序后，程序是全屏显示的，内容是一大段字从下而上一行一行的走，怎么做？

示例（图片中红色文字是自下而上滚动的）：

代码：

属性：

我把文字换成我自己用的，一共91行，运行程序时却是这样的：

怎么修改属性？或其他方法？全屏，背景为无色，无窗体边框。希望运行时（屏幕上没有打开任何页面），只看见一行一行的字从下而上滚动。
完整的说，希望点击一下下图中Form1中的“滚动字幕”按钮，就会出现91行文字全屏、背景颜色为透明的自下而上滚动，不要“滚动文字”里的“开始”按钮，也不要那张图片，不要图片背景，要透明的。不需要点击“滚动文字”里的“开始”按钮，只要点击一下Form中的“滚动字幕”按钮就载入“滚动文字”并开始滚动。

是91行，不是3行，不能只显示4行多一小点，屏幕同时容纳10行，第11行出现时，第1行从屏幕上方消失，……一直到第91行滚动到屏幕最上方、消失，程序结束





Answer 1

用Label控件、改变Label控件的TOP吧、不要用printtext了。
用几个Label、分别显示。毎个LabelTOP不断通过Timer事件加
然后判断某个Label的Top是否超过Form的高度。超过后把那个Label重新给个Caption.放到最上面Top可以负值吧。就这样
Label的BACKSTYLE要设置为透明（0）

下面是用38个Label控件（控件数组）做的。
Private Sub Form_Load()
Call make
End Sub

Sub make()
For k = 0 To 37
Me.Label1(k).Caption = "第" & k + 1 & "行"
Me.Label1(k).Top = -1 * Me.Label1(k).Height * k - 20
Next k
End Sub

Private Sub Timer1_Timer()
For k = 0 To 37
Me.Label1(k).Top = Me.Label1(k).Top + 15
DoEvents
Next k
If Me.Label1(37).Top > Me.Height Then
Call make
End If
End Sub