vblistview控件用法.doc

学习资料收集于网络，仅供参考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:00ListView1.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.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) 显示系统颜色 获取当前行数和列数:MsgBox 行数： & ListView1.ListItems.Count & 列数： & ListView1.ColumnHeaders.CountPrivate 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.SelectedItem.index获取复选框的值：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 清空列表:ListView1.ListItems.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 0 ThenListView1.View = View.DetailsIf 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.View = View.LargeIconListView1.LargeImageList = Me.ImageList1ListView1.SmallImageList = Me.ImageList2ListView1.FullRowSelect = FalseListView1.GridLines = FalseDim drvDisk As DriveDim i As Integer创建FileSystemObject对象Dim fso As New Scripting.FileSystemObjectDriveLetter返回某个物理本地驱动器或网络共享的驱动器字母。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)取得驱动器类型,判断驱动器类型，决定所所以用的图标iDriveType = drvDisk.DriveType取得驱动器的卷标strVolumeName = drvDisk.VolumeNameDim 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 DiskintImage = 0If strVolumeName = ThenstrVolumeName = RAM DiskEnd IfEnd Select取得代表驱动器的字母strDriveLetter = drvDisk.DriveLetter取得驱动器的大小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 控件可以用来显示各项带图标的列表，也可以用来显示带有子项的列表。然后把 LoadDriveInfo() 过程添加到窗体的New()过程中如下图所示：图五：把LoadDriveInfo() 过程添加到窗体的New()中4、最后为ListView1控件的Click事件添加代码，用于当选中一个驱动器的时候显示驱动器的详细信息，代码如下所示：Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.ClickIf ListView1.SelectedItems.Count = 1 ThenDim fso As New Scripting.FileSystemObjectDim drvDisk As Drive = fso.GetDrive(StrDrive(ListView1.SelectedIndices(0)Dim iDriveType As String = drvD