(3)当鼠标移到按钮上方时,激活标签显示该图标按钮作用的文字.

双击图标按钮,进入命令按钮MOUSEMOVE事件代码窗口:

Private Sub Command1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

LABEL1.BorderStyle = 1

LABEL1.BACKCOLOR =&H0000FFFF& 显示文字的标签框底色为黄色

LABEL1.Visible = True

LABEL1.CAPTION = "演 示"

End Sub

(4)当鼠标从按钮上移开后,提示行文字立即消失.

双击窗体,进入窗体MOUSEMOVE事件代码窗口:

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环境下运行通过.