原来 VB6 真的可以 办到 Set A = B : A = B

http://topic.csdn.net/u/20090106/14/db870955-d987-4c32-9508-bb7307fceab5.html

' Form1

Private Sub Form_Load()

Dim B As New Class1

Set A1 = B(22) ' 执行成功
A2 = B(22) ' 执行失败

Exit Sub

原本以为 Vb6 是无法办到的

但后来却发现 VB6 是可以办到的 , 还真是有趣啊

改了几个地方后

Private Sub Form_Load()

Dim B As New Class1

Set A1 = B(22) ' 执行成功 --> 只传 参数 22 一次
A2 = B(22) ' 执行成功 , 用 F8 step by step 观察后 , 看到这一步出现很有趣的现象
' --> 先传 参数 22 一次 ---> 再 "递回" 传入一次 IsMissing 型态 的参数
' 而且 A = B(22) 出来后 , 用 区域变数视窗 观察
' 发现 "A2 型态竟然是个 对象 (Object)"
' 就以往认知 对象赋值 一定要用 Set A2 = 对象(Object) ,
' 可是这里竟然办到 A2 = 对象(Object) 在 没有 Set 关键字下 , 却能办到 "对象赋值"

Exit Sub