Question

vb6类模块中变量赋值

vb6，类模块，声明一个全局变量如何赋值？
要求打开窗体时就已经赋值了
Option Explicit
Public IsGameBox As Boolean
'Set IsGameBox = True'这种报错
Private Sub Form_Load()'这种不执行
MsgBox ("1")
IsGameBox = True
End Sub
要求就是类模块，请给出代码示例
标准模块怎样使用？
比如说，我窗体内有一个按钮，我想把点击这个按钮的事件写在模块中怎么做？

Answer 1

你要在标准模块（不是类模块）声明全局变量，然后在你的启动模块（比如Form1的Form_Load事件，或标准模块的Sub Main()函数）中对变量进行赋值即可。这个变量是全局通用的，包括类模块。

窗体的事件是不能写在模块中的，但可以调用模块中的过程或函数，如：

窗体中的代码：
Private Sub Command1_Click()
MsgBox "变量x的初始值是" & x
abc
MsgBox "变量x的当前值是" & x
End Sub

模块中的代码：

Public x As Integer

Public Sub abc()
x = 10
End Sub

Answer 2

假设在类A中有一个公有过程B,公有属性E
在窗体C中声明一个窗体级变量
dim objA as new A
在窗体的加载事件中加入代码
objA.E="新值"
在窗体上的按钮D的事件中加入代码
objA.B

msgbox objA.E
这样,满足你的所有要求

Answer 3

想要全局使用一个变量不要用类模块，这是错误的，要在模块中定义。

建立一个新的module，定义

public IsGameBox as Boolean

就是全程序静态变量了。