一句代码调用模式窗体并返回值 3个示例

t小宝 · 发表于 2009-5-9 16:20:11

程序设计中有时需要调用模式窗体的值，比如自定义选择日期对话框，一般都要借助一个全局公共变量来传递值。

这里提供一种思路，只用一句代码实现打开模式窗体，并返回在模式窗体上选择的值，并关闭模式窗体，这个方法不需要全局变量和公共过程。
可以实现类似 Msgbox 和 InputBox 的效果，如：Me.Text0=InputBox()。

关键方法有两点：
1、在模式窗体创建一个Property Get 或Public Function 过程，此过程中建立循环过程，判断窗体上的某个值是否改变，符合条件即退出过程关闭窗体。
2、不使用OpenForm打开模式窗体，而直接调用模式窗体的上述过程，如：Me.Text0=Form_frmInputBox.Value。

附件中有3个示例，自定义Msgbox、自定义InputBox和日期选择对话框，和大家交流一下。

游客，如果您要查看本帖隐藏内容请回复

Henry D. Sy · 发表于 2009-5-9 18:04:25

谢谢分享！

5988143 · 发表于 2009-5-9 18:06:47

认真学习一下~

红尘如烟 · 发表于 2009-5-9 18:59:01

思路果然独特,学习了

红尘如烟 · 发表于 2009-5-9 19:01:43

晕,我还是第一次知道可以给别人评分,一直以来我都以为版主才有这个权限

82077802 · 发表于 2009-5-9 19:59:43

小宝=小雨?

mrl · 发表于 2009-5-10 21:12:43

学习一下

apsfxc1 · 发表于 2009-5-11 09:50:40

感谢分享

coolabc · 发表于 2009-5-11 09:57:26

学习！

jackysu78 · 发表于 2009-5-11 10:10:39

谢谢分享

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 一句代码调用模式窗体并返回值 3个示例

本帖子中包含更多资源

评分

群介绍
主题无相 (随机显示版	同地区群块其他地区)