Question

编译错误，不允许作为对象模块的public成员？或者有什么更好的方法记录程序被打开的次数

http://zhidao.baidu.com/question/294802901.html 这个是原网页
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
这一段红字 ，提示错误 编译错误：常数、固定长度字符串、数组、用户定义类型以及declare语句不允许作为对象模块的public成员？
求教，感谢
或者有什么更好的方法记录程序被打开的次数 谢谢

Answer 1

问题： 编译错误，不允许作为对象模块的public成员？或者有什么更好的方法记录程序被打开的次数
回答：对于编译错误，你没有提供完整代码，不便诊断，可以参考我下面引用的别人的答案。
对于打开次数的问题。
除了使用注册表以外，可以使用文件保存。每打开一次就把计数器加1。（注意文件的互斥访问）
祝你成功！

常数、固定长度字符串、数组、自定义类型与 Declare 语句不能是对象模块中的 Public 成员

并非所有对象模块中的变量都可声明成 Public。然而，按缺省规定，过程是 Public，且 Property 过程在语法结构上可模拟变量。这个错误的起因与解决方法如下所示：
在对象模块中声明了一个 Public 常数。
虽然不能在对象模块中声明 Public 常数，但可以创建一个同名的Property Get 过程。若不能创建同名的 Property Let 或 Property Set 过程，实际上创建了一个只读属性，其用法与常数相同。
在对象模块中声明了一个 Public 类型的固定长度字符串。
可用一组 Property 过程仿真固定长度字符串，并截掉超出长度的字符串数据，或通知用户超出长度。
在对象模块中声明了一个 Public 数组。
虽然过程不能返回数组，但可返回一个包含数组的 Variant。要仿真类模块中的 Public 数组，可用一组Property 过程，它们接受与返回包含数组的 Variant 。
在对象模块中放了一个 Declare 语句。
Declare 语句隐含着公用的意思，可在 Declare 语句之前加上一个 Private 关键字。

追问

虽然我自己也弄成功了，这个分还是给你了

追答

谢谢。弄成功了最好把你的解决方法留在后面，方便后来人。人人为我，我为人人。

追问

我用的就是计数法

我还有一个问题你帮我看看你会不会

谢谢