一句代码调用模式窗体并返回值 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和日期选择对话框，和大家交流一下。

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

CNHG · 发表于 2016-1-28 17:06:01

谢谢分享

AJKLS · 发表于 2015-11-15 20:55:45

学习

gaofei186 · 发表于 2015-9-14 10:55:28

看看一下

yanhantan · 发表于 2015-5-3 01:03:25

好东西啊

sunwrsun · 发表于 2014-10-29 22:56:13

谢谢分享

zpy2 · 发表于 2014-10-5 05:44:38

我大多保存全局变量的谢谢

13601812106_01 · 发表于 2014-10-4 10:37:24

周末得此好贴

chenyingfengsx · 发表于 2014-1-21 10:31:19

学习一下！

smilingkiss · 发表于 2013-12-13 13:05:44

正有学习之处

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

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

主题相关群

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

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

本帖子中包含更多资源

评分

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