VB中如何把TEXT中的多行文本添加到LISTBOX中,而且是一行一行显示

问题是这样的。一个窗体,分别添加commandtextboxlistbox三个控件。现要求程序功能为:在text1中输入多行文本比如10行点一下command1那么tex... 问题是这样的。一个窗体,分别添加 command textbox listbox 三个控件 。现要求程序功能为: 在text1 中输入多行文本 比如10行 点一下command1 那么 text1 中的多行文本 就输入到 list1 中。在 list1 中同样以 10行 显示出来。 我这样写出来的他能输入到 list1 中 但是全显示在一行里 代码如下 : List1.AddItem Text1.Text 望指点。。新学。 展开
 我来答
sbj518
推荐于2017-09-24 · TA获得超过4.4万个赞
知道大有可为答主
回答量:1.1万
采纳率:81%
帮助的人:5278万
展开全部

1、打开VB6.0软件,新建一个标准exe工程;
2、在设计界面上添加一个Text控件、一个Command控件和一个List控件;设置Text1的Mutiline属性为True;Command1的Caption属性设置为“转换”;

3、双击Command1控件,进入代码编辑界面,输入如下代码:

Private Sub Command1_Click()
Dim s() As String
s = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(s)
   List1.AddItem (s(i))
Next i
End Sub
Private Sub Form_Load()
Text1.Text = "What are you doing?" & vbCrLf & "What is the next?" & vbCrLf & "who r u?"
End Sub

4、运行工程,单击转换按钮,可以看到Text中的多行文本添加到List中;

百度网友68f5c18
2009-06-03 · TA获得超过1730个赞
知道小有建树答主
回答量:792
采纳率:100%
帮助的人:857万
展开全部
不能这样做的,

首先要把Text1中的文字分成10行,分别用List1的Additem方法添加进去才行

具体方法是用Instr函数查找TextBox的换行符VbCrLf(或者Chr(13) & chr(10))

然后利用Mid函数提取每两个换行符之间的字符,然后再分别添加进ListBox
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
玫瑰为你盛开
推荐于2017-10-02 · TA获得超过8518个赞
知道大有可为答主
回答量:820
采纳率:0%
帮助的人:0
展开全部
试试:

Private Sub Command1_Click()
Dim a
a = Split(Text1.Text, vbCrLf)
For i = LBound(a) To UBound(a)
List1.AddItem a(i)
Next
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式