fieldset{padding:10px;}
关于窗体子类化因为程序需要，我用WORD的VBA中插入了一个用户窗体USERFORM1，并且将该窗体子类化了。但是程序运行后，窗体的标题栏似乎是一个“禁区”，无论在标题栏鼠标左击、右击，或者左击窗体右上角的关闭按钮，都会导致程序停止响应，包括WORD，我实在就迷茫了，不知道为什么，怎么解决？跪求各位大神不吝赐教啊~！！~！相关代码如下：’在USERFORM1中PrivateSubUserForm_Click()UnloadUserForm1EndSubPrivateSubUserForm_Initialize()FrmHwnd=FindWindow(vbNullString,UserForm1.Caption)lpPrevWndProc=SetWindowLong(FrmHwnd,GWL_WNDPROC,AddressOfWindowProcTest)EndSubPrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)SetWindowLongFrmHwnd,GWL_WNDPROC,lpPrevWndProcEndSub’在模块中PublicConstGWL_WNDPROC=-4PubliclpPrevWndProcAsLongPublicFrmHwndAsLongPublicDeclareFunctionSetWindowLong_Lib”user32″_Alias”SetWindowLongA”(ByValhwndAsLong,_ByValnIndexAsLong,_ByValdwNewLongAsLong)AsLongPublicDeclareFunctionFindWindowLib”user32″Alias”FindWindowA”(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPublicDeclareFunctionCallWindowProc_Lib”user32″_Alias”CallWindowProcA”(ByVallpPrevWndFuncAsLong,_ByValhwndAsLong,_ByValMsgAsLong,_ByValwParamAsLong,_ByVallParamAsLong)AsLongPublicFunctionWindowProcTest(ByValhwndAsLong,_ByValuMsgAsLong,_ByValwParamAsLong,_那么前世我的目光一定一刻都没从你身上离开过吧！
