■■使用print在from中输出文本可以实现滚屏吗?
来源:百度知道 编辑:UC知道 时间:2024/06/10 23:57:50
另外,如果输出数据后再切换窗口的话,原来已经输出的文字就消失了,这又是什么问题呢?
第一个问题:
用debug.print 行
用textbox,把textbox设为带滚动条的那种,其中的内容还可以复制保存下来,多方便。。。form大小有限,超过就显示不出来
第二个问题:
把form的autoredraw属性设为true就行了
没见过能滚屏的,如果from不够大,一般都看不见
debug.print吧
在print前面加一条刷新窗体或者清楚窗体的语句咯~ me.clear
完全可以实现
切换窗口后原来已经输出的文字就消失,是因为没有将 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