Office中国论坛/Access中国论坛

标题: 请高手写个模块，实现单击组合框自动下拉 [打印本页]

作者: 大懒猫68 时间: 2011-11-24 21:34
标题: 请高手写个模块，实现单击组合框自动下拉
本帖最后由大懒猫68 于 2011-11-24 21:37 编辑

高手能否写个模块，实现单击组合框自动下拉，假设组合框有很多个，我只会用下面的笨办法实现，但我想要用模块功能写出来，我思考了一段时间,这模块功能还不会实现，请高手指点帮忙

Private Sub 籍贯_GotFocus()
Me.籍贯.Dropdown
End Sub

Private Sub 性别_GotFocus()
Me.性别.Dropdown
End Sub

Private Sub 姓名_GotFocus()
Me.姓名.Dropdown
End Sub
[attach]47441[/attach]

作者: tmtony 时间: 2011-11-25 10:40
做个函数
里面写句代码
activecontrol.dropdown

然后将所有下拉框的gotfocus属性设置为这个函数

作者: yehf 时间: 2011-11-25 10:41
看附件

作者: 大懒猫68 时间: 2011-11-25 11:29
非常感谢,都是高手

作者: chuyuchun 时间: 2011-11-25 11:30
顶一哈

作者: tmtony 时间: 2011-11-25 11:39
也可用代码来批量设置GotFocus属性

作者: andymark 时间: 2011-11-25 22:54
用类实现的另一种方法：
http://www.office-cn.net/thread-107647-1-1.html

作者: 大懒猫68 时间: 2011-11-26 12:58
真是人才辈出啊

作者: 咱家是猫 时间: 2011-11-26 21:32
tz-chf 全无必要，写在属性里太隐蔽，以后改起来不方便。
_______________________________
你说的这个问题确实是很烦.但如果改为在窗体的打开事件上用代码给组合框统一挂事件.这就解决了你说的这个问题.

作者: changweiren 时间: 2011-11-28 23:31
既来之则顶之

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)