说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

很容易的问题,送分了模态对话框问题

编辑:说三道四文库 发布时间:2017-12-14 02:46
HTML文档下载 WORD文档下载 PDF文档下载
MsgBox()是对话框,但是我要求用户只有响应我的对话框以后才能做别的事情,请问VB中怎么使用模态对话框
正常用就是模态的啊!!
正常调用,如果用户不响应的话就不能做别的事。
MsgBox "是否要保存您的修改?", vbYesNo Or vbSystemModal, "保存提醒"

MsgBox 函数
      

在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。

语法

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

MsgBox 函数的语法具有以下几个命名参数:

部分 描述 
Prompt 必需的。字符串表达式,作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符,由所用字符的宽度决定。如果 prompt 的内容超过一行,则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) & Chr(10)) 将各行分隔开来。 
Buttons 可选的。数值表达式是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。如果省略,则 buttons 的缺省值为 0。 
Title 可选的。在对话框标题栏中显示的字符串表达式。如果省略 title,则将应用程序名放在标题栏中。 
Helpfile 可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile,则也必须提供 context。 
Context 可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context,则也必须提供 helpfile。 


设置值

buttons 参数有下列设置值:

常数 值 描述 
vbOKOnly 0 只显示 OK 按钮。 
VbOKCancel 1 显示 OK 及 Cancel 按钮。 
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。 
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。 
VbYesNo 4 显示 Yes 及 No 按钮。 
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。 
VbCritical 16 显示 Critical Message 图标。 
VbQuestion 32 显示 Warning Query 图标。 
VbExclamation 48 显示 Warning Message 图标。 
VbInformation 64 显示 Information Message 图标。 
vbDefaultButton1 0 第一个按钮是缺省值。 
vbDefaultButton2 256 第二个按钮是缺省值。 
vbDefaultButton3 512 第三个按钮是缺省值。 
vbDefaultButton4 768 第四个按钮是缺省值。 

vbApplicationModal 0 应用程序强制返回;应用程序一直被挂起,直到用户对消息框作出响应才继续工作。 
vbSystemModal 4096 系统强制返回;全部应用程序都被挂起,直到用户对消息框作出响应才继续工作。 
vbMsgBoxHelpButton 16384 将Help按钮添加到消息框 
VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口 
vbMsgBoxRight 524288 文本为右对齐 
vbMsgBoxRtlReading 1048576 指定文本应为在希伯来和阿拉伯语系统中的从右到左显示 


第一组值 (0–5) 描述了对话框中显示的按钮的类型与数目;第二组值 (16, 32, 48, 64) 描述了图标的样式;第三组值 (0, 256, 512) 说明哪一个按钮是缺省值;而第四组值 (0, 4096) 则决定消息框的强制返回性。将这些数字相加以生成 buttons 参数值的时候,只能由每组值取用一个数字。

注意 这些常数都是 Visual Basic for Applications (VBA) 指定的。结果,可以在程序代码中到处使用这些常数名称,而不必使用实际数值。

返回值

常数 值 描述 
vbOK 1 OK 
vbCancel 2 Cancel 
vbAbort 3 Abort 
vbRetry 4 Retry 
vbIgnore 5 Ignore 
vbYes 6 Yes 
vbNo 7 No 


说明

在提供了 helpfile 与 context 的时候,用户可以按 F1 来查看与 context 相应的帮助主题。像 Microsoft Excel 这样一些主机应用程序也会在对话框中自动添加一个 Help 按钮。

如果对话框显示 Cancel 按钮,则按下 ESC 键与单击 Cancel 按钮的效果相同。如果对话框中有 Help 按钮,则对话框中提供有上下文相关的帮助。但是,直到其它按钮中有一个被单击之前,都不会返回任何值。

注意 如果还要指定第一个命名参数以外的参数,则必须在表达式中使用 MsgBox。为了省略某些位置参数,必须加入相应的逗号分界符。
msg=MsgBox ("是否要保存您的修改?", vbYesNo Or vbSystemModal, "保存提醒")
if msg=vbNo then
 ......
else
  ......
end if
谢谢各位
无线盛宴尽在阿里百川开放大会 医学界的Instagram:加拿大重症监护医生开发照片分享应用 2014中国移动开发者大调查第二批获奖名单揭晓 基于OpenStack的私有云开发部署实践 亚马逊云平台的迁移过程 【干货】微信企业号开发资源集锦 CSS生日快乐:CSS之父H&#229;kon Wium Lie访谈录 好友近2000万,绑定银行卡过千万,日会话近百万,招商服务号成功之道 一名程序员十年技术之路的思考与感悟 聚焦企业号、服务号典型案例 微信开发者大会深圳站正式开启 Objective-C之父Brad Cox访谈:我的编程之路 【先锋】完成B轮融资的TalkingData新商业模式:平台理念+跨界分析+技术开源 1/10计算资源,1/3耗时,Spark颠覆MapReduce保持的排序记录 Cookie已死,看Facebook、Google、Apple如何追踪用户 Clay.io基于AWS、Docker、HAProxy等的10X架构打造 经典服务/企业号案例来袭!2014微信开发者大会(深圳)亮点抢先看 移动应用云APICloud宣布完成A轮500万美金融资 从Apache Storm学到的经验教训 【CTO俱乐部走进天津】探讨如何成为技术团队管理者 不容错过!参加MDCC 2014移动开发者大会八个理由 你的钱被洗劫了么!APP安全问题来袭 10大最常见的数据库安全问题 南航微信服务号是如何炼成的? 超40项功能改进,虚幻引擎4.5正式发布! 【工具推荐】ER:可轻松构建一站式AJAX Web应用的开发框架 GraphLab:将大数据分析从理念运用到生产 支持Android 5.0:完全用Ruby的Ruboto框架迎1.2.0更新! 万物互联第一步:采用AllJoyn技术的智能硬件 【专访】敏捷专家何勉:让测试成为拉动组织敏捷实施的力量 Docker与微软合作 支持Windows Server 企业号热问热答——来深圳微信开发者大会聆听一线讲师的实战分享 现在分好多,居然还有626分,五个三角星,是该散分的时候了。 各位帮忙,那里有这样的控件啊? 如何取消当前style中的下划线效果? 哪儿有BCB6 开发数据库的书和例子啊? %%%%%%%%%%%%%%%%%%求一段简单得SQL语句%%%%%%%%%%%%%%%%%% 如何把2000/XP下自帶的游戲完全刪除.. 求e书下载 谁写过ORACLE的OLE对象的分页程序??给点代码参考一下。 精彩不容错过 求助!!!忘各位大侠指点,小弟先谢了! 要想拖动层,该如何实现,急急!! 可以在服务器上创建一个以上的WEB站点吗? 菜鳥求助﹐在線等待﹗請進﹗ 愛因斯坦與牛頓的貓貓游戲 关于Tmessage的一个问题,有兴趣的请…… 传递指针的问题 float到底能保留几位小数? 关于前途的杂谈---选择C程序员还是JAVA程序员? 2003打开2002的报表,显示时特别慢 Dialog中的wm_char 怎样重新组合字符串 第二次提问 着急呀 如何读取空字段不出错 愚蠢的问题——请各位大哥指导 数据库版本冲突问题,各位不防进来看看啊! 查找一个区间的记录 有没有在vc6.0下用vc.net控件的方法呀? 怎么做细线呀? 请问各位高手,怎么叛断面面关闭!!! 很多的程序员平朋友们对档案和户口问题都不是很清楚吗,我就我所知的来说说,希望对大家有用 【delphi三(两)层结构如何调用oracle中的存储过程(参数含游标)】 有DX能翻译下面的代码吗? access中sql语句 insert into table1(id) values(1);insert into table1(id) values(1);通不过?? 文件拷贝 请问华康字体库,哪儿有下载? 关于sametime无法登录的问题! 精彩不容错过 怎么样上传文件 请问,如果利用pc机,实现和璇铃声于彩色图片的下载,应该怎么做? **sql语句的问题** 求救!!!!!熟悉数据库加密的高手请进!!! DELPHI为什么会自动退出? 帮帮忙,新手求问 用java怎样判断一个Email地址是真实存在的?(救命呀!~~~>_<~~~) C++BUILDER调用VC++DLL内函数问题? dephi+oracle 从TMemo存读varchar2类型数据(一篇文章) 数据超过256个字节 其中有换行符 在solaris中如何用命令行改变IP地址,并且永久生效。 mysql中的备注字段应该是什么英文,我英文不好。我只知道int, char. 怎么样知道在另外一台机器上运行的程序是否死掉了,另外一台机器是否死机? 请问怎样修改、删除、追加XML中子项的值? showdialog 打开的 form 怎么返回值? 张成泽为何被捕 金正恩为什么抓张成泽 8月8号晚动感英语的最后一首歌叫什么一个男歌手唱的.7点左右播出的.主持是一个女的.最后一首歌.一个男的唱的.不是动感英语的话,.我就不知道是什么了.最后我看到.经典对白这几个字. 香烟上说的一氧化碳含量11mg是什么意思 遥知不是雪 为有暗香来的“为”字的读音快 “千金散尽还复来”中“还”的读音 医学史上的罕见的奇迹指的是 医学史意义医学史的意义 张成泽为何被 张成泽为什么被抓 精原细胞增值周期包括间期、减数第一次分裂、减数第二次分裂为什么是错的 辽宁舰低调出海 或赴西太平洋参加军演杭州绕城高速施工多 过往车辆尽量绕行百度“百发”引发关注 互联网金融呼吁记协就陈永洲被捕事件联系公安部:确保大鲨鱼穿行沪宁杭 我国最新型高速动车上海海事大学\"海事一号\"ARV新民进党“独派”大佬欲选台北市长 靠组二战著名“野马”战斗机美国得州坠毁 上海车牌价再破8万 下月起继续实施有2013韩国小姐素颜照曝光 网友高呼温州:民资发起设立民营银行试点方案已“保修”不等同“包修” 长虹中央空调猪肉鸡蛋降价了林书豪扭伤左脚踝 华人球迷关切盼尽早港珠澳大桥建设已过半 有信心2016兵团召开党的群众路线教育实践活动总结老人游欧洲旅途中病亡 家属起诉旅行社合肥一准妈妈33楼坠亡 腹中双胞胎不工科男“书”写唐朝女诗人 解析鱼玄机“打鸟男”被群众举报 穿防弹衣持手枪9月份中国好人榜名单发布 南阳“板车河南省试点公务员绩效考核两年初见成效尘劫谱网游之传奇一世列国纪事花都超级教练异世修人火涅卡诺病毒妖主传奇战神标榜鬼声鬼语忠魂依旧守辽东典当业展示馆旅游岘港旅游泰山摩崖石刻旅游望人松旅游五松亭旅游斗母宫旅游开元溶洞旅游周村大染坊旅游周村古镇旅游圆方商场旅游九莲山旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘