タイトルバーのボタンDBLClickを無効にします

薄暗い
lpprevwndproc長い
薄暗い
こんにちは

フォームのonloadイベント(Form1)

サンプルコードが処理できず、user32.dllのエラーを発生させることはできません.ありがとう

Public Const GWL_WNDPROC=-4
パブリックコンストラクトWM_LBUTTONDBLCLICK=&H203
Public Declare Function CallWindowProc lib "user32"(byval lpprevwndfunc long long lpprevwndfunc、byval hwnd long _
BYVAL MSG長く、BYVAL WParam Long Long LParamのように長い
Public Declare関数setWindowlong lib "user32" alias _
"SetWindowlonga"(Byval HWND LONG、BYVAL NINDEX、BYVAL _
DWNEWLONG LONG)長い
公共機能フック(FRM ASフォームとして)
GHW= FRM.HWND
LPPREVWNDPROC= SetWindowlong(GHW、GWL_WNDPROC、WINDORPROC宛先宛先)
終了機能
公衆機能不安()
Dim LngreturnValueの長い
lngreturnValue= SetWindowlong(GHW、GWL_WNDPROC、LPPREVWNDPROC)
終了機能
Public Function WindowProc(Long Long Long As Long Long、ByVal UMSG、BYVAL WParam Long _
長い

WindowProc= CallWindowProc(lpprevwndproc、hwnd、UMSG、WParam、LParam、LParam) 終了関数

プライベートサブフォーム名()
WindowProc Me.hwnd、WM_LButtondblclick、0,0&
終了SUB