Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码编写问题


  共有12801人关注过本帖树形打印复制链接

主题：代码编写问题
帅哥哟，离线，有人找我吗？
i52117
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3147 威望：0 精华：0 注册：2009/2/3 9:55:00 		代码编写问题  发帖心情 Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47477 积分：251256 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/11/18 15:05:00 [只看该作者]

e.Sender.Tooltop = e.Sendr.Text

 回到顶部
帅哥哟，离线，有人找我吗？
i52117
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3147 威望：0 精华：0 注册：2009/2/3 9:55:00 		  发帖心情 Post By：2009/11/18 15:11:00 [只看该作者]

谢谢狐爸

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询