oop – VB6是否只允许通过命名其数据类型来引用Form实例作为单例

Load frmMain

…将在该变量名称下加载该表单的单个实例.事实上：

frmMain.lblSomeLabel.Caption = "some caption"

…将加载该实例.然而：

frmMain.SomeStringMember = "some value"

…不会加载表单对象(意味着窗口本身),但是您可以访问这些变量,因此实质上,表单的名称是全局变量.

但是,您可以创建新实例：

Dim newForm As MyForm
Set newForm = New MyForm
newForm.Show vbModal

这将实际创建MyForm的新实例,加载并显示它,因此您可以拥有一个表单的多个实例.

还要注意New关键字中的奇怪之处：

Dim newObject As New MyClass
Set newObject = Nothing
newObject.SomeStringProperty = "some value"

这没有“对象引用未设置…”错误.使用As New语法声明引用变量时,可以通过将对象设置为Nothing来销毁该对象,然后再次引用该变量,它将创建一个新实例.

事实上,这就是形式的真实情况.有一个隐含的：

Dim frmMain As New frmMain

我个人不喜欢使用As New语法,因为它令人困惑和危险.它也有性能损失,相对于：

Dim newObject As MyClass
Set newObject = New MyClass

……但你对表格坚持不懈.

当你调用卸载frmMain时发生的事情是它卸载了窗口(和所有控件)所以这些中的所有数据都消失了,但是对象frmMain仍然在闲逛.因此,即使在卸载它之后,您仍然可以访问任何成员变量和属性.但是,如果有任何引用表单上的任何控件,它将触发隐式Load frmMain.这是VB6中许多细微编程错误的根源,尤其是在您尝试关闭时.