No.1ベストアンサー
- 回答日時:
サブクラス化してメッセージをフックすれば出来ます。
http://www.vbvbvb.com/jp/gtips/
の824~840を参照
しかし、Form_Resizeイベントが何故駄目なのでしょうか?
この回答への補足
回答ありがとうございます。
なぜForm_Resizeではだめなのかと言いますと、
Windowsの「ウィンドウ内容を表示したままドラッグする」の設定を
有効にしていると、サイズ変更するたびにForm_Resizeが走ってしまうので
それを避けたかったのです。
No.2
- 回答日時:
form_resizeでタイマを立てて、マウスボタンが放された時に
イベント処理を実行すればいいと思います。
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Const VK_LBUTTON = &H1 'マウス左ボタン
Const VK_RBUTTON = &H2 'マウス右ボタン
Private Sub Form_Resize()
Timer1.Interval = 100 'タイマを有効
End Sub
Private Sub Timer1_Timer()
'マウスのボタンが押されているなら処理を実行しない
If (GetKeyState(VK_LBUTTON) And &H8000) Then Exit Sub
'If (GetKeyState(VK_RBUTTON) And &H8000) Then Exit Sub
Timer1.Interval = 0 'タイマを無効
'ここにForm_Resizeのイベント処理
Beep
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
BorlandC++Builderでのタイマー...
-
閉じると「+」になり開くと「-...
-
vb.netでdatagridの中に選択ボ...
-
VBA CommandButtonの文字ずれ
-
他フォームのクリックイベント取得
-
VBS でユーザーからいくつかの...
-
回数のカウント
-
バックスペース機能の作り方
-
アイコンとボタンの違い
-
Excel VBA Application.caller...
-
フォームの再読み込み
-
[Excel VBA]コマンドボタンの入...
-
VB.net でトグルボタンを実現し...
-
アセンブリコードの表示
-
VBAのボタンの位置が変わって困...
-
VBAで多数のプログラムを一つの...
-
リストボックス 何も洗濯され...
-
ユーザフォーム AfterUpdate処...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
フォームの再読み込み
-
アイコンとボタンの違い
-
VBAのボタンの位置が変わって困...
-
閉じると「+」になり開くと「-...
-
Excel VBA Application.caller...
-
Access VBA でデータペーストを...
-
セルをマクロのボタンにしたい。
-
コマンドボタンやイメージにマ...
-
VBAでオプションボタンによって...
-
ボタンをマウスで押し続けたと...
-
[Excel VBA]コマンドボタンの入...
-
VBA IE ダウンロード ダイアロ...
-
プロシージャからイベントをコ...
-
チェックボックスで指定出来る...
-
+ボタンの名称は?
-
VBA でのボタンの移動について
おすすめ情報