'引用Microsoft Windows Common Controls 6.0
'添加ListView1,ImageList1,List1,List2,List3
'添加text1,text1,text1
'添加Command1,Command2
'ImageList1单击右键属性添加图标
'ListView1.LabelEdit = 1 '禁止双击编辑
'ListView1.HideSelection = false '选中后选中行不会失去焦点(但会变成灰色)
'ListView1.ListItems.Remove 1 '删除第一行
'ListView1.ColumnHeaders.Remove 2 '删除第二列
'ListView1.ListItems(2).Selected = True '选中第2行
'ListView1.ListItems.Count '总行数
'ListView1.ColumnHeaders.Count '总列数
'ListView1.ListItems.Clear '清空列表
'ListView1.ColumnHeaders.Clear '清空所有
'ListView1.View = lvwReport '控件显示方式,lvwReport最常用
'ListView1.GridLines = True '显示网络线
'ListView1.Checkboxes = True '显示复选框
'ListView1.ListItems(1).Checked = True '勾选第一个复选框
'ListView1.FullRowSelect = True '选择整行,反之则选中列表头
'ListView1.ColumnHeaders.Add , , "第一行", 1000 '添加列名,宽度为1000
'ListView1.ListItems(1).ListSubItems.Item(3).Text = "文字" '设置第一行第三列的文字
'ListView1.ListItems(1).SubItems(1) = "文字" '添加文字到第一行第一列
'ListView1.ListItems(1).ListSubItems.Item(2).Text '第一行第二列的文字(列表头除外)
'ListView1.ListItems(1).Text '第一行列头的文字
'ListView1.SelectedItem.index '当前选中行为第几行
'ListView1.MultiSelect = True '设置是否能多选
'ListView1.ListItems(2).ForeColor = vbRed '把第二排的列头设为红色
'ListView1.ListItems(3).ListSubItems.Item(2).ForeColor = vbBlue '第三行第二列设置为蓝色
'ListView1.ListItems(b).EnsureVisible '使滚动条自动向下
'-----------------把第二行设置为红色
'Dim index As Integer
'For index = 1 To ListView1.ListItems(2).ListSubItems.Count '从1列到总列数
'ListView1.ListItems(2).ListSubItems.Item(index).ForeColor = vbRed '把第index列设为红色
'Next
'-----------------
'ListView1.SmallIcons = ImageList1.Object '把ImageList1绑定到ListView1
'ListView1.ListItems.Add , , "1", , 1 '把ImageList1中索引号为1的图片加载到第一列列表头
'***************************参数***************************
Private Sub Form_Load()
ListView1.SmallIcons = ImageList1.Object '把ImageList1绑定到ListView1
ListView1.ColumnHeaders.Clear '清空所有
ListView1.View = lvwReport '显示方式lvwReport最常用
ListView1.GridLines = True '显示网络线
ListView1.FullRowSelect = True '选择整行
ListView1.Checkboxes = False '不显示复选框
ListView1.ColumnHeaders.Add , , "ID号", 1000 '添加列名,宽度为100
ListView1.ColumnHeaders.Add , , "姓名", 1000
ListView1.ColumnHeaders.Add , , "班级", 1000
ListView1.ListItems.Clear '清空列表
ListView1.ListItems.Add , , "第一行", , 1 '添加图标
ListView1.ListItems(1).SubItems(1) = "张三"
ListView1.ListItems(1).SubItems(2) = "一班"
ListView1.ListItems.Add , , "第二行", , 2 '添加图标
ListView1.ListItems(2).SubItems(1) = "李四"
ListView1.ListItems(2).SubItems(2) = "三班"
ListView1.ListItems.Add , , "第三行", , 2 '添加图标
ListView1.ListItems(3).SubItems(1) = "王五"
ListView1.ListItems(3).SubItems(2) = "六班"
End Sub
Private Sub Command1_Click() '导出列表
If Dir("c:\ID号.txt") <> "" Then Kill "c:\ID号.txt"
If Dir("c:\姓名.txt") <> "" Then Kill "c:\姓名.txt"
If Dir("c:\班级.txt") <> "" Then Kill "c:\班级.txt"
'--------------------------------------删除
Dim a As Integer
For a = 1 To ListView1.ListItems.Count
Open "c:\ID号.txt" For Append As #1
Print #1, ListView1.ListItems(a).Text
Close #1
Next a
'--------------------------------------导出ID号
Dim b As Integer
For b = 1 To ListView1.ListItems.Count
Open "c:\姓名.txt" For Append As #1
Print #1, ListView1.ListItems(b).ListSubItems.Item(1).Text '第g行第1列
Close #1
Next b
'--------------------------------------导出姓名
Dim c As Integer
For c = 1 To ListView1.ListItems.Count
Open "c:\班级.txt" For Append As #1
Print #1, ListView1.ListItems(c).ListSubItems.Item(1).Text '第g行第1列
Close #1
Next c
'--------------------------------------导出班级
End Sub
Private Sub Command2_Click() '导入列表
ListView1.ListItems.Clear '清空列表
List1.Clear
Dim a As String
Open "c:\ID号.txt" For Input As #1
Do While Not EOF(1)
Input #1, a
List1.AddItem a
Loop
Close #1
Dim aa As Integer
For aa = 0 To List1.ListCount - 1
ListView1.ListItems.Add , , List1.List(aa), , 1 '添加图标
Next aa
'-----------------------------添加ID号
List2.Clear
Dim b As String
Open "c:\姓名.txt" For Input As #1
Do While Not EOF(1)
Input #1, b
List2.AddItem b
Loop
Close #1
Dim bb As Integer
For bb = 0 To List2.ListCount - 1
ListView1.ListItems(bb + 1).SubItems(1) = List2.List(bb)
Next bb
'-----------------------------添加姓名
List3.Clear
Dim c As String
Open "c:\班级.txt" For Input As #1
Do While Not EOF(1)
Input #1, c
List3.AddItem c
Loop
Close #1
Dim cc As Integer
For cc = 0 To List3.ListCount - 1
ListView1.ListItems(cc + 1).SubItems(2) = List3.List(cc)
Next cc
End Sub
'-----------------------------添加班级