VB ListView 控件

概述Private Sub Form_Load() ListView1.ListItems.Clear '清空列表 ListView1.ColumnHeaders.Clear '清空列表头 ListView1.View = lvwReport '设置列表显示方式 ListView1.GridLin

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

常用 *** 作：
获取当前行数和列数:

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.CountEnd 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,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 "你没有选中任何主机!","警告:": Exit Sub

VB设置某行为选中/非选中状态:

ListVIEw.ListItems(i).Selected = True '选中第i行ListVIEw.ListItems(i).Selected = False '选中第i行

总结

以上是内存溢出为你收集整理的VB ListView 控件全部内容，希望文章能够帮你解决VB ListView 控件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。