窗体中各个控件的相同事件怎样简化

zhu320211　发表于：2012-07-14 11:28:29 　

复制

窗体中各个控件的相同事件能否简化，避免在每个控件中写相同代码，例如在窗体中的文本框控件获得焦点后都要求弹出消息显示控件名，如果在每个控件后写很麻烦，窗体中有没有事件可以简化，避免重复写代码

Top

在水一方发表于：2012-07-14 15:19:53

for....next语句

Top

zhu320211 发表于：2012-07-14 15:24:53

感谢在水一方，在哪个事件中调用？

Top

在水一方发表于：2012-07-14 16:26:38

更新后

Top

在水一方发表于：2012-07-14 16:27:21

获得焦点

Top

纵云梯发表于：2012-07-14 16:30:45

做个类模块！

点击下载此附件

在例子中点击每个窗体中的文本框，会得到你想要的效果。

Top

煮江品茶发表于：2012-07-14 19:32:26

1、写一自定义函数
function msg(ctrlname as string)
msgbox ctrlname
end function

2、在窗体加载事件中写：
dim ctrl as control
for each ctrl in me.controls
    if ctrl.controltype=acTextBox then
        ctrl.OnGotFocus="=msg(" & ctrl.name & ")"
    end if
next ctrl

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

窗体中各个控件的相同事件怎样简化