在线等待！哪位高手帮我写一段学习listView控件使用的程序！

Question

我想运用ListView控件，可看了半天书就是不会用，只有到这里请教高手了，不胜感激，10分就算是一点心意吧，呵呵~~~~~~~~~~~~

Answer 1

Private Sub Form_Load()
    AdoCnn.CursorLocation = adUseClient
    AdoCnn.Open (gstrConn)
    
    adoRst.Open "SELECT * FROM 用户", AdoCnn, adOpenStatic, adLockOptimistic
    Dim ltmlistItem As ListItem    With lvwUserMsg
            .View = lvwReport
            .ColumnHeaders.Add , , "用户名", .Width / 6
            .ColumnHeaders.Add , , "密码", .Width / 6
            .ColumnHeaders.Add , , "分析权限", .Width / 6
            .ColumnHeaders.Add , , "统计权限", .Width / 6
            .ColumnHeaders.Add , , "打印权限", .Width / 6
            .ColumnHeaders.Add , , "地形数据导入权限", .Width / 3
    End With    
    With adoRst
        While Not .EOF
                Set ltmlistItem = lvwUserMsg.ListItems.Add(, .fields("用户名"), .fields("用户名"))
                    ltmlistItem.SubItems(1) = .fields("密码")
                    ltmlistItem.SubItems(2) = .fields("分析")
                    ltmlistItem.SubItems(3) = .fields("统计")
                    ltmlistItem.SubItems(4) = .fields("打印")
                    ltmlistItem.SubItems(5) = .fields("地形数据导入")
                   .MoveNext
        Wend
    End With
    adoRst.Close
    
    With lvwLayerPro
            .View = lvwReport
            .ColumnHeaders.Add , , "图层名", .Width / 4
            .ColumnHeaders.Add , , "编辑权限", .Width / 6
            .ColumnHeaders.Add , , "查询权限", .Width / 6
            .ColumnHeaders.Add , , "管线数据导入权限", .Width / 3
    End With
    
    
    lvwUserMsg.ListItems.Item(1).Selected = True
    
    adoRst.Open "select * from 用户权限控制 where 用户名='" & lvwUserMsg.SelectedItem.Key & "'", AdoCnn, adOpenKeyset, adLockReadOnly
    With adoRst
            While Not .EOF
                Set ltmlistItem = lvwLayerPro.ListItems.Add(, .fields("图层名"), .fields("图层名"))
                ltmlistItem.SubItems(1) = .fields("编辑")
                ltmlistItem.SubItems(2) = .fields("查询")
                ltmlistItem.SubItems(3) = .fields("管线数据导入")
                .MoveNext
            Wend
    End With
    adoRst.Close
End Sub