ListView用法.doc

第一步：添加列头 可在form_load里边添加，如下： 初始化 ListView1.FullRowSelect = True （允许整行选择） listview1.gridlines=true (显示网格) listview1.checkboxs=true 显示checkboxs框 listview1.view=3 以报表形式显示 ListView1.ColumnHeaders.Clear ListView1.ColumnHeaders.Add 1, , 姓名, 1000 ListView1.ColumnHeaders.Add 2, , 性别, 500 ListView1.ColumnHeaders.Add 3, , 职称, 1500 ListView1.ColumnHeaders.Add 4, , 电话, 1000 第二步，添加数据 Dim itmX As ListItem Set itmX = lvw.ListItems.Add(参数，参数，参数，) 这些参数都可以为空，具体你可以看看msdn itmX.text=李四 itmX.SubItems(1) = 雄性 itmX.SubItems(2) = 大将军itmX.SubItems(3) = 10086 第三步，取得行数据 Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Text1 = Item.Text Text2 = Item.SubItems(1) Text3 = Item.SubItems(2) Text4 = Item.SubItems(3) End Sub 试一试就能知道怎么用了，快去试试吧listview控件可有4种不同的视图显示方法，跟“资源管理器”里的“查看”方式相似：（1）无图标；（2）小图标；（3）列表；（4）报表式。 使用哪种视图，可由该控件的view属性设置控制。 其中“报表”视图用来显示记录数据很适合。 listview控件包括listItem对象和ColumnHeader对象。 本人简单理解为：listItem对象看成数据行；ColumnHeader对象看成列标题。 listItem对象（行）有两部分：一部分是图标和简要描述的文本（第1列）；另一部分是前者的子项文本信息（第2列，第3列.)。 而listItems即是对listItem对象集合（所有行）的引用。 故此，listItems(1) 可以表示为第1行； listitems(1).text 返回第1行第1列的文本值； listitems(1).subItem(1) 返回第1行第2列的文本值。 【 控件常用属性 】 1view属性 该属性有4个值可设定： 1小图标视图显示 2列表 3报表 0无图标（默认） 2AllowColumnReorder属性 值设置.t.时，用户可以用鼠标选中1列拖至其他地方进行重新排列。 3Checkboxes属性 设置为.t.时，每一行数据前将显示一复选框。 4FlatScrollBar属性 设置为.f.时控件将显示滚动条。 5FullRowSelect属性 设置为.t.时可以整行地选择数据。 6GridLines属性 设置为.t.时控件将显示网格线。（只作用于“报表”视图） 7HideColumnHeaders属性 设置为.f.时，列标题可视，反之则不可视。 8HotTracking属性 设置为.t.时，鼠标所在行将以高亮度显示。 9Icons,SmallIcons属性 两者设置listview控件视图相关联的ImageList控件中的图片。 Icons指明视图为大图标时的关联； SmallIcons指明视图为小图标时的关联。 10LabelWrap属性 设置为.t.时，文本标签超出列宽时可换行。 11SelectedItem属性 返回对所选ListItem对象（行）的引用。 12Sorted属性 当值为.t.时，列表按字母排序。 13Picture属性 指定控件的背景图片，此属性在控件自带属性设置框里设置。 * 【 控件常用方法程序 】 1Add方法 添加listItem对象（行）到控件中。 语法格式： 控件ListItems集合.add(index,key,text,icon,smallIcon) 2FindItem方法 查找并返回对控件中listItem对象的引用。 语法格式： 控件名.FindItem(string,value,index,match) * 新建一表单，在表单里拖出一个ListView控件和一个ImageList控件。 选中ListView控件，单击右键，选择“ListViewCtrl Properties”，在General页面框中选中下列复选框： LabelWrap:文本可换行 Checkboxes:显示复选框 FullRowSelect:整行选定 清除FlatScrollBar的选定，控件将显示滚动条。 * 控件 name属性 ListView view1 ImageList Image1 * 在表单的Init事件中加入下列代码： &将ImageList控件图片赋予Listview控件& thisform.view1.Icons=thisform.Image1.object thisform.view1.smallIcons=thisform.Image1.object * 在listview控件init事件中加入下列代码： &初始化ListView控件& &设置显示为报表视图 this.view=3 &添加和设置列标 store this.ColumnHeaders.Add(,l11,序号,this.Width/7) to clm1 store this.ColumnHeaders.Add(,l12,物资编号,this.width/4) to clm2 store this.ColumnHeaders.Add(,l13,存货名称,this.Width/4) to clm3 store this.ColumnHeaders.Add(,l14,规格,this.width/4) to clm4 store this.ColumnHeaders.Add(,l15,计量单位,this.Width/8) to clm5 store this.ColumnHeaders.Add(,l16,请购数量,this.width/4) to clm6 store this.ColumnHeaders.Add(,l17,使用日期,this.Width/4) to clm7 store this.ColumnHeaders.Add(,l18,请购用途,this.width/4) to clm8 this.hottracking=.t. &鼠标停留行高亮度显示 * 将数据表添加到listview控件中显示： 新建一表单方法程序 refresh_grid，可随时调用刷新数据。 在其中加入下列代码： L1=thisform.view1 L1.listItems.clear &清除数据 sele 请购表 scan &添加listItem对象第1列图标和文本。 store L1.listItems.Add(,序号,1) to bbb &添加第2,3.列文本 store alltrim(物资编号) to bbb.subitems(1) store alltrim(存货名称) to bbb.subitems(2) store alltrim(规格) to bbb.subitems(3) store alltrim(计量单位) to bbb.subitems(4) store 请购数量 to bbb.subitems(5) store 使用日期 to bbb.subitems(6) store alltrim(请购用途) to bbb.subitems(7) endscan 注：若字段值为.null.时，添加时将出现错误提示。 请自行设置用函数加以判别。为.null.时可以空值添加。 * 如何返回选定值： L1=thisform.view1 L1.selectedItem.text &返回选定行第1列文本值 L1.selectedItem.index &返回选定行的位置 L1.listItems(x).subItems(y) &返回第x行，第y+1列文本值 * 如何用用命令设置复选框状态： thisform.view1.listItems(x).checked=.t. &第x行复选框选定 * 选定复选框时发生的事件itemcheck: LPARAMETERS item if item.checked=.t.&判定当复选框选中 要执行的语句 else 要执行的语句 endif &清除所有数据 thisform.view1.listItems.clear &清除选定行 L1=thisform.view1 L1.listitems.remove(L1.selectedItem.index) 得知所有行的总数： L1.listitems.countPrivate 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, 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) 显示系统颜色End Sub常用操作：获取当前行数和列数: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.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, 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行Add方法（ListIt