7,762
社区成员
发帖
与我相关
我的任务
分享如何将文本框中的内容以列表形式显示？
我程序如下：
Option Base 1
Dim i%, a(10)
Private Sub Command1_Click()
For i = 1 To 10
a(i) = Int(Rnd * 10000) ’随机产生10个1-4位的数
Text1.Text = Text1.Text & a(i) & vbCrLf '或将vbcrlf改为chr$(13)+chr$(10)
Next i
End Sub
可是运行以后数与数之间只是空格，并不能以列表形式显示？
Option Base 1
Dim i%, a(10)
Private Sub Command1_Click()
For i = 1 To 10
a(i) = Int(Rnd * 10000) ’随机产生10个1-4位的数
Text1.Text = Text1.Text & a(i) & vbCrLf '或将vbcrlf改为chr$(13)+chr$(10)
Next i
End Sub
可是运行以后数与数之间只是空格，并不能以列表形式显示？
...全文
请发表友善的回复…
发表回复
nofound007 2003-10-19
- 打赏
- 举报
换用另外的控件也可以解决问题啊!
lang_ch77 2003-10-19
- 打赏
- 举报
设置 MultiLine = True
efsnake 2003-10-19
- 打赏
- 举报
试试用RICHTEXTBOX控件吧，比TEXTBOX功能强大的多！
