messagebox的简单问题：怎么点击"确定"按钮才能执行指定的代码？

[modou]

怎么点击"确定"按钮才能执行指定的代码？
就是messagebox("你真的要退出吗？",1+48,"提示")

点击确定才执行release thisform

先谢过了！

[Louis819]

kk=messagebox(Str1,35,"提示")
do case
case kk=6
Case kk=2
return &&
endcase

thisform.release

[modou]

可以解释一下吗：

为什么点击取消不会退出呢？thisform.release没有用选择判断呀？

[linianfeng011]

讲得很好

[coolyylu]

把thisform.release放在do case语句中
kk=messagebox(Str1,4,"提示")
do case
case kk=6
thisform.release
Case kk=7
return &&
endcase

[boomit]

楼上的是用case分支语句进行判断的，和if一样的功能。。。看看下面的资料。
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 否

[coolyylu]

如果贴主的英文不是很好的话,请查看vfp3中文版的帮助.是全部中文的.对于大多数函数都有.

[yf402]

lcvalue=messagebox("你真的要退出吗?",1+48,"提示")
if lcvalue=1
thisform.release
dendif

[lnfxzcl]

if messagebox("你真的要退出吗?",1+48,"提示")=1
thisform.release
dendif

[modou]

谢了，结贴