[求教]如何直接引用类模块的属性和方法

红尘如烟

如下面的这个例子，可以在代码中无须声明直接引用
变量1＝clsSetup.ItemSetup("公司名称")
但当我再次新建一个类模块时却不能这样引用了，没弄明白怎么回事，各路神仙哪位能指教一下？

andymark

Dim Test As New clsSetup
变量1＝Test.ItemSetup("公司名称")

红尘如烟

andmark没明白我的意思，我是想知道我发上来的那个例子中，为什么可以无须声明就可以直接引用，而其它的类模块就不行

t小宝

将可以直接引用的类模块导出，用记事本打开，看到这么一行：
Attribute VB_PredeclaredId = True
将不能直接引用的类模块导出，看到的是：
Attribute VB_PredeclaredId = False

测试证明，将类模块的VB_PredeclaredId属性设为 True 就可直接引用，但在ACC中默认是 False，并且不能设置此属性，但可在建立类模块后，将它导出，用记事本修改此属性，再导入。

在网上搜索了一下，没有看见有关此属性的解释，也许更改此属性会引起我们未知的问题发生，所以比尔不希望有人知道并更改此属性！
纯属胡乱猜测。。。。。。哪位高人出来解释一下吧！！

chuang0321

又长知识了

红尘如烟

只查到了这两个的意思,其它几个没查到:
Attribute 表示设计时类型属性的包装类。无法继承此类。
Creatable 获取一个指示是否可以创建此实例的值。

另外我看了一下,所有窗体的类模块PredeclaredId属性都是true
以下是窗体类模块的定义属性以及自定义类模块的定义属性:

1. VERSION 1.0 CLASS
   
2. BEGIN
   
3. MultiUse = -1 'True
   
4. END
   
5. Attribute VB_Name = "类1"
   
6. Attribute VB_GlobalNameSpace = False
   
7. Attribute VB_Creatable = False
   
8. Attribute VB_PredeclaredId = False
   
9. Attribute VB_Exposed = False

复制代码

1. VERSION 1.0 CLASS
   
2. BEGIN
   
3. MultiUse = -1 'True
   
4. END
   
5. Attribute VB_Name = "Form_窗体1"
   
6. Attribute VB_GlobalNameSpace = False
   
7. Attribute VB_Creatable = True
   
8. Attribute VB_PredeclaredId = True
   
9. Attribute VB_Exposed = False

复制代码

wang1950317

人生得意万千重，春回梦醒原是空。红尘佳人如烟事，云淡风轻一笑中。
帖子和签名均令人回味无穷！

zhuyiwen

高招，学习了。

purplerose

红尘如烟 发表于 2009-5-6 11:25
只查到了这两个的意思,其它几个没查到:
Attribute 表示设计时类型属性的包装类。无法继承此类。
Creatabl ...

您好！且不说技术问题，就是您引用的诗 挺有意思的，人生得意万千重，春回梦醒原是空。红尘佳人如烟事，云淡风轻一笑中。难道技术高手又都是诗人呀

purplerose

t小宝 发表于 2009-5-6 07:04
将可以直接引用的类模块导出，用记事本打开，看到这么一行：
Attribute VB_PredeclaredId = True
将不能 ...

小宝不错，学习了，谢谢！！