来源:http://lcx.cc/?i=494

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", 1500
ListView1.ColumnHeaders.Add , , "本地端口", 900
ListView1.ColumnHeaders.Add , , "协议", 550
ListView1.ColumnHeaders.Add , , "远程 IP", 1500
ListView1.ColumnHeaders.Add , , "远程端口", 900
ListView1.ColumnHeaders.Add , , "当前状态", 900
ListView1.ColumnHeaders.Add , , "连接时间", 900
-------------------------------------------------------
Dim X
X = ListView1.ListItems.Count + 1
ListView1.ListItems.Add , , X
ListView1.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)  '显示系统颜色

获取当前行数和列数:
MsgBox "行数:" & ListView1.ListItems.Count & "列数:" & ListView1.ColumnHeaders.Count

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.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 Integer
For 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 N
If ListView1.ListItems.Count <> 0 Then N = ListView1.SelectedItem.Index Else MsgBox "当前没有任何主机在线!", vbInformation, "警告:": Exit Sub
If N < 1 Then MsgBox "你没有选中任何主机!", vbInformation, "警告:": Exit Sub

VB设置某行为选中/非选中状态:
ListView.ListItems(i).Selected = True '选中第i行
ListView.ListItems(i).Selected = False '选中第i行

【VB技巧】VB ListView 控件功能使用详解的更多相关文章

  1. 转 VB ListView控件各种操作详解

    Private Sub Form_Load() ListView1.ListItems.Clear '清空列表 ListView1.ColumnHeaders.Clear '清空列表头 ListVie ...

  2. 《手把手教你》系列技巧篇(三十八)-java+ selenium自动化测试-日历时间控件-下篇(详解教程)

    1.简介 理想很丰满现实很骨感,在应用selenium实现web自动化时,经常会遇到处理日期控件点击问题,手工很简单,可以一个个点击日期控件选择需要的日期,但自动化执行过程中,完全复制手工这样的操作就 ...

  3. 《手把手教你》系列技巧篇(三十七)-java+ selenium自动化测试-日历时间控件-上篇(详解教程)

    1.简介 我们在实际工作中,有可能遇到有些web产品,网页上有一些时间选择,然后支持按照不同时间段范围去筛选数据.网页上日历控件一般,是一个文本输入框,鼠标点击,就会弹出日历界面,可以选择具体日期.这 ...

  4. iOS:选择器控件UIPickerView的详解和演示

    选择器控件UIPickerView: 功能:它能够创建一个类似于密码锁式的单列或多列的选择菜单,用户可以通过它设置的代理来选择需要菜单中的任意的数据.例如创建日历.字体表(类型.大小.颜色).图库等. ...

  5. delphi控件属性大全-详解-简介

    http://blog.csdn.net/u011096030/article/details/18716713 button 组件: CAPTION 属性 :用于在按钮上显示文本内容 Cancel ...

  6. iOS:提示框(警告框)控件UIActionSheet的详解

    提示框(警告框)控件2:UIActionSheet 功能:当点击按钮或标签等时,弹出一个提示框,显示必要的提示,然后通过添加的按钮完成需要的功能.它与导航栏类似,它继承自UIView.   风格类型: ...

  7. iOS:提示框(警告框)控件UIAlertView的详解

    提示框(警告框)控件:UIAlertView   功能:当点击按钮或标签等时,弹出一个提示框,显示必要的提示,然后通过添加的按钮完成需要的功能.   类型:typedef NS_ENUM(NSInte ...

  8. iOS:网页视图控件UIWebView的详解

    网页视图控件:UIWebView 功能:它是继承于UIView的,是一个内置的浏览器控件,以用来浏览从网络下载下来的网页或者本地上加载下来的文档. 枚举: //网页视图导航类型 typedef NS_ ...

  9. iOS:图像选取器控制器控件UIImagePickerController的详解

    图像选择控制器:UIImagePickerController 功能:用于选取相册或相机等里面的照片. @interface UIImagePickerController : UINavigatio ...

随机推荐

  1. Notes of Linked Data concept and application - TODO

    Motivation [反正债多了不愁,再开个方向.] Data plays a core role in most business systems, data storage and retrie ...

  2. linux 网络协议分析---3

    本章节主要介绍linxu网络模型.以及常用的网络协议分析以太网协议.IP协议.TCP协议.UDP协议 一.网络模型 TCP/IP分层模型的四个协议层分别完成以下的功能: 第一层 网络接口层 网络接口层 ...

  3. leetcode 123. Best Time to Buy and Sell Stock III ----- java

    Say you have an array for which the ith element is the price of a given stock on day i. Design an al ...

  4. Crawler4j学习笔记

    Crawler4j概述 crawler4j是一款基于Java的轻量级单机开源爬虫框架,最大的一个特点就是简单.另外也支持多线程.支持代理.可以过滤重复URL 基本上从加载jar到工程里面 通过修改示例 ...

  5. Windows编程基础

    主要内容:介绍Windows编程的一些基础概念 1.窗口的概念 <1>一个应用程序的窗口通常包括控制菜单框.下拉菜单. 工作区以及最大化按钮.最小化按钮, 还有垂直滚动条.水平滚动条 &l ...

  6. PHP设置图片文件上传大小的具体实现方法

    PHP默认的上传限定是最大2M,想上传超过此设定的文件,需要调整PHP.apache等的一些参数 我们简要介绍一下PHP文件上传涉及到的一些参数: •file_uploads :是否允许通过HTTP上 ...

  7. Java基础相关

    对老师上课内容进行总结: 1.新建一个Java项目,并命名为HelloWorld 然后再新建类,并命名为HelloWorld,注意红色画圈部分 若勾选,则新建类开头为(“//后的内容为老师所讲批注”) ...

  8. php get set方法深入理解

    在类当中,设计通用的set和get方法,可以简化对属性的读写,这种方法不同于针对于独立的属性的普通的get和set方法,后者针对每个属性,都必须提供一对方法,前者针对所有属性,因此,可以看作是批量定义 ...

  9. MFC开发上位机到底用Dialog结构还是文档结构?

    最近要跟着导师一起开发一款大型上位机.MFC新人在考虑用对话框结构还是文档结构. 虽然说书上说大型结构的软件都需要文档结构,但是目前来看,对话框可以实现功能,并且对话框的程序更小一些,节省资源加载速度 ...

  10. APK软件反编译 去广告

    具体步骤: 1.下载 apktool 下载地址:https://code.google.com/p/android-apktool/downloads/list 2.通过apktool 反编译apk. ...