7,788
社区成员
发帖
与我相关
我的任务
分享在vb里面怎样检测是否win98的鼠标左右被替换了?也就是左手习惯使用鼠标?（
在vb里面怎样检测是否win98的鼠标左右被替换了?也就是左手习惯使用鼠标?（
...全文
请发表友善的回复…
发表回复
bestofbest 2003-01-10
- 打赏
- 举报
学习
litsnake1 2003-01-09
- 打赏
- 举报
同意，高手又出现拉，退场罗
fling_boy 2003-01-09
- 打赏
- 举报
SwapMouseButton
VB声明
Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long
说明
决定是否互换鼠标左右键的功能
返回值
Long，TRUE（非零）表示鼠标按钮的功能在调用这个函数之前已经互换；否则返回零
参数表
参数 类型及说明
bSwap Long，倘若为TRUE（非零），则互换两个鼠标按钮的功能。FALSE则恢复正常状态
注解
鼠标是一种共享资源，所以这个函数会对系统中的所有应用程序造成影响
----------------------------------------------------------
你这样调用:
public function IsSwap() as boolean
if SwapMouseButton(0) then
IsSwap=true
SwapMouseButton(1)
else
IsSwap=false
end if
end function
VB声明
Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long
说明
决定是否互换鼠标左右键的功能
返回值
Long，TRUE（非零）表示鼠标按钮的功能在调用这个函数之前已经互换；否则返回零
参数表
参数 类型及说明
bSwap Long，倘若为TRUE（非零），则互换两个鼠标按钮的功能。FALSE则恢复正常状态
注解
鼠标是一种共享资源，所以这个函数会对系统中的所有应用程序造成影响
----------------------------------------------------------
你这样调用:
public function IsSwap() as boolean
if SwapMouseButton(0) then
IsSwap=true
SwapMouseButton(1)
else
IsSwap=false
end if
end function
