问一个VB中的面向对象的问题

[hongbo163]

Public mForm As Form

Private Sub Class_Initialize()
Set mForm = New Form
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
执行以上代码会出错
改成以下格式可以顺利运行
Public mForm As Form

Private Sub Class_Initialize()
Set mForm = New Form1
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

从面向对象的角度看，执行中出现错误的代码是很好理解的
无非是定义一个form对象，然后实例化而已。
但是好像在VB中，实例化是否必须指向一个已经存在的form对象才行
例如以上例子中的form1.


大家讨论一下

[hongbo163]

如果我想实现一个动态增加窗体的效果，又该怎么实现呢？

[东方冉]

先建立一个窗体form1

Public mForm As Form
Private Sub Class_Initialize()
For i = 1 To NUM 'NUM是想动态添加的窗体个数
Set mForm = New Form1
mForm.show
NEXT
End Sub

[apple1980]

我认为
实例化指向一个已经存在的form对象
是指，把这个已经存在的FORM对象，做为一个类，进行继承，派生。实例化后的具有原窗体的特性。

如想单纯的增加窗体，VB应该有它的基类。

[zmrok]

VB只是一个伪面向对象的语言

[hhjjhjhj]

Form 与Form1有本质的区别。
当新建一工程时，对象浏览器上“所有库”的下拉列表中就可以看到"工程1"。VB程序本身就是一个库，Form1是"工程1"的对象，Form是VB的对象，当"工程1"运行时，它里面的可允许NEW的对象（如Form1）就可以NEW。当"工程1"运行时，想NEW一个VB中的Form，就得动用VB程序，这就变成对VB的VBE环境操作了。其实，ActiveX DLL 和ActiveX EXE就是另外的程序，VB做的程序只是对别的程序进行操控而已。

[hongbo163]

嗯，大头的理解挺深入的

[hongbo163]

VB确实是个伪面向对象

就像Form1

又可以是个变量名，例如 msgbox Form1.caption
又可以是个类名，例如 dim obj as Form1

[深渊的水影]

学习学习

[jam021]

关注关注