首页 考试吧论坛 Exam8视线 考试商城 网络课程 模拟考试 考友录 实用文档 求职招聘 论文下载 | ||
2011中考 | 2011高考 | 2012考研 | 考研培训 | 在职研 | 自学考试 | 成人高考 | 法律硕士 | MBA考试 MPA考试 | 中科院 |
||
四六级 | 职称英语 | 商务英语 | 公共英语 | 托福 | 雅思 | 专四专八 | 口译笔译 | 博思 | GRE GMAT 新概念英语 | 成人英语三级 | 申硕英语 | 攻硕英语 | 职称日语 | 日语学习 | 法语 | 德语 | 韩语 |
||
计算机等级考试 | 软件水平考试 | 职称计算机 | 微软认证 | 思科认证 | Oracle认证 | Linux认证 华为认证 | Java认证 |
||
公务员 | 报关员 | 银行从业资格 | 证券从业资格 | 期货从业资格 | 司法考试 | 法律顾问 | 导游资格 报检员 | 教师资格 | 社会工作者 | 外销员 | 国际商务师 | 跟单员 | 单证员 | 物流师 | 价格鉴证师 人力资源 | 管理咨询师考试 | 秘书资格 | 心理咨询师考试 | 出版专业资格 | 广告师职业水平 驾驶员 | 网络编辑 |
||
卫生资格 | 执业医师 | 执业药师 | 执业护士 | ||
会计从业资格考试(会计证) | 经济师 | 会计职称 | 注册会计师 | 审计师 | 注册税务师 注册资产评估师 | 高级会计师 | ACCA | 统计师 | 精算师 | 理财规划师 | 国际内审师 |
||
一级建造师 | 二级建造师 | 造价工程师 | 造价员 | 咨询工程师 | 监理工程师 | 安全工程师 质量工程师 | 物业管理师 | 招标师 | 结构工程师 | 建筑师 | 房地产估价师 | 土地估价师 | 岩土师 设备监理师 | 房地产经纪人 | 投资项目管理师 | 土地登记代理人 | 环境影响评价师 | 环保工程师 城市规划师 | 公路监理师 | 公路造价师 | 安全评价师 | 电气工程师 | 注册测绘师 | 注册计量师 |
||
缤纷校园 | 实用文档 | 英语学习 | 作文大全 | 求职招聘 | 论文下载 | 访谈 | 游戏 |
6.1.2 消息框
MsgBox函数用来产生一个消息框。消息框用来显示简短的消息,并要求用户作出一定的响应。例如,报告操作错误或向用户提示信息。看完这些消息以后,可选取一个按钮来关闭该对话框。
创建该消息框的代码如下:
Msg=MsgBox(您没有在文本框中输入任何内容“48”提示)。
这里我们通过编写一个程序,来讲解如何在程序中使用MsgBox函数创建消息框。
实例6.2使用消息框
这个程序包含一个文本框和一个按钮,在文本框中输入内容后单击按钮,则所输入的内容就显示在窗体中;如果在文本框中没有输入任何内容,则单击按钮后会弹出一个提示框,告诉用户没有在文本框中输入任何内容,如图6.4所示。下面是编制这个小程序的具体过程。
首先,在窗体中放置一个文本框控件,设置它的Text属性的值为空,再放置一个按钮控件,设置它的Caption属性的值为“确定”.文本框与按钮的名称均使用系统默认的名称。双击按钮控件,打开代码窗口,为按钮的Click事件编写如下代码:
Private Sub Commandl_Click()
If Text1.Text=“Then
Msg = MsgBox(“您没有在文本框中输入任何内容”,48,“提示”)
Else
Print Textl.Text
End If
End Sub
在上面的程序段中,使用了一个分支结构来判断文本框中是否输入了内容。运行该程序,直接单击【确定】按钮,则弹出如图5.4所示的消息枢。再次运行程序,在文本框中输入内容后,单击【确定】按钮,则不会出现消息框,且在窗体中显示用户输入的内容。
相关推荐:北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |