如何在vf表单中添加messagebox

 我来答 举报
zdingyun
推荐于2018-04-15 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48182
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

在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
展开全部
以下是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,"请尊重他人的劳动!")
2 已赞过 已踩过<
你对这个回答的评价是?
评论(1) 举报 收起
匿名用户
2013-09-10
展开全部
用代码 比如你先添加一个按钮控件然后在按钮控件的click时间中写messagebox("你点击了一个按钮")运行表单,点击一下按钮试试,是不是出来了一个弹出框 ?
本回答被网友采纳
5 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式