Office中国论坛/Access中国论坛

标题: [分享]打造特色Msgbox,按钮文字随意改,超酷............. [打印本页]

作者: andymark 时间: 2006-7-6 01:16
标题: [分享]打造特色Msgbox,按钮文字随意改,超酷.............

[attach]18882[/attach]

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

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

作者: fan0217 时间: 2006-7-6 01:31
andymark在搞什么东东

作者: fan0217 时间: 2006-7-6 01:48
建议将 MessageBoxH函数的参数设置，做来跟Msgbox函数的设置查不多，这样更容易使用，函数前面的两个参数应该可以集成到函数中去，不用做出参数。

作者: andymark 时间: 2006-7-6 03:46

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

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

作者: 一点通 时间: 2006-7-6 03:53
请列举与系统的msgbox有什么差别?好处在哪呢?因为系统的msgbox更易使用,不用自定义函数,代使用者谢谢你

作者: andymark 时间: 2006-7-6 04:18
　这个例子主要目的是更改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
好处就是andymark可以用有 "Kiss me" Msgbox的对话框来哄MM，哈哈！开玩笑。

作者: 捉猫鼠 时间: 2006-7-6 05:18
KANKAN

作者: wang1950317 时间: 2006-7-6 05:39
斑竹们感兴趣的东西一定是好东西。

作者: sunwrsun 时间: 2006-7-6 08:04
????

作者: WDLRCZT 时间: 2006-7-6 16:49
看看？

作者: 小小鸟 时间: 2006-7-6 16:51
look

作者: kevindeng 时间: 2006-7-7 00:07
[em01][em02][em03][em04][em05][em06][em07][em08][em10][em13][em14][em15][em16][em17][em18][em19][em20][em23][em24][em25][em26]

作者: suve 时间: 2006-7-7 00:44
标题: 是我一直想要的啊
谢谢斑竹,简直就是为我做的啊!

作者: 轻风 时间: 2006-7-7 00:49
学习一下

作者: fannky 时间: 2006-7-7 01:17
seesee

作者: laiguiyou 时间: 2006-7-7 02:57
see

作者: LIXIANACCP 时间: 2006-7-7 06:20
[em01]

作者: 叶伟健 时间: 2006-7-7 07:10
andymark在搞什么东东

作者: tonywong 时间: 2006-7-7 18:00
看一看!

作者: konggs 时间: 2006-7-7 18:07
什么好东东，看一下

作者: yangxiang 时间: 2006-7-7 21:12
okokokokokok!!!

作者: winner 时间: 2006-7-8 00:56
看看

作者: winner 时间: 2006-7-8 01:06
还是看不明白啊,我只看见"Kiss me"和 "GoodBye","我型我速" "舍不得你""忽略""再来一次""这次不算"在哪里出现啊,没看见
[em06]

作者: leoblue 时间: 2006-7-8 01:20
学习一下

作者: wuyu1623 时间: 2006-7-8 01:25
顶一下

作者: andymark 时间: 2006-7-8 04:22

以下是引用winner在2006-7-7 17:06:00的发言：

还是看不明白啊,我只看见"Kiss me"和 "GoodBye","我型我速" "舍不得你""忽略""再来一次""这次不算"在哪里出现啊,没看见
[em06]

   在模块里定义 , 改变下面的内容文字，亦即相应改变msgbox按钮的文字

   '定义msgbox按钮的文字

Const TxtOK = "我型我速"                         '定义msgbox  确定  按钮显示的文字
Const TxtCancel = "舍不得你"                   '定义msgbox  取消  按钮显示的文字
Const TxtAbort = "忽略"                            '定义msgbox  终止  按钮显示的文字
Const TxtRetry = "再来一次"                      '定义msgbox  重试  按钮显示的文字
Const TxtIgnore = "这次不算"                   '定义msgbox  忽略  按钮显示的文字
Const TxtYes = "Kiss me"                         '定义msgbox  是    按钮显示的文字
Const TxtNo = "GoodBye"                         '定义msgbox  否    按钮显示的文字

作者: xlonger 时间: 2006-7-8 05:19
可能性厅要不得在

作者: xlonger 时间: 2006-7-8 05:27
高，高，高

作者: duanpeng@ 时间: 2006-7-8 05:41
看看

作者: XWQ2000 时间: 2006-7-8 06:40
dqwd

作者: ayst 时间: 2006-7-8 18:00
喜欢自定义，喜欢有自己的风格。

作者: 王维a780 时间: 2006-7-8 18:56
0000

作者: winner 时间: 2006-7-8 20:27

以下是引用andymark在2006-7-7 20:22:00的发言：

   在模块里定义 , 改变下面的内容文字，亦即相应改变msgbox按钮的文字

   '定义msgbox按钮的文字

Const TxtOK = "我型我速"                         '定义msgbox  确定  按钮显示的文字
Const TxtCancel = "舍不得你"                   '定义msgbox  取消  按钮显示的文字
Const TxtAbort = "忽略"                            '定义msgbox  终止  按钮显示的文字
Const TxtRetry = "再来一次"                      '定义msgbox  重试  按钮显示的文字
Const TxtIgnore = "这次不算"                   '定义msgbox  忽略  按钮显示的文字
Const TxtYes = "Kiss me"                         '定义msgbox  是    按钮显示的文字
Const TxtNo = "GoodBye"                         '定义msgbox  否    按钮显示的文字

问题1：这个定义我明白，但是为什么只有2个按钮？其他（例如确定，取消）的按钮不见的？而代码里又有写，请问是什么原因呢？

问题2：不明白为什么按了 "Kiss me" 和"GoodBye" 键会弹出一个空白窗体，而不是直接关闭？我一直以为这个例子是象msgbox那种作用，用来再次确认“是否真的要保存？”之类的（又加多了可以修改按钮文字的功能），但现在看来似乎还有别的用途，能否讲解一下？

作者: andymark 时间: 2006-7-8 21:55
这和系统的MSGBOX一样的,选择vbOKCancel就是确定取消按扭,现在更新了msgbox等号后面显示的代码,你重新下载

用法:

If MsgBoxH("你真的要离开吗", "舍不得你", vbOKCancel, vbQuestion) = VBOK Then
DoCmd.Close
End If
End Sub

作者: yj11252551 时间: 2006-7-10 21:36

以下是引用leoblue在2006-7-7 17:20:00的发言：
学习一下

作者: tonny20060812 时间: 2006-7-10 22:38
ok我想要

作者: 死去活来 时间: 2006-7-12 03:03
look

作者: zxzx2733 时间: 2006-7-12 03:28

??????????

??????????

??????????

作者: 好学 时间: 2006-7-12 06:13
andymark我支持您!!!!!!!!!!!!!!

作者: aone 时间: 2006-7-12 08:08
下来慢慢看。

作者: jicheng 时间: 2006-7-15 06:24
大厦大厦大厦

作者: 一杯绿茶 时间: 2006-7-15 20:34
[em05]

作者: 阿智 时间: 2006-7-17 04:26
T

作者: jinpy 时间: 2006-7-21 01:08
好好！

作者: jlk88 时间: 2006-7-21 02:09
我还是老老实实学会MSGBOX再学这个

作者: heqing3000 时间: 2006-7-21 03:53
看看

作者: cdwlove 时间: 2006-7-21 19:35
看看!

作者: 烧酒豆豆 时间: 2006-7-21 22:03
收到，Try。。。。。

作者: dayudayu 时间: 2006-8-1 03:33
KK

作者: lupo 时间: 2006-8-1 05:29
andymark是个高手，我相信他搞的东西一定不错。

作者: goodorbad 时间: 2006-8-1 18:56
see see

作者: pyzou 时间: 2006-8-1 20:25
[em01]

作者: zyz218 时间: 2006-8-1 21:05
good

作者: otly 时间: 2006-8-3 00:55
提示: 作者被禁止或删除内容自动屏蔽

作者: aa9841 时间: 2006-8-3 07:31
ok thank you

作者: shenen 时间: 2006-8-14 23:31
回复一下[em01]

作者: msf 时间: 2006-8-14 23:47
顶

作者: xiaoxu83 时间: 2006-8-15 19:28
好象很难做哦

作者: eman33 时间: 2006-8-15 20:03
看看，谢谢楼主

作者: yedaoan 时间: 2006-8-19 17:51
回复

作者: goto2008 时间: 2006-8-21 04:26
？

作者: lirong 时间: 2006-8-21 05:33
这个东东，我很早以前就写了一个的

作者: 古老的龙 时间: 2006-8-21 19:26
不定不幸

作者: 盗到稻 时间: 2006-8-21 19:31
看看

作者: laomao 时间: 2006-8-23 19:11
看看

作者: 地球指针 时间: 2006-8-23 20:53
有这么好的东东当然不能错过

作者: virster 时间: 2006-8-23 21:42
不错啊，好东西，谢谢

作者: qianyl0391 时间: 2006-8-30 10:55
[em07]

作者: zhangting524 时间: 2006-8-31 00:56
噢噢

作者: 2609526 时间: 2006-8-31 06:00
试一下,真的可以吗?

作者: erhong 时间: 2006-8-31 22:43
sdfasdfasfasdfas

作者: wzh 时间: 2006-9-7 21:18
学习

作者: fyq 时间: 2006-9-7 21:54
一定看一下，好哄MM们

作者: 石橡 时间: 2006-9-8 01:43
好

作者: kinron000 时间: 2006-9-10 02:54
[em08]

作者: 104281 时间: 2006-10-1 18:18
看看

回覆一下

作者: 蓝天8390 时间: 2006-10-3 00:38
有兴趣看看

作者: 菩明本何 时间: 2006-10-3 07:24
DD

作者: weiwen_gz 时间: 2006-10-3 07:43
good

作者: wuheng 时间: 2006-10-15 00:56
学习~~~

作者: jqm288 时间: 2006-10-17 04:44
好

作者: 真主 时间: 2006-10-17 04:46
谢谢我看看学学

作者: flowerfinder 时间: 2006-10-17 08:50
很有趣看看先

作者: zj_94yy 时间: 2006-10-18 05:47
谢谢

作者: plzsx 时间: 2006-10-18 08:24
wo kan

作者: van_zeng 时间: 2006-11-9 22:27
恢复

作者: yangtx 时间: 2006-11-9 23:11
[em06]看看啊

作者: 5988143 时间: 2006-11-9 23:35
經典!

謝謝分享!

作者: avlding 时间: 2006-11-10 00:36
see see

作者: cjls2000 时间: 2006-11-10 15:57
[em02]好东西我也看看

作者: shdatou 时间: 2006-11-22 22:01
kanka

作者: 乌の甲乌 时间: 2006-11-23 06:12
斑竹们感兴趣的东西一定是好东西。

作者: 陈大林 时间: 2006-11-23 08:42
di

作者: mqmelon 时间: 2006-11-24 02:10
好东西.看看先.

作者: secondonsite 时间: 2006-11-30 06:29
look

作者: jennydai1984 时间: 2006-12-3 00:12
[em02]

作者: 小何 时间: 2006-12-3 00:41
好啊

作者: weikitwong 时间: 2006-12-7 08:13
感谢分享

作者: gaoqiwen 时间: 2006-12-7 21:00
从不怀疑啦!

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