:VFP的messagebox问题

以下是vfp6中的messagebox( ) 函数的完整用法，请参考：

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,"请尊重他人的劳动!")