急急急，请问有什么方法创建如 Windows “详细视图”的表格吗？

Question

如下图红框内表格！
http://img2.photo.163.com/real_weboy/631256/6954433.jpg

Answer 1

参看
http://www.dapha.net/down/list.asp?id=1747
http://www.dapha.net/down/list.asp?id=796

Answer 2

Private Sub Form_Load()
    Dim I As Integer
    Dim Item As ListItem
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "第一列标题", ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "第二列标题", ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "第三列标题", ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "第四列标题", ListView1.Width / 2
    
    For I = 1 To 7
        Set Item = ListView1.ListItems.Add(, , "第" & I & "行，第一列")
        Item.ListSubItems.Add , , "第" & I & "行，第二列"
        Item.ListSubItems.Add , , "第" & I & "行，第三列"
        Item.ListSubItems.Add , , "第" & I & "行，第四列"
    Next I
End Sub

Answer 3

加一个图像列表ImageList1，在里面放上一张图片Private Sub Form_Load()
    Dim I As Integer
    Dim Item As ListItem
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "第一列标题", ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "第二列标题", ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "第三列标题", ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "第四列标题", ListView1.Width / 2
    
    ListView1.Icons = ImageList1
    ListView1.SmallIcons = ImageList1
    
    For I = 1 To 7
        Set Item = ListView1.ListItems.Add(, , "第" & I & "行，第一列", 1, 1)
        Item.ListSubItems.Add , , "第" & I & "行，第二列"
        Item.ListSubItems.Add , , "第" & I & "行，第三列"
        Item.ListSubItems.Add , , "第" & I & "行，第四列"
    Next I
    
End Sub