ListView控件的常用操作

ouboy

最近在学习ListView 这个控件，发现给listbox功能强得多。现在将我在网络上找到的资料给大家分享一下，使像我这样的新手也可以方便学习.

1. 以下是介绍VB中的ListView控件的常用操作，比如：获取ListView某个值、删除、添加等等。
   
2. 
   
3.     'ListView1.SmallIcons = ImageList1.Object '把ImageList1图标列表控件绑定到 ListView1列表控件中来。   
   
4. 
   
5.     ListView1.ListItems.Clear               '清空列表
   
6. 
   
7.     ListView1.ColumnHeaders.Clear           '清空列表头
   
8. 
   
9.     ListView1.View = lvwReport              '设置列表显示方式
   
10. 
    
11.     ListView1.GridLines = True              '显示网络线
    
12. 
    
13.     ListView1.LabelEdit = lvwManual         '禁止标签编辑
    
14. 
    
15.     ListView1.FullRowSelect = True          '选择整行
    
16. 
    
17. 
    
18.     ListView1.ColumnHeaders.Add , , "ID", 500 '给列表中添加列名
    
19. 
    
20.     ListView1.ColumnHeaders.Add , , "本地 ", 1500
    
21. 
    
22.     ListView1.ColumnHeaders.Add , , "端口", 1200
    
23. 
    
24.     ListView1.ColumnHeaders.Add , , "协议", 550
    
25. 
    
26.     ListView1.ColumnHeaders.Add , , "IP", 1500
    
27. 
    
28.     ListView1.ColumnHeaders.Add , , "当前状态", 900
    
29. 
    
30.     ListView1.ColumnHeaders.Add , , "连接时间", 900
    
31. 
    
32.     '-------------------------------------------------------
    
33. 
    
34.      ListView1.ListItems.Clear               '清空列表
    
35. 
    
36.     ListView1.ListItems.Add , , "1"
    
37. 
    
38.     'ListView1.ListItems.Add , , "1", , 1   '添加图标 后面那个1是ImageList1控件中的图标索引号
    
39. 
    
40.     '-------------------------------------------------------
    
41. 
    
42.     '下列的属性也可以 单击控件右键->属性 进行设置。
    
43. 
    
44.     ListView1.View = lvwReport              '设置显示方式为列表
    
45. 
    
46.     ListView1.AllowColumnReorder = True     '对行进行程序排列，用鼠标进行排列
    
47. 
    
48.     ListView1.Arrange = lvwAutoLeft         '图标横排列
    
49. 
    
50.     ListView1.Arrange = lvwAutoTop          '图标竖排列
    
51. 
    
52.     ListView1.FlatScrollBar = False         '显示滚动条
    
53. 
    
54.     ListView1.FlatScrollBar = True          '隐藏滚动条
    
55. 
    
56.     ListView1.FullRowSelect = True          '选择整行
    
57. 
    
58.     ListView1.LabelEdit = lvwManual         '禁止标签编辑
    
59. 
    
60.     ListView1.GridLines = True              '显示网络线
    
61. 
    
62.     ListView1.LabelWrap = True              '图标可以换行
    
63. 
    
64.     ListView1.MultiSelect = True            '可以选择多个项目
    
65. 
    
66.     ListView1.PictureAlignment = lvwTopLeft '图片对齐方式是左顶部，其他有右顶部(1)、左底部(2)、右底部(3)、居中(4)、平铺(5)
    
67. 
    
68.     ListView1.Checkboxes = True             '显示复选框
    
69. 
    
70.     'ListView1.DropHighlight = ListView1.ListItems.Item(2)   '显示系统颜色
    
71. 
    
72. 
    
73. 常用操作：
    
74. 获取当前行数和列数:
    
75. 
    
76. MsgBox "行数：" & ListView1.ListItems.Count & "列数：" & ListView1.ColumnHeaders.Count
    
77. 
    
78. Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    
79. 
    
80.     ListView1.ToolTipText = "行数：" & ListView1.ListItems.Count & "列数：" & ListView1.ColumnHeaders.Count
    
81. 
    
82. End Sub
    
83. 
    
84. 
    
85. 
    
86. 设置宽度:
    
87. 
    
88. ListView1.ColumnHeaders.Add , , "备注", 1500
    
89. 
    
90. 
    
91. 
    
92. 当前选中行:
    
93. 
    
94. MsgBox ListView1.SelectedItem.Index
    
95. 
    
96. 
    
97. 
    
98. 获取复选框的值:
    
99. 
    
100. MsgBox ListView1.ListItems(1).Checked
     
101. 
     
102. 
     
103. 
     
104. 删除指定行:
     
105. 
     
106. ListView1.ListItems.Remove 1
     
107. 
     
108. 
     
109. 
     
110. 去掉鼠标左键点击标签编辑:
     
111. labeledit属性改为1
     
112. 
     
113. 读取某行第一列内容:
     
114. 
     
115. ListView1.ListItems(i).Text
     
116. 
     
117. 
     
118. 
     
119. 读取某行第几列内容 (不包括第一列):
     
120. 
     
121. ListView1.ListItems(Num).SubItems (4)
     
122. 
     
123. 
     
124. 
     
125. 读取当前选中行第一列内容:
     
126. 
     
127. ListView1.ListItems(ListView1.SelectedItem.Index).Text
     
128. 
     
129. 
     
130. 
     
131. 循环查找读取项目:
     
132. 
     
133. Dim i As Integer
     
134. 
     
135. For i = 1 To ListView1.ListItems.Count
     
136. 
     
137.     If ListView1.ListItems(i).Text = 4 Then MsgBox ListView1.ListItems(i).Text '第一列
     
138. 
     
139.     If ListView1.ListItems(i).SubItems(1) = 4 Then MsgBox ListView1.ListItems(i).SubItems(1) '第二列
     
140. 
     
141. Next i
     
142. 
     
143. 
     
144. 
     
145. 清空列表头:
     
146. 
     
147. ListView1.ColumnHeaders.Clear
     
148. 
     
149. 
     
150. 
     
151. 清空列表:
     
152. 
     
153. ListView1.ListItems.Clear
     
154. 
     
155. 
     
156. 
     
157. 右键菜单:
     
158. 
     
159. Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
     
160. 
     
161.     If Button = vbRightButton Then PopupMenu CommandLst '按下鼠标右键 显示菜单
     
162. 
     
163. End Sub
     
164. 
     
165. 
     
166. 
     
167. 当前选中判断:
     
168. 
     
169. Dim N
     
170. 
     
171. If ListView1.ListItems.Count <> 0 Then N = ListView1.SelectedItem.Index Else MsgBox "ABC!", vbInformation, "警告:": Exit Sub
     
172. 
     
173. If N < 1 Then MsgBox "BCD!", vbInformation, "警告:": Exit Sub
     
174. 
     
175. 
     
176. 
     
177. VB设置某行为选中/非选中状态:
     
178. 
     
179. ListView.ListItems(i).Selected = True '选中第i行
     
180. 
     
181. ListView.ListItems(i).Selected = False '选中第i行
     
182. 
     
183. 
     
184. 
     
185. 设置ListView  item项颜色
     
186. 
     
187. 
     
188. 
     
189. ListView1.ListItems(i).ForeColor = vbRed
     
190. 
     
191. ListView1.ListItems(i).ListSubItems.Item(1).ForeColor = vbRed
     
192. 
     
193. ListView1.ListItems(i).ListSubItems.Item(2).ForeColor = vbRed
     
194. 
     
195. 
     

复制代码

ouboy

VB 单击ListView控件某列表头进行排序，实现方法比较简单，不用写什么函数，ListView控件本身就有排序功能了。

1. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
2.    ListView1.Sorted = True
   
3.    ListView1.SortKey = ColumnHeader.Index - 1
   
4.    If ListView1.SortOrder = lvwAscending Then
   
5.         ListView1.SortOrder = lvwDescending
   
6.    Else
   
7.         ListView1.SortOrder = lvwAscending
   
8.    End If
   
9. End Sub
   

复制代码

ouboy

单击ListView某一行，将ListView对应列的值返回到TEXT

1. Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 'ListView1单击事件
   
2. 
   
3.      Item = ListView1.SelectedItem.Text
   
4.     TextBox1.Text = Item
   
5.    
   
6.     TextBox2Text = ListView1.ListItems(Item.Index).SubItems(1)
   
7.     TextBox3.Text = ListView1.ListItems(Item.Index).SubItems(2)
   
8.     TextBox4.Text = ListView1.ListItems(Item.Index).SubItems(3)
   
9.    
   
10. End Sub
    

复制代码

aman1516

楼主有心，谢谢分享

lzqmsy

谢谢分享,学习了

lu_zhao_long

谢谢楼主分享，值得一看！

reverie2008

谢谢楼主分享

xgy0214dxy

谢谢楼主分享{:soso_e178:}

龙蒙山

收藏学习了。谢谢！！！

lzqmsy

ouboy 发表于 2013-7-25 23:15
单击ListView某一行，将ListView对应列的值返回到TEXT

ListView 这个控件是怎么取得的呢?请赐教,多谢!!!