敬业的IT人 互联网 佚名 2007-12-28 15:31:09

　　API函数SwapMouseButton可以很简单的实现鼠标左右键的交换.请看下例
>>步骤1----建立新工程,在窗体上放置两个CommandButton按钮.
>>步骤2----添加如下代码:
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long

Private Sub Command1_Click()
SwapMouseButton 1
End Sub

Private Sub Command2_Click()
SwapMouseButton 0
End Sub
>>步骤3----编译运行,点击Command1和Command2,看看鼠标键的交换情况

最新文章

交换鼠标左右键[12-28]

交换鼠标的左右键[12-28]

交换鼠标按钮[12-28]

电子地图全面比拼之公交换乘查询篇[12-28]

Duwamish 7未来之路 － 数据交换（原创）[12-28]

储市场未来趋势纵览：光纤通道交换机走向独立[12-28]

相关文章