Question

■■使用print在from中输出文本可以实现滚屏吗？

我的一个程序需要使用print在from中按行的方式输出大量数据，是一行接着一行的输出，输出到屏幕底部就看不见了，请问大侠可以实现滚屏吗？
另外，如果输出数据后再切换窗口的话，原来已经输出的文字就消失了，这又是什么问题呢？

Answer 1

完全可以实现

切换窗口后原来已经输出的文字就消失，是因为没有将 AutoRedraw 属性设为 True

请看下面的代码：
'滚屏显示文字
'例子需控件：VScroll1，采用默认属性。
'带有 '** 的语句可修改，以满足个人的特殊要求

Dim ctStr() As String

Private Sub Form_Load()
Dim I As Long
ReDim ctStr(0 To 1000)
For I = 0 To 1000
ctStr(I) = "我的数据" & I
Next
VScroll1.Max = 1000
Me.AutoRedraw = True
End Sub

Private Sub Form_Resize()
VScroll1.Move Me.ScaleWidth - 255, 0, 255, Me.ScaleHeight
Call ShowStr
End Sub

Private Sub VScroll1_Scroll()
Call ShowStr
Me.Refresh
End Sub
Private Sub VScroll1_Change()
Call ShowStr
End Sub

Private Sub ShowStr()
Dim I As Long, WinHang As Long

WinHang = Int(Me.ScaleHeight / Me.TextHeight("A"))
Me.Cls
For I = VScroll1.Value To VScroll1.Max
If I > VScroll1.Value + WinHang Then Exit For
Me.Print ctStr(I)
Next
End Sub

'如果字符量不多，建议用文本框控件。
'关于 自动滚屏-自己做文本框，请参考我的QQ空间http://user.qzone.qq.com/32063270/blog/1223302924

Answer 2

第一个问题：
用debug.print 行
用textbox，把textbox设为带滚动条的那种，其中的内容还可以复制保存下来，多方便。。。form大小有限，超过就显示不出来

第二个问题：

把form的autoredraw属性设为true就行了

Answer 3

没见过能滚屏的，如果from不够大，一般都看不见

Answer 4

在print前面加一条刷新窗体或者清楚窗体的语句咯～ me.clear

Answer 5

debug.print吧