首页 /编程语言和算法/VB6/ASP
 VB6 代码管家-控件-ListView
2024年12月8日 22:17
'引用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
'-----------------------------添加班级


 
全部回复(0)
首页 | 电脑版 |