[分享]打造特色Msgbox,按钮文字随意改,超酷.............

andymark · 发表于 2006-7-6 01:16:00

不要再怀疑啦，下载慢慢看吧

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

[此贴子已经被作者于2006-7-8 13:50:01编辑过]

fan0217 · 发表于 2006-7-6 01:31:00

andymark在搞什么东东

fan0217 · 发表于 2006-7-6 01:48:00

建议将 MessageBoxH函数的参数设置，做来跟Msgbox函数的设置查不多，这样更容易使用，函数前面的两个参数应该可以集成到函数中去，不用做出参数。

andymark · 发表于 2006-7-6 03:46:00

以下是引用fan0217在2006-7-5 17:48:00的发言：
建议将 MessageBoxH函数的参数设置，做来跟Msgbox函数的设置查不多，这样更容易使用，函数前面的两个参数应该可以集成到函数中去，不用做出参数。

谢谢提醒,已修改了前面的参数。在编写涵数时，已参考了Msgbox，用法大至跟系统的Msgbox 差不多，呵呵有兴趣的可以加以完善

一点通 · 发表于 2006-7-6 03:53:00

请列举与系统的msgbox有什么差别?好处在哪呢?因为系统的msgbox更易使用,不用自定义函数,代使用者谢谢你

andymark · 发表于 2006-7-6 04:18:00

　这个例子主要目的是更改Msgbox按钮上的文字

MsgBoxH("Test", "Msgbox Demo", vbYesNo, vbInformation)

相等于:

MsgBox("TEST ", vbYesNo + vbInformation, "Msgbox Demo")

改变Msgbox按钮的文字,请相应修改下面的代码

Const TxtOK = "我型我速"
Const TxtCancel = "舍不得你"
Const TxtAbort = "忽略"
Const TxtRetry = "再来一次"
Const TxtIgnore = "这次不算"
Const TxtYes = "Kiss me"
Const TxtNo = "GoodBye"

fan0217 · 发表于 2006-7-6 04:55:00

好处就是andymark可以用有 "Kiss me" Msgbox的对话框来哄MM，哈哈！开玩笑。

捉猫鼠 · 发表于 2006-7-6 05:18:00

KANKAN

wang1950317 · 发表于 2006-7-6 05:39:00

斑竹们感兴趣的东西一定是好东西。

sunwrsun · 发表于 2006-7-6 08:04:00

????

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

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

主题相关群

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

[宏/菜单/工具栏] [分享]打造特色Msgbox,按钮文字随意改,超酷.............

本帖子中包含更多资源

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