tMenu是个232自己的结构,想把File对象的内容用CopyMemory拷贝到这个区域,结果...没搞明白.
Private Sub Command1_Click()
Dim mObj As tMenu, b As String
Dim pMenu As Long, ret As Long
Dim mMenu As Menu
Set mMenu = File '这里小心
pMenu = VarPtr(mMenu)
CopyMemory pMenu, ByVal pMenu, 4&
CopyMemory mObj, ByVal pMenu, LenB(mObj)
End Sub
Private Sub Command2_Click()
Dim mObj As tMenu, b As String
Dim pMenu As Long, ret As Long
CopyMemory pMenu, ByVal VarPtr(File), 4& '这里非常小心
CopyMemory mObj, ByVal pMenu, LenB(mObj)
End Sub
Private Sub Command3_Click()
Dim mObj As tMenu, b As String
Dim pMenu As Long, ret As Long
Dim mMenu As Menu
pMenu = VarPtr(File)
CopyMemory pMenu, ByVal pMenu, 4& '这里非常小心
CopyMemory mObj, ByVal pMenu, LenB(mObj)
End Sub
这三个过程,cmd1和cmd2效果相同,cmd3失败了,nnd,vb把对象释放了,释放的太及时了.
cmd1用了参考,通过参考能到对象,而参考要到过程结束才用了_vbaFreeObj
cmd2为什么和cmd1效果相同.第一个CopyMemory之后才用了_vbaFreeObj
cmd3在第一个Varptr之后立即用了_vbaFreeObj
理解起来还真难.