41.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 14 行

交换鼠标左右键 
     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,看看鼠标键的交换情况