- 1、本文档共49页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第五章与用户对话s
第5章 与用户对话;5.1 输入对话框(1) ;5.1 输入对话框(2) ;5.1 输入对话框(3) ;Private Sub Command1_Click()
Dim a, b, t
Cls
a = Val(InputBox(请输入 a :, 输入数字))
b = Val(InputBox(请输入 b :, 输入数字))
Print 交换前: a =; a; , b =; b
t = a: a = b: b = t 交换
Print 交换后: a =; a; , b =; b
End Sub
运行结果如图5.1所示,左图为InputBox函数生成的对话框,右图为窗体显示结果。 ;5.2 消息对话框 ;5.2.1 MsgBox函数 ;表5.1 “按钮”参数的设置值及意义 ; “按钮”参数由上面四类数值相加组成,其组成原则是:从每一类中选择一个值,把这几个值加在一起就是该参数的值。若省略某类数值,则默认该类数值为0。不同的组合会得到不同的结果,如果省略“按钮”参数,则只显示【确定】按钮且无图标。例如,“按钮”参数被设为以下三种组合时,将显示图5.3所示的效果。 ; MsgBox函数可以通过返回值判断用户选择了哪一个按钮,对应情况如表5.2所示。该返回值用来作为程序继续执行的依据,通常用选择结构根据返回值决定后面的操作。 ; 【例5.2】用MsgBox函数建立如图5.4所示的“退出”对话框。
在例5.1的窗体中增加一个命令按钮,设Caption属性为“退出”。在该按钮的单击事件中用Unload语句卸载窗体:
Unload Me
为窗体的Unload事件编写如下代码:
Private Sub Form_Unload(Cancel As Integer)
Dim MyExit As Integer
MyExit = MsgBox(确实想退出吗?, _
vbYesNo + vbQuestion _
+ vbDefaultButton2, 退出) 默认按钮为【否】
If MyExit = vbNo Then
Cancel = 1 将Cancel参数设为非零值可取消卸载
End If
End Sub; 程序运行后单击【退出】按钮或窗体右上角的关闭按钮时,将会弹出图5.4所示的对话框,此时若单击【是】按钮则完成窗体卸载,单击【否】按钮则取消卸载,返回主窗体。 ;5.2.2 MsgBox 语句;5.3 通用对话框 ;5.3.1 通用对话框简介(1);5.3.1 通用对话框简介(2);5.3.1 通用对话框简介(3);5.3.2 文件对话框 (1);5.3.2 文件对话框 (2);5.3.2 文件对话框 (3);5.3.2 文件对话框 (4);图5.6 CommonDialog控件属性页 ; 【例5.3】用命令按钮的单击事???显示“打开”对话框,在对话框内只显示位图文件,初始目录为D:\My Pictures。当在对话框中选定一个位图文件后,单击【打开】按钮则在标签上显示所选的文件名,若单击【取消】按钮,则显示“取消操作”。代码如下:
Private Sub Commandl_Click()
On Error GoTo ErrCancel 设置出错处理语句
With CommonDialog1
.InitDir = D:\My Pictures 设置初始目录
过滤文件类型
.Filter = 位图文件(*.Bmp)|*.bmp
.CancelError = True 控制取消按钮
; .ShowOpen 显示【打开】对话框
显示选择的文件名
Label1.Caption = .FileName
End With
Exit Sub 正常退出本过程
ErrCancel: 以下为错误处理程序段
用户单击了【取消】按钮
If Err.Number = cdlCancel Then
Label1.Caption = 取消操作
End If
End Sub
如果将上述代码中的ShowOpen改为ShowSave即可显示【另存为】对话框。 ; 在例5.3的代码中,On Error语句是第一次使用,在此对它作简要说明。On Error语句有多种语法格式,这里使用的是其格式之一:
On Error GoTo 标号
该语句的作用是当程序发生错误时,跳转到“标号”处继续执行。在例5.3中,为了防止用户单击【取消】按钮时仍在标签上显
您可能关注的文档
- 第1单元知识汇总.ppt
- 第1次全国污染源普查工作办公室.ppt
- 人教版7年级语文上册13《纪念白求恩》教学课件(47张PPT).ppt
- 第1步骤与客户建立业务关系.ppt
- 第14讲excel数据库管理与数据分析.ppt
- 第15章30年代戏剧1.ppt
- 第1章UG三维造型.ppt
- 第1章国际收支练习题.ppt
- 第1章教育与社会发展.ppt
- 第1章 基础知识-.ppt
- 2021-2022学年湖南省常德市安乡县四年级上学期期中语文真题及答案.pdf
- 2023-2024学年河南省南阳市社旗县四年级上学期期中数学真题及答案.pdf
- 2022-2023学年云南省曲靖市四年级下学期期末数学真题及答案.pdf
- 2021-2022学年河南省周口市鹿邑县二年级下册月考语文真题及答案.pdf
- 2018年河南焦作解放区教师招聘考试真题及答案.pdf
- 2019年江西公务员行测考试真题及答案-乡镇.pdf
- 2019中国石油报社应届高校毕业生招聘试题及答案解析.pdf
- 光大银行招聘应届毕业生能力素质测试笔试真题及答案.pdf
- 2024年广西百色教师招聘考试模拟题及答案.pdf
- 2021-2022学年浙江绍兴诸暨市五年级上册语文期末试卷及答案.pdf
最近下载
- 益电通TD80变频器调试参数设置资料2.1.pdf
- 《孕产妇健康管理》课件.pptx VIP
- 金融科技创新的成功案例与市场反馈剖析实例分享与评估培训.pptx
- 古代文学参考答案完整版.pdf VIP
- 2022-2023学年广东省惠州市大亚湾区九年级(上)期末物理试卷(含解析).doc VIP
- 5.1+走近老师+课件-2024-2025学年统编版道德与法治七年级上册 (1).pptx VIP
- 粤沪版八年级物理上册:3.3“探究平面镜成像特点”过关检测练习题.docx VIP
- 安全教育认识投资理财诈骗.pptx
- 新课标人教版小学数学六年级下册全册教学反思推荐.doc
- 警惕虚假虚拟货币投资诈骗.pptx
文档评论(0)