找回密码
 加入我们

QQ登录

只需一步,快速开始

搜索
查看: 4718|回复: 0

在VB中实现鼠标左右键的交换

[复制链接]

1214

主题

352

回帖

11

精华

管理员

菜鸟

积分
93755

贡献奖关注奖人气王精英奖乐于助人勋章

发表于 2007-6-9 20:06:43 | 显示全部楼层 |阅读模式
<span class="TT1">交换鼠标左右键 <br/>--------------------------------------------------------------------------------<br/> API函数SwapMouseButton可以很简单的实现鼠标左右键的交换.请看下例<br/>&gt;&gt;步骤1----建立新工程,在窗体上放置两个CommandButton按钮.<br/>&gt;&gt;步骤2----添加如下代码:<br/>Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long <br/><br/>Private Sub Command1_Click()<br/>SwapMouseButton 1<br/>End Sub<br/><br/>Private Sub Command2_Click()<br/>SwapMouseButton 0<br/>End Sub<br/>&gt;&gt;步骤3----编译运行,点击Command1和Command2,看看鼠标键的交换情况</span>
【VB】QQ群:1422505加的请打上VB好友
【易语言】QQ群:9531809  或 177048
【FOXPRO】QQ群:6580324  或 33659603
【C/C++/VC】QQ群:3777552
【NiceBasic】QQ群:3703755
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

快速回复 返回顶部 返回列表