请问：listview控件的用法

Question

请给个示例，列是三个就可以了
点击每一行，能触发一行的事件，简单就好
谢谢

Answer 1

Option ExplicitPrivate Sub Form_Load()
    Me.ListView1.View = lvwReport
    Me.ListView1.ColumnHeaders.Add , , "col 1"
    Me.ListView1.ColumnHeaders.Add , , "col 2"
    Me.ListView1.ColumnHeaders.Add , , "col 3"
    Me.ListView1.FullRowSelect = True
    
    Dim mitem As ListItem
    Dim i As Long
    For i = 1 To 100
        Set mitem = Me.ListView1.ListItems.Add(, , "line " + CStr(i))
        mitem.SubItems(1) = "sub 2"
        mitem.SubItems(2) = "sub 3"
    Next
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Text1.Text = "你点击了第" + CStr(Item.Index) + "行"
End Sub