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

　　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]

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

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

不同磁带库间的数据交换和共享[12-28]

相关文章