搬家第五天-99.wincc V7.3 listview控件使用初步1-vbs初始化控件、添加行列

listview控件在activex控件列表中，看介绍有强大的功能，决定逐步学习练习使用这个控件，并把学习过程中代码粘贴出来。

新建一个画面，放置一个listview控件，修改名字为LV,这是一个名牌:-) 。在页面的打开事件中添加以下vbs代码：

Sub OnOpen()       
Dim ctrlLV
Set ctrlLV=ScreenItems("LV")
ctrlLV.View =3 '设置外观为报表形式
ctrlLV.GridLines =True '显示网格线
ctrlLV.ColumnHeaders.Clear '清楚原有表头
With ctrlLv.ColumnHeaders
    .add ,,"",10
    .add ,,"第一列",100
    .add ,,"第二列",100
    .add ,,"第三列",100
    .add ,,"第四列",100
End With
ctrlLV.listitems.clear  '清除原有数据
With ctrlLv.listitems.add
   .subitems(1)="第一行第一列数据"
   .subitems(2)="第一行第二列数据"
   .subitems(3)="第一行第三列数据"
   .subitems(4)="第一行第四列数据"
End With
With ctrlLv.listitems.add
   .subitems(1)="第二行第一列数据"
   .subitems(2)="第二行第二列数据"
   .subitems(3)="第二行第三列数据"
   .subitems(4)="第二行第四列数据"
End WithEnd Sub

保存运行，就可以看到效果了。