由于vb中listbox控件无法显示多列数据，而 ListView 控件在显示多列数据方面具有很好的优势。

本文将重点介绍如何在vb中添加ListView控件来显示多列数据。

在 vb 6.0的工具箱中默认是没有ListView控件的，如果要显示ListView控件，需要在“工具箱”中鼠标右键选择“部件”，

引用”Microsoft Windows Common Control 6.0″ 后，就可以在工具箱中看到ListView控件，如下图所示。

ListView控件的主要两个对象是ListItems和ColumnHeaders。添加列表项用ListItems的 add 方法，添加列标题用ColumnHeaders的 add 方法。

如果要显示多列数据和列标题，一定要将ListView控件的 View 属性设置为lvwReport。

在添加多列数据时，第一列数据用ListItems的add方法进行添加，其它列数据用ListItem对象的 ListSubItems 对象的 ADD 方法添加。

如以下代码所示为在ListView控件中添加3列，分别为ID，姓名，年龄。

Sub QQ1722187970()
    With ListView1
    '设置View属性为lvwReport才能显示多列数据
    .View = lvwReport
    '添加列标题
    .ColumnHeaders.Add , , "ID"
    .ColumnHeaders.Add , , "姓名"
    .ColumnHeaders.Add , , "年龄"
    For i = 1 To 3
        '添加第一列数据ID
        .ListItems.Add , , i
        '添加第二列数据姓名
        .ListItems(i).SubItems(1) = "张三" & i
        '添加第三列数据年龄
        .ListItems(i).SubItems(2) = 22 + i
    Next i
    End With
End Sub

最终效果如下图所示