VB ListView 控件
发布时间:2020-12-16 22:30:41 所属栏目:大数据 来源:网络整理
导读:Private Sub Form_Load() ListView1.ListItems.Clear '清空列表 ListView1.ColumnHeaders.Clear '清空列表头 ListView1.View = lvwReport '设置列表显示方式 ListView1.GridLines = True '显示网络线 ListView1.LabelEdit = lvwManual '禁止标签编辑 ListVie
Private Sub Form_Load()
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,"本地端口",1200
ListView1.ColumnHeaders.Add,"协议",550
ListView1.ColumnHeaders.Add,"远程 IP","远程端口",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) '显示系统颜色
End Sub
常用操作:
获取当前行数和列数:
设置宽度:
当前选中行:
获取复选框的值:
删除指定行:
去掉鼠标左键点击标签编辑: 读取某行第一列内容:
读取某行第几列内容 (不包括第一列):
读取当前选中行第一列内容:
循环查找读取项目:
清空列表头:
清空列表:
右键菜单:
当前选中判断:
VB设置某行为选中/非选中状态:
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |