<<< 返回 access911.net 编程静态资料库索引页

如何为所有窗体的文本框定义多个公共事件?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2012-5-13  浏览人次:985


专题地址:http://access911.net/fixhtm/72FABF1E16DCEBF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


问题:

需要为所有的窗体的所有的文本框的获得焦点事件定义2个以上的公共方法,但是我不想一个一个去定义,该如何操作?有没有一次性就可以全部定义的方法?

 

回答:


方法有很多,最简单的就是直接用Controls循环得到窗体的所有控件并定义文本框的 OnGotFocus="过程名"。但是这样只能定义一个方法,而且传参比较麻烦,不能按地址传对象。

另一个方法就是用 WithEvents 来委托控件的事件,但是ACCESS的form和control比较特别,需要额外设定 On....="[Event Procedure]" 否则这个事件是不会被触发的。

Access2010 示例下载:
http://access911.net/down/eg/eg_withevents.rar
(37.7KB)


基本操作方法如下:

1、写一个公共的类模块,类模块公共部分 public withevents t as treeview
类里面写 on....方法

2、在需要调用这个类的窗体的公共部分 dim c(11) as new clsComm

3、在这个窗体的 form_load 用controls列举出需要委托事件的控件,放入这个类,也就是
dim i as long 
fo.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FABF1E16DCEBF3.htm

 


上一篇:如何用代码验证Excel2003公式的最大长度

下一篇:如何在EXCEL中截图,并将图片保存为GIF或者JPG格式

2017年2月22日生成静态资料