以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  高级功能研发区  (http://222.73.7.161/bbs/list.asp?boardid=5)
----  金字塔 listvew1  (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=49519)

--  作者:duolaijin668
--  发布时间:2013/3/11 12:58:35
--  金字塔 listvew1

在金字塔窗体中建一个listview1,如果一句代码也不写,运行后显示正常。

现在想初始化时添加表头,只两句代码,运行时提示:缺少对象:listview1

请问:listview1对象应如何声明(或设置)?

 

 

附:代码及运行时提示的截图。

另说明:代码在本机excel2003上测试正常。

 


--  作者:王锋
--  发布时间:2013/3/11 13:11:17
--  
图看不到,
--  作者:guotx2010
--  发布时间:2013/3/11 16:19:21
--  

把窗体名称带进去,比如窗体名称是frmTest,listview名称是ListView1,那么代码如下:

frmTest_ListView1.AddItem "AAA"

 


--  作者:duolaijin668
--  发布时间:2013/3/11 17:26:38
--  

因图片无法正常显示,先补发如下,请求指导:

 

在金字塔中点击控件ListView1,然后在窗体上拉出ListView1图

运行如下代码:

Sub UserForm3_Initialize()
ListView1.ColumnHeaders.Add,"Name","姓名"
ListView1.ColumnHeaders.Add,"Sex","性别"
ListView1.ColumnHeaders.Add,"Age","年龄"
ListView1.View=lvwReport
End Sub

                          运行后提示:编译器错误,\'424\'   缺少对象:\' ListView1\'。如果在excel窗体上运行,显示正常。

按照朋友指点,改成:

Sub UserForm3_Initialize()
UserForm3_ListView1.ColumnHeaders.Add,"Name","姓名"
UserForm3_ListView1.ColumnHeaders.Add,"Sex","性别"
UserForm3_ListView1.ColumnHeaders.Add,"Age","年龄"
UserForm3_ListView1.View=lvwReport
End Sub
                         运行后提示:编译器错误:‘35602’    Key is not unique in collection

 如按上边代码,在excel窗体上也运行错误。

敬请指导。


--  作者:duolaijin668
--  发布时间:2013/3/11 19:39:54
--  
以下是引用guotx2010在2013-3-11 16:19:21的发言:

把窗体名称带进去,比如窗体名称是frmTest,listview名称是ListView1,那么代码如下:

frmTest_ListView1.AddItem "AAA"

 

测试后还不行,如果加上窗体名称,在excel窗体中也不能运行了


--  作者:guotx2010
--  发布时间:2013/3/11 19:49:52
--  

listbox控件在金字塔下,好像不支持列头,我没有做成过,但是多列我是做过的。