利用子類處理技術限制窗體的大小

2019-11-18 17:34:03

字體：大中小

來源：轉載

供稿：網友

'**********警告*************
'對以下代碼進行修改將有可能導致不可預料的后果,甚至能使您的VB崩潰!
'在VBIDE環境中運行本程序之前請先保存您的修改
'不要使用斷點調試模式,這將導致VB崩潰!
'**********注意*************
模塊:
OptionExplicit

PublicOldWindowWord來改變這個值
'GWL_ID:對話框中一個子窗口的標識符
'GWL_USERDATA:含義由應用程序規定
'對話框亦可指定下列常數
'DWL_DLGPROC:這個窗口的對話框函數地址
'DWL_MSGRESULT:在對話框函數中處理的一條消息返回的值
'DWL_USER:含義由應用程序規定
DeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
'在窗體結構中為指定的窗口設置信息
'參數/類型說明
'hwnd(long)欲為其獲取信息的窗口的句柄
'nIndex(long)參考GetWindowLong函數
'dwNewLong(long)由nIndex指定的窗口信息的新值
DeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(pDestAsAny,pSourceAsAny,ByValByteLenAsLong)
'這就是在VisualBasic中處理指針的"短柄斧"--CopyMemory.你可能在API文檔中找不到它,但它確實存在,并且功能異常強大
'參數/類型說明
'pDest你想寫入字節到其中的任何變量的ByRef參數(地址)
'pSource要從其中進行復制的ByRef變量
'ByteLen要復制的字節數
DeclareFunctionCallWindowProcLib"user32"Alias"CallWindowProcA"(ByVallpPrevWndFuncAsLong,ByValhwndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong
'把控制權傳回給原來的窗口過程
PublicConstWM_GETMINMAXINFO=&H24
TypePOINTAPI
　xAsLong
　yAsLong
EndType
'Thisisthestructurethatispassedbyreference(ByRef)(ieanaddress)toyourmessagehandler(消息偵聽器)
'ThekeyitemsinthisstructureareptMinTrackSizeandptMaxTrackSize
TypeMINMAXINFO
　ptReservedaspOINTAPI
　ptMaxSizeAsPOINTAPI
　ptMaxPositionAsPOINTAPI
　ptMinTrackSizeAsPOINTAPI
　ptMaxTrackSizeAsPOINTAPI
EndType
PublicFunctionSubClass1_WndMessage(ByValhwndAsLong,ByValMsgAsLong,ByValwpAsLong,ByVallpAsLong)AsLong
'Watchforthepertinentmessagetocomein
　IfMsg=WM_GETMINMAXINFOThen
　　DimMinMaxAsMINMAXINFO
'　Thisisnecessarybecausethestructurewaspassedbyitsaddressandthere
'　iscurrentlynointrinsicwaytouseanaddressinVisualBasic
　　CopyMemoryMinMax,ByVallp,Len(MinMax)
'ThisiswhereyousetthevaluesoftheMinX,MinY,MaxX,andMaxY
'Thevaluesplacedinthestructuremustbeinpixels.Thevalues
'normallyusedinVisualBasicareintwCallSetWindowLong(Me.hwnd,GWL_WNDPROC,OldWindowProc)
EndSub->