Question

VB如何将text每一行添加进ListView1中

VB如何将text每一行添加进ListView1中

Answer 1

先把text里的内容放到变量里,在这个变量里找回车符,找到后,把回车符前面的字符添加到listview1里

然后变量重新设置为找到回车符后的位置开始的所有字符,重复上面的动作,一直到找不到为止.添加完毕.

Private Sub Command1_Click()
Dim a1 As String
a1 = Text1
cz:
If InStr(1, a1, vbCrLf) > 0 Then
List1.AddItem Mid(a1, 1, InStr(1, a1, vbCrLf) - 1)
a1 = Mid(a1, InStr(1, a1, vbCrLf) + 1)
GoTo cz:
End If
'最后剩下的,如果有内容再添加上
If Len(a1) <> 0 Then List1.AddItem a1
End Sub

Answer 2

Private Sub Command1_Click()
Dim A() As String
Dim L As Integer
A = Split(Trim(Text1.Text), vbCrLf)
For L = 0 To UBound(A)
ListView1.ListItems.Add , , A(L)
Next L

End Sub

追问

如果要添加到第二列呢

追答

Private Sub Command1_Click()
With ListView1
.View = lvwReport '设置列表显示方式
.ColumnHeaders.Add , , "姓名", 800
.ColumnHeaders.Add , , "性别", 800
.ColumnHeaders.Add , , "日期", 800

.ListItems.Add , , "赵三"
.ListItems(1).SubItems(1) = "男"
.ListItems(1).SubItems(2) = "2013-1-1"
.ListItems.Add , , "李四"
.ListItems(2).SubItems(1) = "女"
.ListItems(2).SubItems(2) = "2014-1-1"

End With

End Sub

Answer 3

List1.AddItem