标题：代码编写问题

1楼

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 事件下，不用替换控件名称就可以直接使用。不知表述是否清楚。

（帮助文件看得不够仔细，还是没有此功能）

2楼

狐狸爸爸 发表于：2009/11/18 15:05:00

e.Sender.Tooltop = e.Sendr.Text

3楼

i52117 发表于：2009/11/18 15:11:00

谢谢狐爸

共3 条记录, 每页显示 10 条, 页签: [1]