以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于在窗口全局事件“MouseEnter”中写代码的请助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15026)
--  作者：liguichuan
--  发布时间：2011/12/9 23:20:00
--  关于在窗口全局事件“MouseEnter”中写代码的请助

在一个窗口中，不想在每个控件的“MouseEnter”中写代码来实现鼠标进入控件提示（每个控件都出现提示），如何在全局表中的“MouseEnter”写代码呢？如何写，下面的写法好像不行。如何获得当前的焦点落在何处呢？

 

\'\'\'
If e.Form.Controls("User Name").Focused = True Then
    e.Sender.ToolTip = "如果不想登陆请点击此按钮。"
End If
\'----------------------------------------------------------------------------------------
If e.Form.Controls("Pass Word").Focused = True Then

   ***************

End If
\'----------------------------------------------------------------------------------------
If e.Form.Controls("Button1").Focused = True Then

   ***************

End If
\'----------------------------------------------------------------------------------------
If e.Form.Controls("Button2").Focused = True Then

   ***************
End If
\'----------------------------------------------------------------------------------------
--  作者：狐狸爸爸
--  发布时间：2011/12/9 23:23:00
--  

Form有个ActiveControl属性，返回活动控件：

 

http://www.foxtable.com/help/topics/1309.htm