VB6是否允许仅通过命名其数据类型来引用Form实例作为单例?或者发生了什么?

End*_*ies 4 oop vb6

我看到的代码如"卸载frmMain",我可以告诉frmMain是类型/模块名称,我不认为它也可以同时是"ObjFrmMain"排序的变量名称.尽管如此,此命令确实成功地导致有问题的表单卸载.

那么数据类型是否用作其单个现有实例的别名?或者也许对于它的所有实例?

VB6是否对数据类型做了类似的事情,而不是从Form派生的数据类型?

Sco*_*ock 7

是的,VB6有奇怪的对象行为.它为您提供了一些处理表单对象的快捷方式.

Load frmMain
Run Code Online (Sandbox Code Playgroud)

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

frmMain.lblSomeLabel.Caption = "some caption"
Run Code Online (Sandbox Code Playgroud)

...将加载该实例.然而:

frmMain.SomeStringMember = "some value"
Run Code Online (Sandbox Code Playgroud)

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

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

Dim newForm As MyForm
Set newForm = New MyForm
newForm.Show vbModal
Run Code Online (Sandbox Code Playgroud)

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

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

Dim newObject As New MyClass
Set newObject = Nothing
newObject.SomeStringProperty = "some value"
Run Code Online (Sandbox Code Playgroud)

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

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

Dim frmMain As New frmMain
Run Code Online (Sandbox Code Playgroud)

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

Dim newObject As MyClass
Set newObject = New MyClass
Run Code Online (Sandbox Code Playgroud)

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

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

  • 它根本不是单例,而是一个名为与(Form)类相同的默认全局实例.您可以使用VB6类执行相同的操作,但需要在IDE外部编辑.CLS文件.在这两种情况下,您都可以根据需要创建任意数量的类的实例,因此它们不是单例.http://en.wikipedia.org/wiki/Singleton_pattern (2认同)