[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^2: マウスの左ボタンと右ボタン制御の交換 投稿日 ： 2021/03/29(Mon) 21:10 投稿者 ： マイメモリー
| > > マウスの左ボタンと右ボタンで行っていた制御を一時的に交換したい > > のですが、どのようにプログラムすれば宜しいのでしょうか。 > > こんな感じで。 > > Option Explicit > > #If VBA7 Then > Private Declare PtrSafe Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoW" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long > Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long > #Else > Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoW" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long > Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long > #End If > > Public Property Let SwapMouseButton(bool As Boolean) > Const SPI_SETMOUSEBUTTONSWAP As Long = 33& > SystemParametersInfo SPI_SETMOUSEBUTTONSWAP, IIf(bool, 1&, 0&), ByVal 0&, ByVal 1& > End Property > > Public Property Get SwapMouseButton() As Boolean > Const SM_SWAPBUTTON As Long = 23& > SwapMouseButton = CBool(GetSystemMetrics(SM_SWAPBUTTON)) > End Property 魔界の仮面弁士さん、早速のご回答をありがとうございました。 ご返事が遅くなり、申し訳ございませんでした。 ただ、具体的にどのようにこのプログラムをformに配置すれば良いのか、わからないのが 正直なところです。まだまだ私自身が初心者であることを痛く感じている次第です。 このプログラム部分は、formのここに配置する。などのご指示は虫が良すぎますかね。 でも、お願いしたいです。・・・無理を承知で。 |
をクリックするとツリー全体を一括表示します） - マウスの左ボタンと右ボタン制御の交換 - マイメモリー 21/03/22-22:05No.16604