出个考题，考考大家对vb对象的认识

boywhp

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Form_Load()
    Dim test As Form1
    CopyMemory test, Me, 4
    Debug.Print test.Caption
End Sub

请问
1、单步执行代码到第三行有什么显示？？
2、执行完End Sub会有什么反应？？
并解释一下理由，呵呵，这是最近写代码的时候实际碰到的一个调试实例，建议大家可以一起将自己日常见到的问题共同交流一下。回答正确的人有奖励哦～

boywhp

3、请你提出一个合理的解决方案

sandy_zc_1

如果没搞错的话，立即窗口显示Form1

执行完End Sub应该没有什么反应。

boywhp

真的吗？？？你用VB6运行试过了
我的机器估计跟你的不一样啊！！哈哈End Sub 在Win98＋VB6下马上挂掉！
不知2000以上的系统结果会怎么样！嘿嘿，那个兄弟测试一下哦

sandy_zc_1

哦，我试着运行了一次，对象装载完毕后没有任何问题，但是关闭窗口Terminate事件结束后就挂掉了。

boywhp

对的！就是这个现象咯！呵呵 我还以为你的机器不一样呢
解释一下咯

boywhp

算了，估计大家对这个问题研究不多啊，公布答案吧：
Private Sub Form_Load()
    Dim test As Form1
    CopyMemory test, Me, 4
    Debug.Print test.Caption
End Sub
test其实是一个对象的指针,CopyMemory test, Me, 4语句使得test指针指向了Form1
所以Debug.Print test.Caption输出的是　Form1
在执行完End Sub后test作为一个过程变量将被系统清除调，类似于执行了一个
Ｓｅｔ　Ｔｅｓｔ＝Ｎｏｔｈｉｎｇ语句
导致的结果是Ｆｏｒｍ１对象实体的引用计数－１，变为了０，尽管并没有释放对象，但是系统根据对象计数认为已经没有了。
在用户关闭窗体的时候，ＶＢ内部再次释放Ｆｏｒｍ１，但是由于ＦＯｒｍ１的对象计数已经为０了，会因为一个保护错误，因为ｖｂ试图删除一个已经销毁的对象（因为计数＝０）

boywhp

我们解决的方法是
Private Sub Form_Load()
    Dim test As Form1
    CopyMemory test, Me, 4
    Debug.Print test.Caption
　 CopyMemory test, 0&, 4
End Sub
注意最后的一行，我们使用了CopyMemory test, 0&, 4，将该指针强制清除掉，这样在Ｅｎｄ　ｓｕｂ后即使系统在自动执行Set test=Nothing也不会将Ｆｏｒｍ１的引用计数－１，所以在用户关闭窗体的时候是正常的结束

zlcnkkm

问个题外问题，CopyMemory第三个参数为什么是4？

我只知道的写法是
Private Sub Form_Load()
    Dim test As Form
    Set test = Me
    Debug.Print test.Caption
　 Set test = Nothing
End Sub

Asui_85

我是学 DELPHI 偶尔看到这个！
我帮楼主回答下吧！

也不知道对不对

zlcnkkm
之所以是4 是因为 test 是指针
一个指针所占长度就为 4