サ ン プ ル プ ロ グ ラ ム

まずフォームモジュールと標準モジュールを追加し以下のコードを張り付けて下さい。次にコマンドボタンと状況表示用のラベルをフォームに張り付けて下さい。そして実行してください。なお絶対にフォームのＸボタンで終了するようにしてください。ＶＢ環境内の停止ボタンで終了すると、ページ違反が起こります（処理の流れ（４）が行えない）。タイトルバーをクリックするとデバックウィンドウにメッセージを表示します。

動作確認：Visual Basic 5.0(Visual Basic 4.0では動作しません（AddressOfを使用））,Windows98

フォームモジュール（Form1）

Option Explicit Private Sub Form_Load() StartMsg End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ExitMsg End Sub

標準モジュール

Option Explicit Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal PWF&, ByVal hWnd&, ByVal Msg&, ByVal wParam&, ByVal lParam As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&) As Long Public Const GWL_WNDPROC = (-4) Public Const WM_NCLBUTTONDOWN = &HA1 Dim oad As Long Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If uMsg = WM_NCLBUTTONDOWN Then Debug.Print "非クライアント領域（タイトルバーなど）がクリックされました" End If WindowProc = CallWindowProc(oad, hWnd, uMsg, wParam, lParam) End Function Public Sub StartMsg() oad = SetWindowLong(Form1.hWnd, GWL_WNDPROC, AddressOf WindowProc) End Sub Public Sub ExitMsg() SetWindowLong Form1.hWnd, GWL_WNDPROC, oad End Sub

備 考

以下のようなメッセージを得ることが出来ますが、ＶＢだけで発生するものも多いので、ＶＢだけで発生するものに関しては素直にそちらを使用したほうが良いと思います。

Public Const WM_ACTIVATE = &H6 'ｳｲﾝﾄﾞｳがｱｸﾃｨﾌﾞ・非ｱｸﾃｨﾌﾞになった Public Const WM_ACTIVATEAPP = &H1C '別のｱﾌﾟﾘｹｰｼｮﾝのｳｲﾝﾄﾞｳがｱｸﾃｨﾌﾞ・非ｱｸﾃｨﾌﾞになりつつある Public Const WM_ASKCBFORMATNAME = &H30C 'ｸﾘｯﾌﾟﾎﾞｰﾄﾞのﾌｫｰﾏｯﾄ名を文字列ﾊﾞｯﾌｧにｺﾋﾟｰを要求 Public Const WM_CANCELMODE = &H1F 'ﾒｯｾｰｼﾞﾎﾞｯｸｽ等のﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽが表示されようとしている Public Const WM_CHAR = &H102 'ｷｰﾎﾞｰﾄﾞから文字入力を受け取った Public Const WM_CHILDACTIVATE = &H22 'MDIｺﾝﾄﾛｰﾙの子ｳｲﾝﾄﾞｳがｱｸﾃｨﾌﾞになった Public Const WM_CLEAR = &H303 'ﾃｷｽﾄﾎﾞｯｸｽ、ｺﾝﾎﾞﾎﾞｸｽの選択ﾃｷｽﾄを削除 Public Const WM_CLOSE = &H10 'ｳｲﾝﾄﾞｳあるいはｱﾌﾟﾘｹｰｼｮﾝをｸﾛｰｽﾞされた Public Const WM_COMMAND = &H111 'ﾒﾆｭｰが選択されたあるいはｺﾝﾄﾛｰﾙにｲﾍﾞﾝﾄが発生した Public Const WM_COMMNOTIFY = &H44 '通信用通知を受け取った Public Const WM_COMPACTING = &H41 'ｼｽﾃﾑがﾒﾓﾘ不足の状態にある Public Const WM_COPY = &H301 'ﾃｷｽﾄﾎﾞｯｸｽ、ｺﾝﾎﾞﾎﾞｯｸｽの選択ﾃｷｽﾄをｸﾘｯﾌﾟﾎﾞｰﾄﾞにｺﾋﾟｰ Public Const WM_CREATE = &H1 'ｳｲﾝﾄﾞｳが作成中 Public Const WM_CUT = &H300 'ﾃｷｽﾄﾎﾞｯｸｽ、ｺﾝﾎﾞﾎﾞｯｸｽの選択ﾃｷｽﾄをｸﾘｯﾌﾟﾎﾞｰﾄﾞにｺﾋﾟｰ Public Const WM_DEADCHAR = &H103 'ｱｸｾﾝﾄ記号のような文字と組合せた文字を受け取った Public Const WM_DELETEITEM = &H2D 'ｵｰﾅ描画ﾘｽﾄﾎﾞｯｸｽの項目が削除された Public Const WM_DESTROY = &H2 'ｳｲﾝﾄﾞｳが破棄された Public Const WM_DESTROYCLIPBOARD = &H307 'EmptyClipboard()によってｸﾘｯﾌﾟﾎﾞｰﾄﾞが空になった Public Const WM_DEVMODECHANGE = &H1B 'WIN.INI のﾃﾞﾌｫﾙﾄのﾃﾞﾊﾞｲｽ名が変更された Public Const WM_DRAWCLIPBOARD = &H308 'ｸﾘｯﾌﾟﾎﾞｰﾄﾞの内容が変わった Public Const WM_DROPFILES = &H233 'ﾌｧｲﾙﾏﾈｰｼﾞｬからの Drag & Drop Public Const WM_ENABLE = &HA 'ｳｲﾝﾄﾞｳが有効・無効になった Public Const WM_ENDSESSION = &H16 'Windows が終了する Public Const WM_ENTERIDLE = &H121 'ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽ、ﾒﾆｭｰが入力待ち Public Const WM_ERASEBKGND = &H14 'ﾊﾞｯｸｸﾞﾗｳﾝﾄﾞを消去(再ﾍﾟｲﾝﾄ) Public Const WM_FONTCHANGE = &H1D 'ｼｽﾃﾑﾌｫﾝﾄが変更された Public Const WM_GETFONT = &H31 'ﾃｷｽﾄﾎﾞｯｸｽ､ﾗﾍﾞﾙ等が現在使っているﾌｫﾝﾄのﾊﾝﾄﾞﾙ Public Const WM_GETMINMAXINFO = &H24 'ﾌｫｰﾑの最大・最小化時に可能なｻｲｽﾞを取得 Public Const WM_GETTEXT = &HD 'ｺﾝﾄﾛｰﾙのｷｬﾌﾟｼｮﾝ、ﾃｷｽﾄﾎﾞｯｸｽのﾃｷｽﾄをﾊﾞｯﾌｧにｺﾋﾟｰ Public Const WM_GETTEXTLENGTH = &HE 'WM_GETTEXT の前に文字数を調べる Public Const WM_HSCROLL = &H114 '水平ｽｸﾛｰﾙﾊﾞｰを調整している Public Const WM_HSCROLLCLIPBOARD = &H30E 'ｸﾘｯﾌﾟﾎﾞｰﾄﾞﾋﾞｭｰﾜで水平ｽﾙｸｰﾙﾊﾞｰが使われた Public Const WM_ICONERASEBKGND = &H27 'ｸﾗｽｱｲｺﾝがある時、ｱｲｺﾝの描画前に通知 Public Const WM_IME_CHAR = &H286 'IMEが変換後の文字を受取った Public Const WM_IME_COMPOSITION = &H10F 'ｷｰ入力によってIMEが確定後の状態を変更した Public Const WM_IME_COMPOSITIONFULL = &H284 '確定後の文字を表示するｳｲﾝﾄﾞｳにｽﾍﾟｰｽがない Public Const WM_IME_CONTROL = &H283 'IMEにｺﾏﾝﾄﾞを送る Public Const WM_IME_ENDCOMPOSITION = &H10E '文字を確定した Public Const WM_IME_KEYDOWN = &H290 'ｷｰを押した Public Const WM_IME_KEYUP = &H291 'ｷｰを離した Public Const WM_IME_NOTIFY = &H282 'IMEｳｲﾝﾄﾞｳの変化をｱﾌﾟﾘｹｰｼｮﾝに知らせる Public Const WM_IME_SELECT = &H285 'ｼｽﾃﾑがIMEを変更しようとしている Public Const WM_IME_SETCONTEXT = &H281 'IMEの入力ｳｲﾝﾄﾞｳがｱｸﾃｨﾌﾞになった時ｱﾌﾟﾘｹｰｼｮﾝに通知する Public Const WM_IME_STARTCOMPOSITION = &H10D '確定する前に通知する Public Const WM_INITDIALOG = &H110 'ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽが表示される Public Const WM_INITMENU = &H116 'ﾒﾆｭｰが表示される直前に通知 Public Const WM_INITMENUPOPUP = &H117 'ﾎﾟｯﾌﾟｱｯﾌﾟﾒﾆｭｰが表示される直前に通知 Public Const WM_KEYDOWN = &H100 'ｷｰﾎﾞｰﾄﾞのｷｰが押された Public Const WM_KILLFOCUS = &H8 'ﾌｫｰｶｽがなくなる直前に通知 Public Const WM_LBUTTONDBLCLK = &H203 '左のﾏｳｽﾎﾞﾀﾝをﾀﾞﾌﾞﾙｸﾘｯｸした Public Const WM_LBUTTONDOWN = &H201 '左のﾏｳｽﾎﾞﾀﾝを押した Public Const WM_LBUTTONUP = &H202 '左のﾏｳｽﾎﾞﾀﾝが解放された Public Const WM_MBUTTONDBLCLK = &H209 '中央のﾏｳｽﾎﾞﾀﾝがﾀﾞﾌﾞﾙｸﾘｯｸされた Public Const WM_MBUTTONDOWN = &H207 '中央のﾏｳｽﾎﾞﾀﾝが押された Public Const WM_MBUTTONUP = &H208 '中央のﾏｳｽﾎﾞﾀﾝが解放された Public Const WM_MDIACTIVATE = &H222 'MDIで指定した子ｳｲﾝﾄﾞｳをｱｸﾃｨﾌﾞにする Public Const WM_MDICASCADE = &H227 'MDI子ｳｲﾝﾄﾞｳをｶｽｹｰﾄﾞ表示にする Public Const WM_MDICREATE = &H220 'MDI子ｳｲﾝﾄﾞｳを作成する Public Const WM_MDIDESTROY = &H221 'MDI子ｳｲﾝﾄﾞｳを破棄する Public Const WM_MDIGETACTIVE = &H229 '現在ｱｸﾃｨﾌﾞなMDI子ｳｲﾝﾄﾞｳのﾊﾝﾄﾞﾙを取得 Public Const WM_MDIICONARRANGE = &H228 'MDI子ｳｲﾝﾄﾞｳのｱｲｺﾝを整列 Public Const WM_MDIMAXIMIZE = &H225 'MDI子ｳｲﾝﾄﾞｳを最大化 Public Const WM_MDINEXT = &H224 '次の子ｳｲﾝﾄﾞｳをｱｸﾃｨﾌﾞにする Public Const WM_MDIRESTORE = &H223 '最大化・最小化されている子ｳｲﾝﾄﾞｳを元のｻｲｽﾞに戻す Public Const WM_MDISETMENU = &H230 'ﾒﾆｭｰをMDIﾌﾚｰﾑｳｲﾝﾄﾞｳにﾘﾝｸ Public Const WM_MDITILE = &H226 'MDI子ｳｲﾝﾄﾞｳをﾀｲﾙ整列 Public Const WM_MENUCHAR = &H120 'ﾒﾆｭｰのｱｸｾｽｷｰの英文字と一致しない文字を受け取った Public Const WM_MENUSELECT = &H11F 'ﾒﾆｭｰが強調表示・選択された Public Const WM_MOUSEACTIVATE = &H21 'ﾏｳｽｸﾘｯｸによりｱｸﾃｨﾌﾞｳｲﾝﾄﾞｳが移った Public Const WM_MOUSEMOVE = &H200 'ﾏｳｽが移動した Public Const WM_MOVE = &H3 'ｳｲﾝﾄﾞｳが移動した Public Const WM_NCACTIVATE = &H86 '非ｸﾗｲｱﾝﾄ領域がｱｸﾃｨﾌﾞ・非ｱｸﾃｨﾌﾞである Public Const WM_NCCALCSIZE = &H83 'ｳｲﾝﾄﾞｳのｻｲｽﾞを再計算する Public Const WM_NCCREATE = &H81 'ｳｲﾝﾄﾞｳのｽﾀｲﾙが変更された時に最初に送られるﾒｯｾｰｼﾞ Public Const WM_NCDESTROY = &H82 '非ｸﾗｲｱﾝﾄ領域が破棄 Public Const WM_NCHITTEST = &H84 '非ｸﾗｲｱﾝﾄ領域のどの部分でﾏｳｽが操作されたか調べる Public Const WM_NCLBUTTONDBLCLK = &HA3 '非ｸﾗｲｱﾝﾄ領域で左ﾎﾞﾀﾝをﾀﾞﾌﾞﾙｸﾘｯｸ Public Const WM_NCLBUTTONDOWN = &HA1 '非ｸﾗｲｱﾝﾄ領域で左ﾎﾞﾀﾝを押す Public Const WM_NCLBUTTONUP = &HA2 '非ｸﾗｲｱﾝﾄ領域で左ﾎﾞﾀﾝを解放 Public Const WM_NCMBUTTONDBLCLK = &HA9 '非ｸﾗｲｱﾝﾄ領域で中央ﾎﾞﾀﾝをﾀﾞﾌﾞﾙｸﾘｯｸ Public Const WM_NCMBUTTONDOWN = &HA7 '非ｸﾗｲｱﾝﾄ領域で中央ﾎﾞﾀﾝを押す Public Const WM_NCMBUTTONUP = &HA8 '非ｸﾗｲｱﾝﾄ領域で中央ﾎﾞﾀﾝを解放 Public Const WM_NCMOUSEMOVE = &HA0 '非ｸﾗｲｱﾝﾄ領域でﾏｳｽが移動 Public Const WM_NCPAINT = &H85 '非ｸﾗｲｱﾝﾄ領域で再ﾍﾟｲﾝﾄが必要 Public Const WM_NCRBUTTONDBLCLK = &HA6 '非ｸﾗｲｱﾝﾄ領域で右ﾎﾞﾀﾝをﾀﾞﾌﾞﾙｸﾘｯｸ Public Const WM_NCRBUTTONDOWN = &HA4 '非ｸﾗｲｱﾝﾄ領域で右ﾎﾞﾀﾝを押す Public Const WM_NCRBUTTONUP = &HA5 '非ｸﾗｲｱﾝﾄ領域で右ﾎﾞﾀﾝを解放 Public Const WM_NEXTDLGCTL = &H28 '入力ﾌｫｰｶｽを別の子ｳｲﾝﾄﾞｳに移動 Public Const WM_NULL = &H0 'これ自体は何もしないがﾒｯｾｰｼﾞを操作する場合に使う Public Const WM_PAINT = &HF 'ｳｲﾝﾄﾞｳのｸﾗｲｱﾝﾄ領域を再描画しなければならない Public Const WM_PALETTECHANGED = &H311 'ｼｽﾃﾑﾊﾟﾚｯﾄが変更された Public Const WM_PALETTEISCHANGING = &H310 'ｼｽﾃﾑﾊﾟﾚｯﾄが別のｳｲﾝﾄﾞｳによって変更されようとしている Public Const WM_PARENTNOTIFY = &H210 'あるｲﾍﾞﾝﾄが子ｳｲﾝﾄﾞｳで発生したことを親ｳｲﾝﾄﾞｳに通知する Public Const WM_PASTE = &H302 'ｸﾘｯﾌﾟﾎﾞｰﾄﾞからﾃｷｽﾄをｺﾋﾟｰした Public Const WM_POWER = &H48 'ｼｽﾃﾑがﾊﾟﾜｰ節約状態に入る・出ること通知する Public Const WM_QUERYDRAGICON = &H37 'ｱｲｺﾝを表示しようとする時にｸﾗｽｱｲｺﾝを持たないｳｲﾝﾄﾞｳに送る Public Const WM_QUERYENDSESSION = &H11 'Windowsを終了する時にすべてのｳｲﾝﾄﾞｳに問合わせる Public Const WM_QUERYNEWPALETTE = &H30F '入力ﾌｫｰｶｽを受取る時、論理ﾊﾟﾚｯﾄで置換えるかどうか問合わせる Public Const WM_QUERYOPEN = &H13 'ｱｲｺﾝ化されたｳｲﾝﾄﾞｳが復元する時、直前の位置とｻｲｽﾞを要求されているかどうか問合わせる Public Const WM_QUIT = &H12 'ｱﾌﾟﾘｹｰｼｮﾝが処理する最後のﾒｯｾｰｼﾞ Public Const WM_RBUTTONDBLCLK = &H206 '右のﾏｳｽﾎﾞﾀﾝをﾀﾞﾌﾞﾙｸﾘｯｸした Public Const WM_RBUTTONDOWN = &H204 '右ﾏｳｽﾎﾞﾀﾝを押した Public Const WM_RBUTTONUP = &H205 '右ﾏｳｽﾎﾞﾀﾝを解放した Public Const WM_SETCURSOR = &H20 'ﾏｳｽをｷｬﾌﾟﾁｬしているｳｲﾝﾄﾞｳがない時、ﾏｳｽがあるｳｲﾝﾄﾞｳに送られる Public Const WM_SETFOCUS = &H7 'ｳｲﾝﾄﾞｳが入力ﾌｫｰｶｽを得た Public Const WM_SETFONT = &H30 '論理ﾌｫﾝﾄを設定する Public Const WM_SETREDRAW = &HB 'ｺﾝﾄﾛｰﾙの再描画操作を制御する Public Const WM_SETTEXT = &HC 'ｳｲﾝﾄﾞｳ(ｺﾝﾄﾛｰﾙ)のﾀｲﾄﾙ・ﾃｷｽﾄを変更 Public Const WM_SHOWWINDOW = &H18 'ｳｲﾝﾄﾞｳが表示・非表示になった Public Const WM_SIZE = &H5 'ｳｲﾝﾄﾞｳのｻｲｽﾞが変更 Public Const WM_SIZECLIPBOARD = &H30B ' Public Const WM_SPOOLERSTATUS = &H2A '印刷ｷｭｰに印刷ｼﾞｮﾌﾞが追加・削除された Public Const WM_SYSCHAR = &H106 '[Alt]ｷｰとの組合せ以外はWM_CHARと同じ Public Const WM_SYSCOLORCHANGE = &H15 'ｼｽﾃﾑｶﾗｰが変更された Public Const WM_SYSCOMMAND = &H112 'ｼｽﾃﾑﾒﾆｭｰが操作された Public Const WM_SYSDEADCHAR = &H107 'ｱｸｾﾝﾄ記号のような別の文字と組合せた文字入力を受け取った Public Const WM_SYSKEYDOWN = &H104 'ｼｽﾃﾑ文字を意味するｷｰを押した Public Const WM_SYSKEYUP = &H105 'ｼｽﾃﾑ文字を意味するｷｰが解放された Public Const WM_TIMECHANGE = &H1E 'ｼｽﾃﾑﾀｲﾏが変更された Public Const WM_TIMER = &H113 'SetTimer()で設定した時間を経過 Public Const WM_UNDO = &H304 'ﾃｷｽﾄﾎﾞｯｸｽで Undo 操作を実行する Public Const WM_USER = &H400 'ﾕｰｻﾞｰが定義できるﾒｯｾｰｼﾞの使用領域を表すだけでこれ自体に意味はない Public Const WM_VSCROLL = &H115 'ﾕｰｻﾞｰが垂直ｽｸﾛｰﾙﾊﾞｰを調整した Public Const WM_WINDOWPOSCHANGED = &H47 'SetWindowPos()後に位置とｻｲｽﾞを変更したｳｲﾝﾄﾞｳに送られる Public Const WM_WINDOWPOSCHANGING = &H46 'SetWindowPos()で位置とｻｲｽﾞを変更しているｳｲﾝﾄﾞｳに送られる Public Const WM_WININICHANGE = &H1A 'WIN.INIが変更された

トップに戻る
Visual Basicワンポイントテクニック目次に戻る

PC用眼鏡【管理人も使ってますがマジで疲れません】 解約手数料０円【あしたでんき】 Yahoo 楽天 NTT-X Store

無料ホームページ 無料のクレジットカード 海外格安航空券 ふるさと納税 海外旅行保険が無料！ 海外ホテル