查到用ListView可以实现。写了一些测试代码但运行没任何效果,ListView还是大白框一个,代码如下: Private Sub Form_Load() MsgBox ("!") ListView1.ListItems.Clear ListView1.LabelEdit = lvwManual ListView1.ColumnHeaders.Add , , "id", 1000 ListView1.ColumnHeaders.Add , , "档案号", 1200 End Sub 这段代码是不就能显示出表头?
'刚写的代码,在窗体上放一个ListView,生成20列100行的列表 Private Sub Form_Load() Dim i As Integer Dim Itm As ListItem ListView1.View = lvwReport Dim j As Integer For j = 1 To 20 ListView1.ColumnHeaders.Add j, "a" & j, "第" & j & "列" Next For i = 1 To 100 Set Itm = ListView1.ListItems.Add(i, "a" & i, "第" & i & "行") Next For i = 1 To 100 For j = 1 To 20 ListView1.ListItems(i).ListSubItems.Add j, , "212" Next Next End Sub
Private Sub Form_Load()
MsgBox ("!")
ListView1.ListItems.Clear
ListView1.LabelEdit = lvwManual
ListView1.ColumnHeaders.Add , , "id", 1000
ListView1.ColumnHeaders.Add , , "档案号", 1200
End Sub
这段代码是不就能显示出表头?
Private Sub Form_Load()
Dim i As Integer
Dim Itm As ListItem
ListView1.View = lvwReport
Dim j As Integer
For j = 1 To 20
ListView1.ColumnHeaders.Add j, "a" & j, "第" & j & "列"
Next
For i = 1 To 100
Set Itm = ListView1.ListItems.Add(i, "a" & i, "第" & i & "行")
Next
For i = 1 To 100
For j = 1 To 20
ListView1.ListItems(i).ListSubItems.Add j, , "212"
Next
Next
End Sub