VB6如何实现在一个文本框显示多次循环的计算结果?教程上都是用的print方法打印在窗体,我想用text来显示
2个回答
展开全部
通常调试信息才会用 print 这样的输出,而调试可以用 Debug.Print 方法输出,输出的内容会在“立即窗口”中出现,你可以在VB的“视图”->"立即窗口"菜单中调出立即窗口查看输出的信息。
如果你只是想问 TextBox 这个控件如何用可以显示多行文本,那么你需要先将 TextBox 的 MultiLine 属性设置为 True,表示允许多行文本输出。然后再设置 ScrollBars 属性为 3 - VbBoth,表示支持垂直和水平滚动条,然后再对 TextBox 的 Text 属性赋值,如果你的文本包含换行符,那么文本框也会显示换行效果的文本出来。如:
Private Sub Form_Load()
Text1.Text = ""
For i = 0 To 2
TextPrint Chr(Asc("a") + i)
Next i
End Sub
' 这个是取代你原来使用的 Print 的函数
Private Sub TextPrint(ByVal outString As String)
Text1.Text = Text1.Text & outString & vbCrLf ' 这里的 vbCrLf 是换行符号
Text1.SelStart = Len(Text1.Text) - 1
End Sub
如果你只是想问 TextBox 这个控件如何用可以显示多行文本,那么你需要先将 TextBox 的 MultiLine 属性设置为 True,表示允许多行文本输出。然后再设置 ScrollBars 属性为 3 - VbBoth,表示支持垂直和水平滚动条,然后再对 TextBox 的 Text 属性赋值,如果你的文本包含换行符,那么文本框也会显示换行效果的文本出来。如:
Private Sub Form_Load()
Text1.Text = ""
For i = 0 To 2
TextPrint Chr(Asc("a") + i)
Next i
End Sub
' 这个是取代你原来使用的 Print 的函数
Private Sub TextPrint(ByVal outString As String)
Text1.Text = Text1.Text & outString & vbCrLf ' 这里的 vbCrLf 是换行符号
Text1.SelStart = Len(Text1.Text) - 1
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询