vblistview控件用法.docx

1、vblistview控件用法VBListView控件适用方法 ListView控件 在工具箱上击鼠标右键，选择快捷菜单的Components（部件）项，在控件列表中选择Microsoft Windows Common Controls 5.0控件(Comctl32.ocx)，这个控件中包括ListView、TreeView等几个Windows 95特有的控件。 如果使用的是Visual Basic 6.0，则应该选择Microsoft Windows Common Controls 6.0控件。 将 ColumnHeader 对象添加到 ListView 控件的 ColumnHeaders 集

2、合中。 语法 ListView1.ColumnHeaders.Add(index, key, text, width, alignment, icon) Add 方法的语法包含下面部分： 部分 描述 object 必需的。对象表达式，其值是 ColumnHeaders 集合。 index 可选的。唯一标识对象集合成员的整数。 key 可选的。唯一的字符串表达式，可以用来访问集合的成员。 text 可选的。出现在 ColumnHeader 对象中的字符串。 width 可选的。数值表达式，它使用控件容器的度量单位指定对象的宽度。 alignment 可选的。决定 ColumnHeader 对象中

3、文本对齐方式的整数。关于设置信息，请参阅“请参阅列表中 Alignment 属性的信息。 icon 可选的。Smallicons 图象列表中图象的关键字或索引。 说明 Add 方法返回新插入的 ColumnHeader 对象的引用。 使用 index 参数在 ColumnHeaders 集合的特定位置插入列标头。 当 ColumnHeaders 集合成员可能动态变更时，应使用 Key 属性引用它们，因为任何 ColumnHeader 对象的 Index 属性都可以改变。示例:ListView1.ListItems.Clear 清空列表ListView1.ColumnHeaders.Clear

4、清空列表头ListView1.View = lvwReport 设置列表显示方式ListView1.GridLines = True 显示网络线ListView1.LabelEdit = lvwManual 禁止标签编辑ListView1.FullRowSelect = True 选择整行ListView1.ColumnHeaders.Add , , ID, 500 给列表中添加列名ListView1.ColumnHeaders.Add , , 本地 IP, 1500ListView1.ColumnHeaders.Add , , 本地端口, 900ListView1.ColumnHeaders

5、.Add , , 协议, 550ListView1.ColumnHeaders.Add , , 远程 IP, 1500ListView1.ColumnHeaders.Add , , 远程端口, 900ListView1.ColumnHeaders.Add , , 当前状态, 900ListView1.ColumnHeaders.Add , , 连接时间, 900-Dim XX = ListView1.ListItems.Count + 1ListView1.ListItems.Add , , XListView1.ListItems(X).SubItems(1) = 00:00:00ListV

6、iew1.ListItems(X).SubItems(2) = 2008-01-01ListView1.ListItems(X).SubItems(3) = (无)-ListView1.ListItems.Clear 清空列表ListView1.ListItems.Add , , 1 ListView1.ListItems(1).SubItems(1) = 00:00:00 ListView1.ListItems(1).SubItems(2) = 2008-01-01 ListView1.ListItems(1).SubItems(3) = (无) ListView1.ListItems.Ad

7、d , , 2 ListView1.ListItems(2).SubItems(1) = 00:00:01 ListView1.ListItems(2).SubItems(2) = 2008-01-01 ListView1.ListItems(2).SubItems(3) = (无) -ListView1.View = lvwReport 设置显示方式为列表ListView1.AllowColumnReorder = True 对行进行程序排列，用鼠标进行排列ListView1.Arrange = lvwAutoLeft 图标横排列ListView1.Arrange = lvwAutoTop

8、图标竖排列ListView1.FlatScrollBar = False 显示滚动条ListView1.FlatScrollBar = True 隐藏滚动条ListView1.FullRowSelect = True 选择整行ListView1.LabelEdit = lvwManual 禁止标签编辑ListView1.GridLines = True 显示网络线ListView1.LabelWrap = True 图标可以换行ListView1.MultiSelect = True 可以选择多个项目ListView1.PictureAlignment = lvwTopLeft 图片对齐方式是

9、左顶部，其他有右顶部(1)、左底部(2)、右底部(3)、居中(4)、平铺(5)ListView1.Checkboxes = True 显示复选框ListView1.DropHighlight = ListView1: ListItems.Item (2) 显示系统颜色 获取当前行数和列数:MsgBox 行数： & ListView1.ListItems.Count & 列数： & ListView1.ColumnHeaders.CountPrivate Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Singl

10、e, y As Single) ListView1.ToolTipText = 行数： & ListView1.ListItems.Count & 列数： & ListView1.ColumnHeaders.Count End Sub 设置宽度:ListView1.ColumnHeaders.Add , , 备注 ,1500当前选中行:msgbox ListView1.SelectedItem.index获取复选框的值：msgbox ListView1.ListItems(1).Checked删除指定行:ListView1.ListItems.Remove 1去掉鼠标左键点击标签编辑:labe

11、ledit属性改为1读取某行第一列内容:ListView1.ListItems(i).Text读取某行第几列内容(不包括第一列):ListView1.ListItems(Num).SubItems(4)读取当前选中行第一列内容:ListView1.ListItems(ListView1.SelectedItem.Index).Text循环查找读取项目:Dim i As IntegerFor i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).Text = 4 Then MsgBox ListView1.ListItems(i

12、).Text 第一列 If ListView1.ListItems(i).SubItems(1) = 4 Then MsgBox ListView1.ListItems(i).SubItems(1) 第二列Next i清空列表头:ListView1.ColumnHeaders.Clear 清空列表:ListView1.ListItems.Clear右键菜单:Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = vbRightButton

13、Then PopupMenu CommandLst 按下鼠标右键 显示菜单End Sub当前选中判断:Dim NIf ListView1.ListItems.Count 0 Then N = ListView1.SelectedItem.Index Else MsgBox 当前没有任何主机在线!, vbInformation, 警告: Exit SubIf N 1 Then MsgBox 你没有选中任何主机!, vbInformation, 警告: Exit SubVB设置某行为选中/非选中状态:ListView.ListItems(i).Selected = True 选中第i行ListVi

14、ew.ListItems(i).Selected = False 选中第i行一、View 属性ListView 控件作为一个可以显示图标或者子项的列表控件，它最重要的属性就是 View 属性，该属性决定了以哪种视图模式显示控件的项，这四种视图模式分别如下：art_myurl1、LartIcon：大图标视图模式，在项的文本旁显示大的图标，在控件宽度足够的情况下，项是如图一中的盘符一样优先以平行排列的，排列不完的则自动换行显示在新行中。2、SmallIcon：小图标视图模式，与大图标模式一样，但是显示的是小的图标。3、List：列表视图模式，显示小图标，但是项是垂直排列的，只显示单列。4、Deta

15、ils：详细资料视图模式，是最丰富的选项，它不但允许您查看项，还允许您查看为各项指定的任何子项。各项在网格中显示，它们垂直排列且其子项会显示在列中（带有列标头）。对应地，只有在Details 视图模式中起作用的控件属性为：GridLines 和 FullRowSelect，GridLines 属性指示在包含控件中项及其子项的行和列之间是否显示网格线。FullRowSelect 属性指示单击某项是否选择其所有子项(即整行选中)，如下图三所示便是GridLines 和 FullRowSelect 属性都设置为True的情况：图三：显示网格线与整行选中延伸阅读：使用ListView 控件显示系统驱动

16、器上一篇文章我们了解了 ListView 控件的使用(相关文章：入门ListView 控件的使用)，这里我们就来用ListView 控件模仿制作一个Windows操作系统中“我的电脑”中显示的磁盘驱动器信息列表，以加深对 ListView 控件的印象。需要了解 ListView 控件的基本使用。ListView 控件中还有一个HeaderStyle 属性也是在Details 视图模式下才起作用，HeaderStyle 属性指示列标头样式，它有下面三种显示样式：1、Clickable：列标头的作用类似于按钮，单击时可以执行操作（例如排序）。2、Nonclickable：列标头不响应鼠标单击。3、

17、None：列标头在报表视图中不显示。二、Items 属性此外，ListView 控件最重要的属性是 Items 属性，它包含了控件所有的存在的项。SelectedItems 属性是控件当前选定项的集合，同时和它关联的 SelectedIndices 属性是控件中选定项的索引集合，如下示例所示，我们分别在SelectedItems 属性和SelectedIndices 属性中获取所选项索引，窗体上拖放了ListView控件和一个Button 控件，且已经往ListView控件中添加了若干列和行，代码如下：Private Sub Button1_Click(ByVal sender As Syst

18、em.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i As Integer = 0Dim str As String = For i = 0 To ListView1.SelectedItems.Count - 1str = str & 选中项索引= & ListView1.SelectedItems.Item(i).Index.ToString & ；str = str & 在控件中的索引= & ListView1.SelectedIndices.Item(i).ToString & vbCrNextMessag

19、eBox.Show(str)End Subart_myurl运行后显示效果如下图四所示：图四两个属性都能获得所选项在控件中的索引，我们在实际应用的时候可以灵活选择使用它们中的一个，以达到简化代码的目的。延伸阅读：使用ListView 控件显示系统驱动器上一篇文章我们了解了 ListView 控件的使用(相关文章：入门ListView 控件的使用)，这里我们就来用ListView 控件模仿制作一个Windows操作系统中“我的电脑”中显示的磁盘驱动器信息列表，以加深对 ListView 控件的印象。需要了解 ListView 控件的基本使用。三、ListView 的其他重要属性ListView

20、控件还有一些比较常用的重要属性1、Activation 属性Activation 属性指定用户激活 ListView 控件中的项的方式，它包括三个可选值：OneClick：用户必须单击以激活项。光标更改为手形指针光标，项文本在用户将鼠标指针移动到项上时更改颜色。Standard：用户必须双击以激活项。在用户将鼠标指针移动到项上时没有提供任何反馈。TwoClick：用户必须双击以激活项，项文本在用户将鼠标指针移动到项上时更改颜色。激活 ListView 中的项与只选择项是不同的。当激活某个项时，通常会在 ItemActivate 事件的事件处理程序中执行一个操作。例如，当激活某个项时，您可能会打

21、开一个文件或显示一个允许用户对项进行编辑的对话框。通常，项的激活是通过用户对它进行双击来实现的。如果 Activation 属性设置为 OneClick，那么单击该项一次即可将其激活。将 Activation 属性设置为 TwoClick 与标准的双击不同，这是因为两次单击之间的时间间隔可以是任意的。注意如果将 Activation 属性设置为 ItemActivation.OneClick 或 ItemActivation.TwoClick，则不管 LabelEdit 属性的值是什么，都不允许进行标签编辑。设置 Activation 属性实际上就是决定以何种方式来触发 ItemActivat

22、e 事件，如果我们需要在激活项的时候进行额外的操作，例如弹出一个关联的对话框来，则可以在 ItemActivate 事件中编写合适代码来完成，如下代码所示：Private Sub ListView1_ItemActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.ItemActivateMessageBox.Show(你想做什么)可以在这里添加我们需要的操作End Subart_myurl代码运行后，我们激活选项，如下图五所示：2、LabelEdit 属性LabelEdit 属性指示用户是否

23、可以编辑控件中项的标签。当 LabelEdit 属性设置为 true 时，用户可以单击项文本，将其选中，然后再次单击项文本，将标签文本置于编辑模式，然后，用户可以修改或替换项的文本标签。在用户编辑项文本之前和之后，您可以使用 BeforeLabelEdit 和 AfterLabelEdit 事件来执行任务。如果该属性设置为 true，则无法修改子项的文本。要更改子项的文本，您可以在用户双击控件中的子项时为其显示对话框。3、LabelWrap 属性LabelWrap 属性指示当项作为图标在控件中显示时，项标签是否换行。当 LabelWrap 属性设置为 true 时，如果需要，项文本会换至文本的

24、下一行。如果文本长于两行，则文本将缩短。如果用户选择了该项，则显示所有项文本。如果 LabelWrap 属性设置为 false，则所有项文本都将显示在单独一行中。整个项文本在 LabelWrap 设置为 false 时显示。只有在 View 属性设置为 LargeIcon 或 SmallIcon 时才使用该属性。4、MultiSelect 属性MultiSelect 属性指示是否可以选择多个项。当 MultiSelect 属性设置为 true 时，可在 ListView 控件中选择多个项。5、Scrollable 属性Scrollable 属性指示在没有足够空间来显示所有项时，是否显示滚动条。

25、6、Sorting 属性Sorting 属性指示控件中项的排序顺序。Sorting 属性允许指定项在 ListView 控件中是否排序。默认情况下，不执行排序。当 Sorting 属性设置为 Ascending 或 Descending 时，ListView 中的项自动按照升序字母顺序（当属性设置为 Ascending 时）或降序字母顺序（当属性设置为 Descending 时）进行排序。您可以使用该属性对 ListView 控件中显示的项进行自动排序，使用户在大量项可用时更容易查找到项。如果您要自己执行对项的排序，而不使用 Sorting 属性，可与 Sort 方法一起使用 ListView

26、ItemSorter 属性。art_myurl7、LargeImageList 属性LargeImageList 属性设置当项以大图标在控件中显示时使用的 ImageList。8、SmallImageList 属性SmallImageList 属性设置当项以小图标在控件中显示时使用的 ImageList。面我们了解了ListView 的一些主要属性，下面我们来看如何使用它。四、向ListView 控件添加项1、我们可以使用ListViewItem集合编辑器来为控件添加项方法是在ListView 控件的属性窗口中选择Items属性。2、还可以使用 ListView 控件的Items.Add()方

27、法来为它添加新的项，Add()方法的格式如下：Add(text,imageIndex)text 为要添加项所显示的文本imageIndex 为可选参数，指示所对应ImageList中的图标索引示例：为窗体添加一个ListView 控件，一个ImageList 控件，一个Button控件，然后在代码编辑器中添加如下代码:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim mItem As ListViewItemDim i As

28、 Integer = 0ListView1.LargeImageList = Me.ImageList1ListView1.View = View.LargeIconFor i = 0 To 3ListView1.Items.Add(Item & i, i)NextEnd Sub运行后，单击按钮，效果如下图六所示：图六：添加Item也可以使用如下代码来添加Item，其运行效果是一样的：art_myurlPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But

29、ton1.ClickListView1.LargeImageList = Me.ImageList1ListView1.View = View.LargeIconDim item0 As New ListViewItem(item 0, 0)Dim item1 As New ListViewItem(item 1, 1)Dim item2 As New ListViewItem(item 2, 2)Dim item3 As New ListViewItem(item 3, 3)ListView1.LargeImageList = Me.ImageList1ListView1.Items.Add

30、Range(New ListViewItem() item0, item1, item2, item3)End Sub五、为ListView 控件添加列标题当我们使用ListView 控件的Details 视图模式的时候，就必须为控件添加对应的列标题，才能显示出它所有的项。1、视图模式下添加列标题一般我们显示一个列表的时候，其列标题都应该是固定的，所以我们可以在视图模式中预先设置好列标题，这样比较直观。先选中ListView 控件，然后在它的属性窗口中找到 Columns 属性，单击后面的省略符号，如下图七所示：图七：Columns 属性然后在弹出的集合编辑器中添加和删除列标题即可，我们可以在编辑器的右边