MouseLeave事件

页面导航:首页 > 软件编程 > vb.net > MouseLeave事件

MouseLeave事件

来源: 作者: 时间:2016-01-18 16:54 【

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

 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控件。
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<