主题：ListView控件用法求助
greatmenddc
[专家分：0] 发布于 2008-08-11 15:39:00
我在窗体上打开ListView,显示一个空白框,下一步如何显示网格?如何产生列标头?我在属性栏里搞了很长时间也弄不出结果,无奈只有求助了,不要笑话,我是初学.我要做的表格如下:
(测试二极管的几项参数)
VF Vz Dvz Ir
1 ****** ****** ****** ******
2 ****** ****** ****** ******
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
上面的******表示程序响应串口事件后从串口读入的测试数据,左侧的序号表示测试次数,每测一只二极管出现一行数据(序号同时出现).请大家帮忙!先谢了!
回复列表 （共7个回复）
沙发
一江秋水 [专家分：9680] 发布于 2008-08-11 21:02:00
Dim i As String
Private Sub Form_Load()
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "序号", 1000
ListView1.ColumnHeaders.Add , , "VF", 1200
ListView1.ColumnHeaders.Add , , "Vz", 1200
ListView1.ColumnHeaders.Add , , "Dvz", 1200
ListView1.ColumnHeaders.Add , , "Ir", 1200
ListView1.FullRowSelect = True
ListView1.LabelEdit = lvwManual
End Sub
Private Sub Command1_Click()
i=i+1
ListView1.ListItems.Add , , i '添加 ListView1第1列
ListView1.ListItems(i).SubItems(1) = "abc" '添加 ListView1第2列
ListView1.ListItems(i).SubItems(2) = "def" '添加 ListView1第3列
ListView1.ListItems(i).SubItems(3) = "ghi" '添加 ListView1第4列
ListView1.ListItems(i).SubItems(4) = "jkl" '添加 ListView1第5列
End Sub
板凳
greatmenddc [专家分：0] 发布于 2008-08-12 10:02:00
非常感谢"一江秋水"的及时回答!但现在还有一个问题,就是我将代码输入运行后,窗体没有变化,即没有出现我想要的列标题.还望一江秋水不吝赐教.谢谢!
3 楼
一江秋水 [专家分：9680] 发布于 2008-08-12 17:09:00
ListView1.GridLines = True
ListView1.View = 3
还有诸多属性，你自己按需求设置
我写的代码中，i 的数据类型打错了，应为 integer,不好意思
4 楼
greatmenddc [专家分：0] 发布于 2008-08-13 10:41:00
非常感谢你的帮助!
5 楼
greatmenddc [专家分：0] 发布于 2008-08-13 15:37:00
承蒙你的帮助我现在已能做出数据表了.还有一点问题请教"一江秋水"就是程序里的ColumnHeaders属性在ListView控件的属性窗里找不着,只有HideColumnHeaders属性,ColumnHeaders属性哪里能找到出处及其用法?同样ListItems(i).SubItems(1)属性窗里也找不着. 什么书有关于这方面的介绍?
谢谢!
6 楼
jianghongbo1 [专家分：410] 发布于 2008-08-14 16:29:00
HideColumnHeaders属性决定是否显示列表头，设计时，使用listview控件属性列首选项卡添加，运行时使用add方法添加columnheader对象到columnheaders集合中。
7 楼
一江秋水 [专家分：9680] 发布于 2008-08-15 10:18:00
一般在“对象浏览器”中可找到绝大部分部分事件、方法、属性，但SubItems属性在VB帮助里才有，我也不知道对象浏览器中为什么找不到这个属性。我的办法是：1.先找属性窗口，2.再找对象浏览器，3.再找帮助，4.最后上网找。
我来回复
您所在位置：