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

XWQ2000

dqwd

ayst

喜欢自定义，喜欢有自己的风格。

王维a780

0000

winner

以下是引用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

这和系统的MSGBOX一样的,选择vbOKCancel就是确定取消按扭,现在更新了msgbox等号后面显示的代码,你重新下载

用法:

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

yj11252551

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

tonny20060812

ok我想要

死去活来

look

zxzx2733

??????????

??????????

??????????

好学

andymark我支持您!!!!!!!!!!!!!!