我有一个多行文本框textbox1
,想要将内容添加到listbox1
,但在每个项目之前我需要添加“wordX =”,其中“X”是项目编号。< / p>
textbox1
的示例:
鲍勃
齿轮
狗
等
然后listbox1
应该:
WORD1 =鲍勃
WORD2 =齿轮
WORD3 =狗
等
目前,我使用以下行将textbox3
内容复制到listbox1
,但无法找到如何添加“word”和正确的数字。
ListBox1.Items.AddRange(TextBox3.Text.Split(vbNewLine))
答案 0 :(得分:2)
这就是我用来完成你想要的东西。
Dim tbLines As String() = TextBox1.Text.Split(vbNewLine)
ListBox1.Items.Clear()
For i As Integer = 1 To tbLines.Length
ListBox1.Items.AddRange({"word" & i & "=" & tbLines(i - 1).Trim})
Next
我像你一样使用vbNewLine
分隔符拆分文本框。然后,我遍历该数组中的每个索引,将字符串“word”与i
(当前索引)整数连接起来。我最后将“=”和列表框中的修剪值连接起来。