listview用法介绍

2016年8月10日 作者： 来源：

一步：添加列头，可在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 = ListView1.ListItems.Add

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