タイトル : Re^3: マウスの左ボタンと右ボタン制御の交換 投稿日 : 2021/03/29(Mon) 22:12 投稿者 : 魔界の仮面弁士
引用は適切に。 http://hanatyan.sakura.ne.jp/logbbs1/wforum.cgi?mode=msgview&no=4580 http://hanatyan.sakura.ne.jp/logbbs/wforum.cgi?mode=msgview&no=6111 > マウスの左ボタンと右ボタンで行っていた制御を一時的に交換したい マウスボタンの交換は、Windows 全体に対して影響を与える行為です。 通常は、コントロール パネルの マウスのプロパティ ダイアログの 「主と副のボタンを切り替える」のチェックボックスを使って切り替えられます。 https://faq.nec-lavie.jp/qasearch/1007/app/servlet/relatedqa?QID=018276 先のコードは、この設定をプログラムから On/Off するためのものですね。 > このプログラム部分は、formのここに配置する。などのご指示は虫が良すぎますかね。 新規に標準モジュールを追加して、そこにこのコードを書いてください。それで準備完了です。 (標準モジュールの代わりに、Form の先頭にこれらのコードを貼ることもできます) 左右のボタンを交換したければ、 SwapMouseButton = True と書くことで入れ替わります。そして、 SwapMouseButton = False と書くことで、元の状態に戻ります。 今回の目的は「制御を一時的に交換したい」というものですから、 どのタイミングで交換を開始し、どのタイミングで元に戻したいのかは ご自身で決めてください。 たとえばフォーム起動時に入れ替えるようにし、 フォームを閉じたときのイベント処理で、元に戻すのも良いでしょう。 あるいはフォームに CheckBox を貼っておき、 それを On/Off したタイミングで切り替えたいなら、 Private Sub CheckBox1_Click() SwapMouseButton = CheckBox1.Value End Sub などと書くことができます。 |