vblistview控件用法(23页).doc

-vblistview控件用法-第 23 页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 集合中。  语法 ListView1.ColumnHeaders.Add(index, key, text, width, alignment, icon) Add 方法的语法包含下面部分： 部分  描述 object   必需的。对象表达式，其值是 ColumnHeaders 集合。 index   可选的。唯一标识对象集合成员的整数。 key   可选的。唯一的字符串表达式，可以用来访问集合的成员。 text   可选的。出现在 ColumnHeader 对象中的字符串。 width   可选的。数值表达式，它使用控件容器的度量单位指定对象的宽度。 alignment  可选的。决定 ColumnHeader 对象中文本对齐方式的整数。关于设置信息，请参阅“请参阅列表中 Alignment 属性的信息。 icon   可选的。Smallicons 图象列表中图象的关键字或索引。 说明 Add 方法返回新插入的 ColumnHeader 对象的引用。 使用 index 参数在 ColumnHeaders 集合的特定位置插入列标头。 当 ColumnHeaders 集合成员可能动态变更时，应使用 Key 属性引用它们，因为任何 ColumnHeader 对象的 Index 属性都可以改变。示例:ListView1.ListItems.Clear               '清空列表ListView1.ColumnHeaders.Clear           '清空列表头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.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:00"ListView1.ListItems(X).SubItems(2) = "2008-01-01"ListView1.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.Add , , "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          '图标竖排列ListView1.FlatScrollBar = False         '显示滚动条ListView1.FlatScrollBar = True          '隐藏滚动条ListView1.FullRowSelect = True          '选择整行ListView1.LabelEdit = lvwManual         '禁止标签编辑ListView1.GridLines = True              '显示网络线ListView1.LabelWrap = True              '图标可以换行ListView1.MultiSelect = True            '可以选择多个项目ListView1.PictureAlignment = lvwTopLeft '图片对齐方式是左顶部，其他有右顶部(1)、左底部(2)、右底部(3)、居中(4)、平铺(5)ListView1.Checkboxes = True             '显示复选框ListView1.DropHighlight = ListView1: ListItems.Item (2)  '显示系统颜色 Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) ListView1.ToolTipText = "行数：" & ListView1.ListItems.Count & "列数：" & ListView1.ColumnHeaders.Count End Sub 设置宽度:ListView1.ColumnHeaders.Add , , "备注" ,1500获取复选框的值：msgbox ListView1.ListItems(1).Checked删除指定行:ListView1.ListItems.Remove 1去掉鼠标左键点击标签编辑:labeledit属性改为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).Text '第一列    If ListView1.ListItems(i).SubItems(1) = 4 Then MsgBox ListView1.ListItems(i).SubItems(1) '第二列Next i清空列表头:ListView1.ColumnHeaders.Clear 右键菜单:Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = vbRightButton 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行ListView.ListItems(i).Selected = False '选中第i行一、View 属性ListView 控件作为一个可以显示图标或者子项的列表控件，它最重要的属性就是 View 属性，该属性决定了以哪种视图模式显示控件的项，这四种视图模式分别如下：art_myurl1、LartIcon：大图标视图模式，在项的文本旁显示大的图标，在控件宽度足够的情况下，项是如图一中的盘符一样优先以平行排列的，排列不完的则自动换行显示在新行中。2、SmallIcon：小图标视图模式，与大图标模式一样，但是显示的是小的图标。3、List：列表视图模式，显示小图标，但是项是垂直排列的，只显示单列。4、Details：详细资料视图模式，是最丰富的选项，它不但允许您查看项，还允许您查看为各项指定的任何子项。各项在网格中显示，它们垂直排列且其子项会显示在列中（带有列标头）。对应地，只有在Details 视图模式中起作用的控件属性为：GridLines 和 FullRowSelect，GridLines 属性指示在包含控件中项及其子项的行和列之间是否显示网格线。FullRowSelect 属性指示单击某项是否选择其所有子项(即整行选中)，如下图三所示便是GridLines 和 FullRowSelect 属性都设置为True的情况：图三：显示网格线与整行选中延伸阅读：使用ListView 控件显示系统驱动器ListView 控件的使用)，这里我们就来用ListView 控件模仿制作一个Windows操作系统中“我的电脑”中显示的磁盘驱动器信息列表，以加深对 ListView 控件的印象。需要了解 ListView 控件的基本使用。ListView 控件中还有一个HeaderStyle 属性也是在Details 视图模式下才起作用，HeaderStyle 属性指示列标头样式，它有下面三种显示样式：1、Clickable：列标头的作用类似于按钮，单击时可以执行操作（例如排序）。2、Nonclickable：列标头不响应鼠标单击。3、None：列标头在报表视图中不显示。二、Items 属性此外，ListView 控件最重要的属性是 Items 属性，它包含了控件所有的存在的项。SelectedItems 属性是控件当前选定项的集合，同时和它关联的 SelectedIndices 属性是控件中选定项的索引集合，如下示例所示，我们分别在SelectedItems 属性和SelectedIndices 属性中获取所选项索引，窗体上拖放了ListView控件和一个Button 控件，且已经往ListView控件中添加了若干列和行，代码如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim i As Integer = 0Dim str As String = ""For i = 0 To ListView1.SelectedItems.Count - 1str = str & "选中项索引=" & ListView1.SelectedItems.Item(i).Index.ToString & "；"s.Item(i).ToString & vbCrNextMessageBox.Show(str)End Subart_myurl运行后显示效果如下图四所示：图四两个属性都能获得所选项在控件中的索引，我们在实际应用的时候可以灵活选择使用它们中的一个，以达到简化代码的目的。延伸阅读：使用ListView 控件显示系统驱动器ListView 控件的使用)，这里我们就来用ListView 控件模仿制作一个Windows操作系统中“我的电脑”中显示的磁盘驱动器信息列表，以加深对 ListView 控件的印象。需要了解 ListView 控件的基本使用。三、ListView 的其他重要属性ListView 控件还有一些比较常用的重要属性1、Activation 属性Activation 属性指定用户激活 ListView 控件中的项的方式，它包括三个可选值：OneClick：用户必须单击以激活项。光标更改为手形指针光标，项文本在用户将鼠标指针移动到项上时更改颜色。Standard：用户必须双击以激活项。在用户将鼠标指针移动到项上时没有提供任何反馈。TwoClick：用户必须双击以激活项，项文本在用户将鼠标指针移动到项上时更改颜色。激活 ListView 中的项与只选择项是不同的。当激活某个项时，通常会在 ItemActivate 事件的事件处理程序中执行一个操作。例如，当激活某个项时，您可能会打开一个文件或显示一个允许用户对项进行编辑的对话框。通常，项的激活是通过用户对它进行双击来实现的。如果 Activation 属性设置为 OneClick，那么单击该项一次即可将其激活。将 Activation 属性设置为 TwoClick 与标准的双击不同，这是因为两次单击之间的时间间隔可以是任意的。注意   如果将 Activation 属性设置为 k 或 ，则不管 LabelEdit 属性的值是什么，都不允许进行标签编辑。设置 Activation 属性实际上就是决定以何种方式来触发 ItemActivate 事件，如果我们需要在激活项的时候进行额外的操作，例如弹出一个关联的对话框来，则可以在  ItemActivate 事件中编写合适代码来完成，如下代码所示：Private Sub ListView1_ItemActivate(ByVal sender As Object, ByVal e As System.EventArgs) HandlesMessageBox.Show("你想做什么")'可以在这里添加我们需要的操作End Subart_myurl代码运行后，我们激活选项，如下图五所示：2、LabelEdit 属性LabelEdit 属性指示用户是否可以编辑控件中项的标签。当 LabelEdit 属性设置为 true 时，用户可以单击项文本，将其选中，然后再次单击项文本，将标签文本置于编辑模式，然后，用户可以修改或替换项的文本标签。在用户编辑项文本之前和之后，您可以使用 BeforeLabelEdit 和 AfterLabelEdit 事件来执行任务。如果该属性设置为 true，则无法修改子项的文本。要更改子项的文本，您可以在用户双击控件中的子项时为其显示对话框。3、LabelWrap 属性LabelWrap 属性指示当项作为图标在控件中显示时，项标签是否换行。当 LabelWrap 属性设置为 true 时，如果需要，项文本会换至文本的下一行。如果文本长于两行，则文本将缩短。如果用户选择了该项，则显示所有项文本。如果 LabelWrap 属性设置为 false，则所有项文本都将显示在单独一行中。整个项文本在 LabelWrap 设置为 false 时显示。只有在 View 属性设置为 LargeIcon 或 SmallIcon 时才使用该属性。4、MultiSelect 属性MultiSelect 属性指示是否可以选择多个项。当 MultiSelect 属性设置为 true 时，可在 ListView 控件中选择多个项。5、Scrollable 属性Scrollable 属性指示在没有足够空间来显示所有项时，是否显示滚动条。6、Sorting 属性Sorting 属性指示控件中项的排序顺序。Sorting 属性允许指定项在 ListView 控件中是否排序。默认情况下，不执行排序。当 Sorting 属性设置为 Ascending 或 Descending 时，ListView 中的项自动按照升序字母顺序（当属性设置为 Ascending 时）或降序字母顺序（当属性设置为 Descending 时）进行排序。您可以使用该属性对 ListView 控件中显示的项进行自动排序，使用户在大量项可用时更容易查找到项。如果您要自己执行对项的排序，而不使用 Sorting 属性，可与 Sort 方法一起使用 ListViewItemSorter 属性。art_myurl7、LargeImageList 属性LargeImageList 属性设置当项以大图标在控件中显示时使用的 ImageList。8、SmallImageList 属性SmallImageList 属性设置当项以小图标在控件中显示时使用的 ImageList。面我们了解了ListView 的一些主要属性，下面我们来看如何使用它。四、向ListView 控件添加项1、我们可以使用ListViewItem集合编辑器来为控件添加项方法是在ListView 控件的属性窗口中选择Items属性。2、还可以使用 ListView 控件的Items.Add()方法来为它添加新的项，Add()方法的格式如下：Add(text,imageIndex)text 为要添加项所显示的文本imageIndex 为可选参数，指示所对应ImageList中的图标索引示例：为窗体添加一个ListView 控件，一个ImageList 控件，一个Button控件，然后在代码编辑器中添加如下代码:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim mItem As ListViewItemDim i As Integer = 0ListView1.LargeImageList = Me.ImageList1For 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) HandlesListView1.LargeImageList = Me.ImageList1Dim 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.AddRange(New ListViewItem() item0, item1, item2, item3)End Sub五、为ListView 控件添加列标题当我们使用ListView 控件的Details 视图模式的时候，就必须为控件添加对应的列标题，才能显示出它所有的项。1、视图模式下添加列标题一般我们显示一个列表的时候，其列标题都应该是固定的，所以我们可以在视图模式中预先设置好列标题，这样比较直观。先选中ListView 控件，然后在它的属性窗口中找到 Columns 属性，单击后面的省略符号，如下图七所示：图七：Columns 属性然后在弹出的集合编辑器中添加和删除列标题即可，我们可以在编辑器的右边中编辑对应的列显示的文本、宽度以及文字对齐方式，如下图八所示：图八：编辑列的显示属性添加完列标题之后记得把ListView 控件的View 属性设置为 Details，才能显示出列标题来。art_myurl、使用代码来添加列标题我们可以使用Columns.Add方法来动态添加列标头，使用Columns.Clear()方法来清除所有的列标头，如下代码所示，动态添加四个列标题，其中每个列头的宽为50，Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesListView1.GridLines = TrueListView1.Columns.Clear()ListView1.Columns.Add("列 1", 50, HorizontalAlignment.Left)ListView1.Columns.Add("列 2", 50, HorizontalAlignment.Left)ListView1.Columns.Add("列 3", 50, HorizontalAlignment.Left)ListView1.Columns.Add("列 4", 50, HorizontalAlignment.Center)ListView1.Refresh()End Sub运行后，单击按钮，效果如下图九所示：图九：动态添加列标题效果上一篇文章我们了解了 ListView 控件的使用(相关文章：入门ListView 控件的使用)，这里我们就来用ListView 控件模仿制作一个Windows操作系统中“我的电脑”中显示的磁盘驱动器信息列表，以加深对 ListView 控件的印象。一、技术准备1、获取驱动器列表在以前vb6中，有一个DriveListBox 控件可以获取系统驱动器列表，但是在中不存在了这个控件，我们可以使用Director 类来获得驱动器列表，该类在System.IO 命名空间下。2、获取驱动器相关信息Director 类只能获取驱动器的列表，我们还需要获得驱动器中的卷标，文件类型，磁盘大小，可用空间等详细信息，这些信息可以通过FSO(文件系统对象模型)实现。FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。调用方法如下：在项目菜单中选择引用，在COM中选择Microsoft Scripting Runtime，如下图所示：图一：引用SCRIPTING空间然后在代码最顶端添加Imports Scripting3、了解ListVIew 控件需要了解 ListView 控件的基本使用，相关文章可以参看：入门ListView 控件的使用，本文需要涉及到ListView 控件的View 属性的四个枚举值切换，以及列标题的添加、项的添加。拓展阅读：ListView 控件的使用下面我们就先来了解下ListView控件的基本应用，在中的工具箱中，ListView 控件的图标如下图二所示。如下图一所示就是“我的电脑”中使用ListView 控件来显示本机所有盘符。ListView 控件可以用来显示各项带图标的列表，也可以用来显示带有子项的列表。二、布局窗体控件首先我们创建一个空白的Windows项目，然后在Form1窗体上拖放如下控件：1、拖放两个ImageList 控件：分别为这两个控件添加如下图二所示的图标(按文件顺序添加，图标文件单击这里下载)：图二：程序要用到的图标ImageList1 组件的 ImageSize属性(图标大小)设置为 32×32，ImageList2 组件的 ImageSize属性设置为 16×16，如下图三所示：图三：设置图标显示的大小2、拖放一个 ListView 控件到窗体中，把ListView 控件的Dock 属性设置为 Fill。3、拖放一个 MainMenu 组件到窗体中，然后为 MainMenu 组件添加如下图四所示的菜单项：图四：添加菜单4、拖放一个 ToolTip 控件到窗体上，该控件用于当选择一个盘符时以工具提示的方式显示驱动器的详细信息。窗体布局完毕后，下面就进入代码编写的步骤了。拓展阅读：ListView 控件的使用下面我们就先来了解下ListView控件的基本应用，在中的工具箱中，ListView 控件的图标如下图二所示。如下图一所示就是“我的电脑”中使用ListView 控件来显示本机所有盘符。ListView 控件可以用来显示各项带图标的列表，也可以用来显示带有子项的列表。三、代码编写1、首先在Form1窗体代码中添加命名空间的引用：ImportsImports Scripting然后定义一个全局变量Public StrDrive() As String '驱动器数组2、为菜单的四个子菜单编写代码，代码如下：Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesEnd SubPrivate Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesEnd SubPrivate Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesEnd SubPrivate Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesIf ListView1.Items.Count > 0 ThenIf ListView1.Columns.Count = 0 Then'如果不在这里添加列标头，则View=List的时候无法显示'为控件添加列标头ListView1.Columns.Add("名称", -1, HorizontalAlignment.Center)ListView1.Columns.Add("类型", -1, HorizontalAlignment.Center)ListView1.Columns.Add("大小", -1, HorizontalAlignment.Center)ListView1.Columns.Add("可用空间", -1, HorizontalAlignment.Center)'下面代码为自动调整ListView1列的宽度Dim i As IntegerFor i = 0 To 3ListView1.Columns(i).Width = -1NextEnd IfEnd IfEnd Sub拓展阅读：ListView 控件的使用下面我们就先来了解下ListView控件的基本应用，在中的工具箱中，ListView 控件的图标如下图二所示。如下图一所示就是“我的电脑”中使用ListView 控件来显示本机所有盘符。ListView 控件可以用来显示各项带图标的列表，也可以用来显示带有子项的列表。、创建一个载入驱动器信息的过程，代码如下所示：Sub LoadDriveInfo()ListView1.Items.Clear()ListView1.Columns.Clear()ListView1.LargeImageList = Me.ImageList1ListView1.SmallImageList = Me.ImageList2ListView1.FullRowSelect = FalseListView1.GridLines = FalseDim drvDisk As DriveDim i As Integer'创建FileSystemObject对象Dim fso As New'DriveLetter返回某个物理本地驱动器或网络共享的驱动器字母。'VolumeName返回某个启动器的卷标Dim iDriveType As Integer '驱动器类型Dim strVolumeName As String '驱动器卷标Dim strDriveLetter As String '驱动器字母Dim iDriveSpace As Double '驱动器空间Dim iDriveFreeSpace As Double '驱动器可用空间'取得驱动器数组StrDrive = System.IO.Directory.GetLogicalDrives()For i = 0 To StrDrive.Length - 1'取得驱动器drvDisk = fso.GetDrive(StrDrive(i)'取得驱动器类型,判断驱动器类型，决定所所以用的图标'取得驱动器的卷标Dim intImage As Integer = 0 '所显示的图标索引Select Case iDriveTypeCase 0 '"Unknown",未知intImage = 0If strVolumeName = "" ThenstrVolumeName = "未知磁盘"End IfCase 1 '"Removable"，可移动存储，包括软盘驱动器和其他多种存储设备intImage = 1If strVolumeName = "" ThenstrVolumeName = "可移动磁盘"End IfCase 2 '"Fixed"，固定（不可移动）媒体驱动器，包括所有硬盘驱动器（包括可移动的硬盘驱动器）。intImage = 0If strVolumeName = "" ThenstrVolumeName = "本地磁盘"End IfCase 3 '"Network"，网络硬盘intImage = 0If strVolumeName = "" ThenstrVolumeName = "网络磁盘"End IfCase 4 '"CD-ROM"，光驱intImage = 2If strVolumeName = "" ThenstrVolumeName = "光驱"End IfCase 5 '"RAM Disk"intImage = 0If strVolumeName = "" ThenstrVolumeName = "RAM Disk"End IfEnd Select'取得代表驱动器的字母'取得驱动器的大小iDriveSpace = Math.Round(CDbl(drvDisk.TotalSize) / 1024) / 1024) / 1024, 2)'取得驱动器可用空间iDriveFreeSpace = Math.Round(CDbl(drvDisk.FreeSpace) / 1024) / 1024) / 1024, 2)'以下代码把驱动器的信息添加到ListView控件中Dim mListItem As ListViewItemDim str As Stringstr = strVolumeName & "(" & strDriveLetter & ":)"mListItem = ListView1.Items.Add(str, intImage)mListItem.SubItems.Add(drvDisk.DriveType.ToString)mListItem.SubItems.Add(iDriveSpace.ToString & "GB")mListItem.SubItems.Add(iDriveFreeSpace.ToString & "GB")NextEnd Sub拓展阅读：ListView 控件的使用下面我们就先来了解下ListView控件的基本应用，在中的工具箱中，ListView 控件的图标如下图二所示。如下图一所示就是“我的电脑”中使用ListView 控件来显示本机所有盘符。ListView 控件可以用来显示各项带图标的列表，也可以用来显示带有子项的列表。然后把