以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码编写问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5036)
--  作者：i52117
--  发布时间：2009/11/18 13:52:00
--  代码编写问题

在 Button4 的 MouseHover（鼠标停留在控件上的时候执行。）事件中有如下代码：


if e.Form.Controls("Button4").text = "" then                                          \' 如果没有标题
   e.Form.Controls("Button4").tooltip = "空"                                           \'控件提示 “空”
else
   e.Form.Controls("Button4").tooltip =e.Form.Controls("Button4").text   \'控件提示此标题
end if


有没有办法简化，在控件事件代码中提到控件本身时，不使用控件名，找一个替身，使得代码复制到任何控件的

MouseHover 事件下，不用替换控件名称就可以直接使用。不知表述是否清楚。

（帮助文件看得不够仔细，还是没有此功能）
--  作者：狐狸爸爸
--  发布时间：2009/11/18 15:05:00
--  
e.Sender.Tooltop = e.Sendr.Text
--  作者：i52117
--  发布时间：2009/11/18 15:11:00
--  
谢谢狐爸