用标签或图像作为按钮时,可在鼠标移动时改变标签或图像的外观。
通常在鼠标移到标签或图像上面时改变改变标签或图像的外观,在鼠标移到窗体上时恢复外观。
但经常遇到,标签或图像在窗体边缘时,就不会发生窗体的鼠标移动事件,标签或图像不能恢复外观。
解决办法是用两个API函数 SetCapture 和 ReleaseCapture ,声明和说明如下:
- Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
- '将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候,这个窗口会为当前应用程序或整个系统接收所有鼠标输入
- '返回值'Long,之前拥有鼠标捕获的窗口的句柄'参数 'hwnd Long,要接收所有鼠标输入的窗口的句柄
- Private Declare Function ReleaseCapture Lib "user32" () As Long
- '为当前的应用程序释放鼠标捕获 '返回值'Long,TRUE(非零)成功,零失败
- '使用举例:
- Private Sub Label0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- ' 鼠标移动到标签时设置标签背景色为红色
- Me.Label0.BackColor = 255
- ' 将鼠标捕获设置到当前窗口,这样即使鼠标移出窗体范围,窗体仍可捕获鼠标
- SetCapture Me.hwnd
- End Sub
- Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- ' 鼠标移动到窗体时恢复标签背景色为白色
- Me.Label0.BackColor = 16777215
-
- ' 恢复标签的背景色后应释放鼠标捕获
- ReleaseCapture
-
- End Sub
- Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- ' 同上
- Me.Label0.BackColor = 16777215
- ReleaseCapture
- End Sub