vb的listview中如何添加列标题啊？

[xujunsweet]

vb的listview中如何添加列标题啊？

[lovetsfuer]

MSDN
将 ColumnHeader 对象添加到 ListView 控件的 ColumnHeaders 集合中。

语法

object.Add(index, key, text, width, alignment, icon)

object 必需的。对象表达式，其值是 ColumnHeaders 集合。
index 可选的。唯一标识对象集合成员的整数。
key 可选的。唯一的字符串表达式，可以用来访问集合的成员。
text 可选的。出现在 ColumnHeader 对象中的字符串。
width 可选的。数值表达式，它使用控件容器的度量单位指定对象的宽度。
alignment 可选的。决定 ColumnHeader 对象中文本对齐方式的整数。关于设置信息，请参阅“请参阅”列表中 Alignment 属性的信息。
icon 可选的。Smallicons 图象列表中图象的关键字或索引。

[datou985]

Wiht lstView
.ColumnHeaders.Clear
.ListItems.Clear
.ColumnHeaders.Add , , "Material ID", 0
.ColumnHeaders.Add , , "Material Code"
.ColumnHeaders.Add , , "Material Name"
.ColumnHeaders.Add , , "Specification"
.ColumnHeaders.Add , , "Month of Purchase"
.ColumnHeaders.Add , , "Unit of Measure(UoM)"
.ColumnHeaders.Add , , "Price"

.ColumnHeaders(2).Width = 1200
.ColumnHeaders(3).Width = 2000
.ColumnHeaders(4).Width = 1130
.ColumnHeaders(5).Width = 1530
.ColumnHeaders(6).Width = 1850
.ColumnHeaders(7).Width = 1500
end with
其实
.ColumnHeaders.Add , , "Material ID", 0这里的0就是列宽
应该能看明白这段代码吧?

[datou985]

晕,太不好意思了,with都写错了

[datou985]

用MSDN查一下ColumnHeaders的add方法就明白了

[Tiger_Zhao]

.View=lvwReport