在VB中ListView这个控件怎么添加

需要通过菜单添加，具体方法：

【工程】--【部件】，进入【部件】对话窗口，通过滚动条，显示并勾选

Microsoft Windows Common Controls 6.0 (SP6)

[确定]，这样在工具箱里，会增加几个控件，其中又一个就是。

用代码进行说一下：

Private Sub Command1_Click()

Dim xx As ListItem

If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" Then

Set xx = ListView1.ListItems.Add(, , Text1.Text)

xx.SubItems(1) = Text2.Text

xx.SubItems(2) = Text3.Text

Set xx = Nothing

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End If

End Sub

Private Sub Form_Load()

ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , "第1列", 1000

ListView1.ColumnHeaders.Add , , "第2列", 1000

ListView1.ColumnHeaders.Add , , "第3列", 1000

End Sub

---