Private Sub Form_Load() ListView1.View = lvwReport ListView1.Icons = ImageList1 ListView1.SmallIcons = ImageList1 ListView1.ColumnHeaderIcons = ImageList1 For I = 1 To 5 ListView1.ColumnHeaders.Add , , "第" & I & "列", , , I Next For I = 1 To 5 ListView1.ListItems.Add , , "第" & I & "行", I, I For j = 1 To 5 ListView1.ListItems(I).ListSubItems.Add , , "第" & j + 1 & "列", j Next Next End Sub
ListView1.View = lvwReport
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList1
ListView1.ColumnHeaderIcons = ImageList1
For I = 1 To 5
ListView1.ColumnHeaders.Add , , "第" & I & "列", , , I
Next
For I = 1 To 5
ListView1.ListItems.Add , , "第" & I & "行", I, I
For j = 1 To 5
ListView1.ListItems(I).ListSubItems.Add , , "第" & j + 1 & "列", j
Next
Next
End Sub