推荐于2018-04-15 · 知道合伙人软件行家
在VF表单中添加messagebox,需要VF表单的任何对象事件中运用MESSAGEBOX( )函数。
MESSAGEBOX()函数,显示一个用户定义对话框。
句法:
MESSAGEBOX(cMessageText[,nDialogBoxType[,cTitleBarText]])
参数:
cMessageText,指定显示在对话框中的文本。使用在cMessageText回车(CHR(13))的消息的一部分在对话框中移动到下一行。对话框的高度和宽度增加为足以包含cMessageText。
nDialogBoxType,指定显示在该对话框中,显示该对话框时的默认按钮,并且该对话框的行为的按钮和图标。
下图中,对话框按钮值0-5指定显示在对话框中的按钮。图标值16,32,48,和64指定显示在对话框中的图标。默认值0,256,和512指定哪个按钮在对话框中是默认按钮。显示该对话框时,选择默认按钮。
nDialogBoxType可多达三个值的总和 - 从每个前述表中的一个值。例如,如果nDialogBoxType是290(2+ 32 +256),则指定的对话框具有以下特点:
*放弃,重试和忽略按钮。
*该消息框显示问号图标。
*第二个按钮,重试,是默认的。
实施实例代码:
1 2 3 4 5 6 7 8 9 10 11 12 13 | cMessageTitle = 'My Application' cMessageText = 'Record not found. Would you like to search again?' nDialogType = 4 + 32 + 256 * 4 = Yes and No buttons * 32 = Question mark icon * 256 = Second button is default nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle) DO CASE CASE nAnswer = 6 WAIT WINDOW 'You chose Yes' CASE nAnswer = 7 WAIT WINDOW 'You chose No' ENDCASE |
2013-09-10
messagebox( ) 函数
显示一个用户自定义对话框。
语法
MESSAGEBOX(cMessageText [, nDialogBoxType [, cTitleBarText]])
参数
cMessageText
指定在对话框中显示的文本。在 cMessageText 中包含回车符 (CHR(13)) 可以使信息移到下一行显示。对话框的高度和宽度根据 cMessageText 适当增大,以包含全部信息。
nDialogBoxType
指定对话框中的按钮和图标、显示对话框时的默认按钮以及对话框的行为。
在下面的表中,对话框按钮值从 0 到 5 指定了对话框中显示的按钮。图标值 16、32、64 指定了对话框中的图标。默认值 0、256、512 指定对话框中哪个按钮为默认按钮。当显示对话框时选中此默认按钮。
当省略 nDialagBoxType 时,等同于指定 nDialagBoxType 值为0。
数值 对话框按钮
0 仅有“确定”按钮
1 “确定”和“取消”按钮
2 “放弃”、“重试”和“忽略”按钮
3 “是”、“否”和“取消”按钮
4 “是”、“否”按钮
5 “重试”和“取消”按钮
数值 图标
16 “停止”图标
32 问号
48 惊叹号
64 信息 (i) 图标
数值 默认按钮
0 第一个按钮
256 第二个按钮
512 第三个按钮
nDialogBoxType 可以是三个值的和从上面每个表中选一个值。例如,若 nDialogBoxType 为 290(2+32+256),则指定的对话框含有如下特征:
“放弃”、“重试”或“忽略”按钮。
消息框显示问号图标。
第二个按钮,“重试”为默认按钮。
cTitleBarText
指定对话框标题栏中的文本。若省略 cTitleBarText,标题栏中将显示“Microsoft Visual FoxPro”
返回值类型
数值型
说明
MESSAGEBOX( ) 的返回值标明选取了对话框中的哪个按钮。在含有取消按钮的对话框中,如果按下 ESC 键退出对话框,则与选取“取消”按钮一样,返回值 (2)。
注意本函数的最短缩写为 MESSAGEB( )。
下表列出了 MESSAGEBOX( ) 对应每个按钮的返回值。
返回值 按钮
1 确定
2 取消
3 放弃
4 重试
5 忽略
6 是
7 否
下面的示例中显示了一个用户自定义对话框。标题“record not found.would you like to search again?”显示在用户自定义对话框中,标题栏中显示“my application”。用户自定义对话框含有“是”和“否”按钮以及问号图标。第二个按钮 (no) 为默认按钮。当选取一个按钮时,显示所选的内容。
cmessagetitle = 'my application'
cmessagetext = 'record not found. would you like to search again?'
ndialogtype = 4 + 32 + 256
* 4 = yes and no buttons
* 32 = question mark icon
* 256 = second button is default
nanswer = messagebox(cmessagetext, ndialogtype, cmessagetitle)
do case
case nanswer = 6
wait window 'you chose yes'
case nanswer = 7
wait window 'you chose no'
endcase
本人在《建筑租赁结算管理中的软件》注册中的声明中使用的messagebox()例子如下:
messagebox(" 根据《中华人民共和国著作法》及《中华人"+chr(13)+chr(13)+;
"民共和国计算机软件保护法》,本软件享有个人"+chr(13)+chr(13)+;
"知识产权。任何单位及个人未经本人书面授权销"+chr(13)+chr(13)+;
"售及非法解密复制销售,均为侵权行为。产权人"+chr(13)+chr(13)+;
"具有依法保护本软件产品的权力和义务。"+chr(13)+chr(13)+chr(13)+;
"如果想购买此产品,请与此产品的开发者联系。"+chr(13)+chr(13)+;
" 您的申请码为:"+str(xx)+chr(13)+chr(13)+;
" 我的办公电话: (0411)83636***"+chr(13)+chr(13)+;
" 我的移动电话: 13500737***"+chr(13)+chr(13)+;
" 联系人 : ******",64,"请尊重他人的劳动!")
2013-09-10