肯定是ListView控件。 在工程中加入 Microsoft Windows Common Controls 6.0 ,之后会找到这个控件。把控件加入Form,在控件上点右键打开属性窗口,设置查看类型为lvwReport。 然后在列首页面可以入各个列的名称。其它设置就看你心意了。之后就可以加入项目了。 Dim objListItem As ListItem Set objListItem = Me.ListView1.ListItems.Add(, "aaa", "aaa") objListItem.SubItems(1) = "bbb" objListItem.SubItems(2) = "ccc"
设置其中一些属性应该就行了
2设置MSFlexGrid的属性:
a.初始化MSFlexGrid各列
With MSFlexGrid1
.Rows = 1
.Cols = 6
.TextMatrix(0, 0) = "任务"
.ColWidth(0) = 2200
.ColAlignment(0) = 1
.TextMatrix(0, 1) = "状态"
.ColWidth(1) = 1600
.ColAlignment(1) = 1
.TextMatrix(0, 2) = "时长(分钟)"
.ColWidth(2) = 1600
.ColAlignment(3) = 1
.TextMatrix(0, 3) = "开始时刻"
.ColWidth(3) = 1600
.ColAlignment(3) = 1
.TextMatrix(0, 4) = "备注"
.ColWidth(4) = 1600
.ColAlignment(4) = 1
.TextMatrix(0, 5) = "执行结果"
.ColWidth(5) = 1200
.ColAlignment(5) = 1
End With
b.MSFlexGrid1.DragMode=0(可调整列宽)
那请问listView要怎么设置呢 ?
在工程中加入 Microsoft Windows Common Controls 6.0 ,之后会找到这个控件。把控件加入Form,在控件上点右键打开属性窗口,设置查看类型为lvwReport。
然后在列首页面可以入各个列的名称。其它设置就看你心意了。之后就可以加入项目了。
Dim objListItem As ListItem
Set objListItem = Me.ListView1.ListItems.Add(, "aaa", "aaa")
objListItem.SubItems(1) = "bbb"
objListItem.SubItems(2) = "ccc"