说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

交换鼠标左右键 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
交换鼠标左右键 -VB资料
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,看看鼠标键的交换情况
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘