vb ListView循环读取

来源：百度知道 编辑：UC知道 时间：2024/09/26 02:25:14
控件:ListView1 Text1 command1 (3个控件)

Text1 内容如下:
张小乐
22
学生
吉林
←这是空行
阿奇
24
学生
上海
←这是空行
阿华
23
←这里也是空行,不过要算 字符加载到ListView1中
北京

阿伟
26
经理
天津
..... (更多)

以上字符的规则是,每4行 一组数据,每组数据中间有空行分隔,每组数据中有可能出现某行无字符的可能...所以要考虑的是,分隔格式是每4行一组,不能遇到空格就分隔...因为有用的数据也有可能出现空行...

然后就是操作拉.很简单.按下按钮command1把文本框的内容按照每4行一条数据的格式加载到ListView1中,ListView1列头是:

姓名 年龄 职业 城市

我很需要这个代码,是毕业设计里的内容,我实在弄不会...所以希望知道怎么弄的告诉我...谢谢!!!

Public Sub LVrefresh(Optional ByVal StandardType As Boolean)
Dim strTemp As String, i As Integer, intRow As Integer

Dim strArray() As String, ListItemTemp As ListItem

strArray = Split(Text1.Text, vbCrLf)

With ListView1
.ColumnHeaders.Clear
.ListItems.Clear

.ColumnHeaders.Add , , "姓名"
.ColumnHeaders(1).Width = 1200
.ColumnHeaders.Add , , "年龄"
.ColumnHeaders(2).Width = 900
.ColumnHeaders.Add , , "职位"
.ColumnHeaders(3).Width = 2000
.ColumnHeaders.Add , , "联系电话"
.ColumnHeaders(4).Alignment = lvwColumnLeft
.ColumnHeaders(4).Width = 2000

intRow = 1
For i = LBound(strArray) To UBound(strArray)
If intRow = 1 Then
Set ListItemTemp = .ListItems.Add(, , s