Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:金字塔 listvew1

1楼
duolaijin668 发表于:2013/3/11 12:58:35

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

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

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

 

 

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

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

 

2楼
王锋 发表于:2013/3/11 13:11:17
图看不到,
3楼
guotx2010 发表于:2013/3/11 16:19:21

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

frmTest_ListView1.AddItem "AAA"

 

4楼
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窗体上也运行错误。

敬请指导。

5楼
duolaijin668 发表于:2013/3/11 19:39:54
以下是引用guotx2010在2013-3-11 16:19:21的发言:

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

frmTest_ListView1.AddItem "AAA"

 

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

6楼
guotx2010 发表于:2013/3/11 19:49:52

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

 

共6 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.02344 s, 2 queries.