Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
LABEL1.Visible = False
End Sub
实例二:互换鼠标的左右按钮.
实现效果:当你的鼠标左键或右键不好时,通过调用WINDOWS API的SwapMouseButton()
函数,实现鼠标的左右键互换.
实现方法:
(1)建立含有如下控件的窗体:
控件
NAME
CAPTION
窗体 SWAP_BUTT
实例二:鼠标的左右按钮互换 程序窗口
命令按钮 COMMAND1
鼠标的左右键互换
命令按钮 COMMAND2
恢复原状态
命令按钮 COMMAND3
退出
命令按钮 COMMAND4
清除标志
标签 LABEL1
按下左按钮:( )
标签 LABEL2
按下右按钮:( )
标签 LABEL3
空 显示按下标志
标签 LABEL4
空
(2)在目标文件列表(OBJECT)中选择GENERAL,在过程列表(PROC)中选择DECLARATIONS
(声明),系统进入窗体级代码的定义窗口中.输入如下定义:
Private Declare Function SwapMouseButton Lib "USER32" Alias "SwapMouseButtonA" (ByVal BSWAP As Integer) As Integer
(3)双击窗体,进入MOUSEUP事件代码窗口:
Private Sub Form_MouseUp (BUTTON As Integer, Shift As Integer, X As Single, Y As Single)
If BUTTON And &H111 Then
LABEL3.Caption = "√"
Else
LABEL4.Caption = "√"
End If
End Sub
(4)双击命令按钮1,进入命令按钮单击事件代码窗口:
Private Sub Command1_Click ()
Dim SWAP_BUTT As Integer
SWAP_BUTT = SWAPMOUSEBUTTON(-1) 互换鼠标的左右键
End Sub
(5)双击命令按钮2,进入命令按钮单击事件代码窗口:
Private Sub Command2_Click ()
Dim SWAP_BUTT As Integer
SWAP_BUTT = SWAPMOUSEBUTTON(0) 恢复鼠标的原状态
End Sub
(6)双击命令按钮3,进入命令按钮单击事件代码窗口:
Private Sub Command4_Click ()
LABEL3.Caption = " "
LABEL4.Caption = " "
End Sub
(7)双击退出按钮,进入命令按钮单击事件代码窗口:
Private Sub Command3_Click ()
End
End Sub
以上程序在WINDOWS98,VISUAL FOXPRO 6.0,VISUAL BASIC 6.0环境下运行通过. （出处：清风学院）
上一篇:在 VB 中实现关联窗口的隐藏
下一篇:在VB中怎样获取WINDOWS打印机里的打印队列里的内容
|
精品推荐