VB也会执行非法操作。

Question

在VB中，我可以用API对自己的菜单进行绘制。当我在VB中使用回调函数并且执行到END语句时，系统常常显示"该程序执行了非法操作。"。 Form_load 代码:
     '初始化
     PrevProc=GetWindowLong(...,GWLProc,...,AddressOf(IconProc)) Form_Unload代码：
    SetWindowLong ...,GWLProc,...,PrevProc
    End '如果把End注释掉，则没有出错。为什么？公共模块代码：
dim PrevProc as long   
public function IconProc (....)
...
end function如果把End注释掉，则没有出错。为什么？是不是回调函数有问题，应怎样才能避免？

Answer 1

因为SetWindowLong是API函数，属外部调用，在 SetWindowLong 函数真正被调用时End已被执行，就会出现这种情况。解决办法：如果 Form_Unload 事件中还有其它代码，就把 SetWindowLong 放最前，End 放最后，其它放中间，否则也可考虑直接去掉 End 。