获得MouseLeave的方法

核心提示：VB中缺少一个MouseLeave事件，给编程带来许多不便，获得MouseLeave的方法，例如，当我们想令鼠标移动到一个命令按钮时令其Caption属性为一个名称，PictureBox控件，TextBox控件，离开时又是另一个名称，我们通常只能这么处理：用两个MouseMove事件：一个是命令按钮的

VB中缺少一个MouseLeave事件，给编程带来许多不便。例如，当我们想令鼠标移动到一个命令按钮时令其Caption属性为一个名称，离开时又是另一个名称，我们通常只能这么处理：用两个MouseMove事件：一个是命令按钮的，另一个可能是窗体的，也可能是命令按钮周边的其它控件的。——这无疑很麻烦，而且当控件较为紧凑时往往达不到预期的目的。有没有什么办法可以判断鼠标已经从某一个控件中移走呢？请看下面的例子。

在标准EXE工程中缺省创建一个TextBox，然后键入以下代码：

OptionExplicit

'申明API函数——
PRivateDeclareFunctionSetCaptureLib"user32"(ByValhWndAsLong)AsLong
PrivateDeclareFunctionReleaseCaptureLib"user32"()AsLong

'通过Text1的MouseMove事件判断鼠标指针位置
PrivateSubText1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

DimMouseLeaveAsBoolean

MouseLeave=(0<=X)And(X<=Text1.Width)And(0<=Y)And(Y<=Text1.Height)

IfMouseLeaveThen
Text1="Inside"
SetCaptureText1.hWnd

Else
Text1="Outside"
ReleaseCapture
EndIf

EndSub

运行程序，把鼠标移到Text1，Text1显示：Inside，移开则显示：Outside，可见已经达到目的了。
此法适合于一切具有hWnd属性的控件（如下所列）：

ProgressBar控件，Slider控件，StatusBar控件，TabStrip控件，ToolbarControl，Animation控件，UpDown控件，DBCombo控件，DBList控件，SSTab控件，PicturtClip控件，RichTextBox控件，PropertyPage对象，UserControl对象，UserDocument对象，CheckBox控件，ComboBox控件，CommandButton控件，DirListBox控件，DriveListBox控件，FileListBox控件，Form对象，Forms集合，Frame控件，HscrollBar，VScrollBar控件，ListBox控件，MDIForm对象，OptionButton控件，PictureBox控件，TextBox控件，OLEContainer控件。->