[已解决]关于定义对象变量时何时用new关键字等若干问题？

FF7

可以肯定的一点是，你的理解是错的，首先你要明白一点，value这个属性的真正值存储在哪个变量里？是在s中，在Value中，还是在c中。答案是s。全局变量s存储有Value的值。Value只是一个空壳，一个与外部交互的名字。
我们通过
Property Get Value ...
  Value = s
读取了s的值，于是在外部mc.Value就可以读到了s的值。
如果只有Get过程，那么这个Value属性就拥有读属性，我们无法写！
ProPerty Let Value(..c..)
  s= c
就是写属性的过程。这里为什么要用s=c呢？
首先，c是Let过程的参数。在VB语言中，写属性时，我们可以利用mc.value = "xx"重写Value的属性，这里的"xx"就是传入的参数。所以在Property Get/Let中有介绍，Let过程永远比Get过程多一个参数，这个参数就是”=“符号后面我们要赋的值。
其次，写过程写的哪个的值，这个我们就要看Get是读的谁的值。在Get中我们Value读的是s变量，那么写过程就要写s变量，不然你的Value将牛头不对马嘴！
给你个示例：

Private S as string
Private H as string
Property Get Value1() as string
  Value1=s
End property
Property Let Value1(byval c as string)
  s=c
End property


Property Get Value2() as string
  Value2=h
End property
Property Let Value2(byval c as string)
  h=s
End property

模块外测试：
sub Test()
  dim mc as new myclass
  mc.Value1 = "KKKK"
  msgbox mc.Value1
  '从类中我们可以看到Value2的写过程，h的值是写入的s的值，那么无论我们怎么赋值，Value2读出来的h的值，永远都等于s的值"KKKK"，下面我们来验证这一点：
  mc.Value2 = "SSSS"
  msgbox mc.Value2
  mc.Value2 = "DFSFSDE"
  msgbox mc.Value2
Ens sub

理解了究竟是谁存储着真正的属性的值，那么一切问题皆可迎刃而解了！！！

所以你的s=Value作何理解？肯定是错的嘛！！

Saint_Zuo

回复 FF7 的帖子

感谢你，朋友，你的讲解很详细，以下有两个过程atest与btest，我还有几个问题，请多多指教。
类模块中的代码是：
Option Explicit
Public Event Change(ByRef Cancel As Boolean)
Private s$
Public Property Get Value() As String '属性的读s功能
  Value = s
End Property
Public Property Let Value(ByVal c As String) '属性的写s功能
'  s = Value
  s = c
End Property

Private Sub Class_Initialize()
s = "abc"
End Sub
Private Sub Class_Terminate()
s = "def"
End Sub


模块代码是：
Sub aTest()
Dim mc As New myclass
Debug.Print mc.Value
mc.Value = "sedd"
Set mc = Nothing
Debug.Print mc.Value’不会出错
End Sub



Sub bTest()
Dim mc As myclass
Set mc = New myclass
Debug.Print mc.Value
Set mc = Nothing
Debug.Print mc.Value‘会出错
End Sub

问题:
（1）在过程atest中第一次读值和写值之前才会触发Private Sub Class_Initialize()，而不是建立对象变量（Dim mc As New myclass）之后，但是在过程btest中是在Set mc = New myclass语句之后才触发Private Sub Class_Initialize()的，为什么？
（2）当Set mc = Nothing语句之后aTest与btest都会触发Private Sub Class_Terminate()，但为什么atest中的绿色语句不会出错，而在btest中的红色语句会出错（Debug.Print mc.Value）呢？
（3）还有就是在运行atest中发现在End Sub之后也会触发Private Sub Class_Terminate()，请教这是为什么？
（我是按F8键逐语句运行的）

Saint_Zuo

麻烦各位再帮忙看看。多谢了。

Saint_Zuo

麻烦各位再帮忙看看呀！

FF7

第一问：什么是类模块？类模块是一个封装好的，虚拟化的模块！就像一个文本框，在VBA语言内部，已经有一个类模块，专门处理文本框的各种属性和事件，方法。我们在表格或者窗体中添加一个文本框，就是建立了一个文本框类模块的一个实例。于是这个文本框就具有了长，宽，name等属性。在没有画这个文本框之前，那你说“有一个文本框，它的长是多少？宽是多少？”所以我们自己建立的类模块，也就是打造一个虚拟的模块，拥有某些属性，拥有某些方法。我们要使用我们的类模块，dim xx as myclass这个只是建立了一个对myclass类的一个引用，但并未实例化，也就是说我们现在拥有了一个变量，这个变量用来表示我们的类，但这个类的实例依然不存在。那么接着 set xx = new myclass，这个就是建立一个全新的myclass实例，这个实例才拥有类myclass的初始化属性（intilialize）。


第二问和第三问为自己的理解，建议查阅相关的"New 与 Nothing 关系"相关的资料。查看官方解释。
第二问，得理解set mc= nothing，这里的Nothing是什么意思?在VBA语言中，set xx = Nothing，这里的Nothing 关键字主要用于取消对象变量mc与实际对象的关联，消除mc对实例对象的引用。set mc=nothing不是说mc变量什么也不是了，mc依然是你定义的myclass。只是mc前面所代表的实例对象被消除了。例如：
sub Testing()
  dim mc as myclass
  set mc = new myclass
  mc.Value = "huhuhuhu"
  set mc = Nothing
  set mc = New myclass
  mc.Value = "xxxx"
  msgbox mc.value
End sub
这个实例可以看出，set mc = Nothing是消除的Value叫做huhuhuhu对象的实例。但并不影响变量mc的继续使用。mc本身并不会被消除。
dim mc as myclass，那么mc在消除引用后，则还原为myclass状态；
dim  mc as new myclass，那么mc在消除对象后，则还原为new Myclass状态。

第三问：dim mc as new myclass定义的mc变量为局部变量，将随着过程的结束而消失。虽然前面利用set mc = nothing消除了实例对象的引用，但mc变量并没有消除，他依然表示一个new myclass，他的内存空间依然未释放。所以end sub会触发析构函数事件。那么可能疑问dim mc as myclass呢？看一个实例：
Sub bTest()
Dim mc As myclass
Set mc = New myclass
Debug.Print mc.Value
'Set mc = Nothing  '通过注销这一句代码可以验证mc在什么时候被消除了！
MsgBox "DFxxx" 'Debug.Print mc.Value '会出错
End Sub
'析构函数改成如下：
Private Sub Class_Terminate()
s = "def"
End Sub

Saint_Zuo

回复 FF7 的帖子

谢谢你了，你的讲解很到位。同时也感谢吕布与阿童木老师，以后还得向各位老师多多学习。

wbzxz

回头再看这个帖子，感觉确实明白了不少问题。高啊。

sunjing-zxl

学习学习了

ebbe

长见识了。。。