VB中缺少一個(gè)MouseLeave事件，給編程帶來(lái)許多不便。例如，當(dāng)我們想令鼠標(biāo)移動(dòng)到一個(gè)命令按鈕時(shí)令其Caption屬性為一個(gè)名稱(chēng)，離開(kāi)時(shí)又是另一個(gè)名稱(chēng)，我們通常只能這么處理：用兩個(gè)MouseMove事件：一個(gè)是命令按鈕的，另一個(gè)可能是窗體的，也可能是命令按鈕周邊的其它控件的?！@無(wú)疑很麻煩，而且當(dāng)控件較為緊湊時(shí)往往達(dá)不到預(yù)期的目的。有沒(méi)有什么辦法可以判斷鼠標(biāo)已經(jīng)從某一個(gè)控件中移走呢？請(qǐng)看下面的例子。
在標(biāo)準(zhǔn)EXE工程中缺省創(chuàng)建一個(gè)TextBox，然后鍵入以下代碼：
Option Explicit
’申明API函數(shù)——
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
’通過(guò)Text1的MouseMove事件判斷鼠標(biāo)指針位置
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseLeave As Boolean
MouseLeave = (0 <= X) And (X <= Text1.Width) And (0 <= Y) And (Y <= Text1.Height)
If MouseLeave Then
Text1 = "Inside"
SetCapture Text1.hWnd
Else
Text1 = "Outside"
ReleaseCapture
End If
End Sub
運(yùn)行程序，把鼠標(biāo)移到Text1，Text1顯示：Inside，移開(kāi)則顯示：Outside，可見(jiàn)已經(jīng)達(dá)到目的了。
此法適合于一切具有hWnd屬性的控件（如下所列）：
ProgressBar控件，Slider控件，StatusBar控件，TabStrip控件，ToolbarControl，Animation控件，UpDown控件，DBCombo控件，DBList控件，SSTab控件，PicturtClip控件，RichTextBox控件，PropertyPage對(duì)象，UserControl對(duì)象，UserDocument對(duì)象，CheckBox控件，ComboBox控件，CommandButton控件，DirListBox控件，DriveListBox控件，F(xiàn)ileListBox控件，F(xiàn)orm對(duì)象，F(xiàn)orms集合，F(xiàn)rame控件，HscrollBar，VScrollBar控件，ListBox控件，MDIForm對(duì)象，OptionButton控件，PictureBox控件，TextBox控件，OLEContainer控件。
在標(biāo)準(zhǔn)EXE工程中缺省創(chuàng)建一個(gè)TextBox，然后鍵入以下代碼：
Option Explicit
’申明API函數(shù)——
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
’通過(guò)Text1的MouseMove事件判斷鼠標(biāo)指針位置
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseLeave As Boolean
MouseLeave = (0 <= X) And (X <= Text1.Width) And (0 <= Y) And (Y <= Text1.Height)
If MouseLeave Then
Text1 = "Inside"
SetCapture Text1.hWnd
Else
Text1 = "Outside"
ReleaseCapture
End If
End Sub
運(yùn)行程序，把鼠標(biāo)移到Text1，Text1顯示：Inside，移開(kāi)則顯示：Outside，可見(jiàn)已經(jīng)達(dá)到目的了。
此法適合于一切具有hWnd屬性的控件（如下所列）：
ProgressBar控件，Slider控件，StatusBar控件，TabStrip控件，ToolbarControl，Animation控件，UpDown控件，DBCombo控件，DBList控件，SSTab控件，PicturtClip控件，RichTextBox控件，PropertyPage對(duì)象，UserControl對(duì)象，UserDocument對(duì)象，CheckBox控件，ComboBox控件，CommandButton控件，DirListBox控件，DriveListBox控件，F(xiàn)ileListBox控件，F(xiàn)orm對(duì)象，F(xiàn)orms集合，F(xiàn)rame控件，HscrollBar，VScrollBar控件，ListBox控件，MDIForm對(duì)象，OptionButton控件，PictureBox控件，TextBox控件，OLEContainer控件。