VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 获得MouseLeave的方法
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:11843, 日期:2001-11-02
获得MouseLeave的方法
作者:土人
VB中缺少一个MouseLeave事件,给编程带来许多不便。例如,当我们想令鼠标移动到一个命令按钮时令其Caption属性为一个名称,离开时又是另一个名称,我们通常只能这么处理:用两个MouseMove事件:一个是命令按钮的,另一个可能是窗体的,也可能是命令按钮周边的其它控件的。——这无疑很麻烦,而且当控件较为紧凑时往往达不到预期的目的。有没有什么办法可以判断鼠标已经从某一个控件中移走呢?请看下面的例子。

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

Option Explicit

注释:申明API函数——
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

注释:通过Text1的MouseMove事件判断鼠标指针位置
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

运行程序,把鼠标移到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控件。