如何判断鼠标是否移到控件上,当移到控件上时发生一种变化,当移开控件时又发生一种变化

MOUSE_MOVE

我试过了,当移到上面发生变化,移开后就不改变了,还是保持刚才发生的变化

鼠標函數
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Option Explicit
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > 0 And Y > 0 And X < Command1.Width And Command1.Height Then
Command1.FontSize = 16
SetCapture Command1.hwnd
Else
Command1.FontSize = 10
ReleaseCapture
End If
End Sub

这年头,不用API还真是不行,谢了各位版主
5楼的好像有个误笔
If X > 0 And Y > 0 And X < Command1.Width And Y>Command1.Height Then

不好意思..打快了.没看到

应该是And Y&lt;Command1.height

对,是我的错,没看仔细

假如是控件LABEL控件呢,它没有HWND属性