VB教程第12章教案.pptVIP

  1. 1、本文档共16页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB教程第12章教案

第12章 对话框程序设计 12.1 概述(知识点) 对话框(DialogBox)是应用程序与用户进行交互的主要途径。 三种对话框: (1)预定义对话框 预定义对话框也称为预制对话框,是由系统提供的。Visual Basic提供了两种预定义对话框,即输入框和信息框(或消息框),分别由函数InputBox和MsgBox来实现。 (2)用户自定义对话框 自定义对话框也称为定制对话框,这种对话框由用户根据自己的需要进行定义。通过自定义对话框,用户可以实现改变对话框中命令按钮的说明文字,还可使对话框能够接收用户输入的任何信息,从而有效地补充了预定义 对话框在应用上的限制。 (3) 通用对话框 通用对话框是一种控件,用这种控件可以设计较为复杂的对话框。 12.1 概述 对话框的特点: (1) 对话框没有必要改变大小,边框是固定的。 (2) 单击框中的按钮,退出对话框。 (3) 对话框不能有最大化、最小化按钮。 (4) 对话框只能临时使用,用后关闭。 (5) 对话框中控件的属性可在设计阶段设置,在某些情况下,可在程序运行时设置。 12.1 对话框 通用对话框(知识点) 通用对话框是一种ActiveX控件,它的默认名称(Name属性)为CommonDialogX(X为1,2,3,…)。在使用之前,应选择“工程”菜单中的“部件”命令先将其添加到工具箱中 12.2 文件对话框(知识点) 文件对话框的结构 12.2 文件对话框 文件对话框分为两种,即打开(Open) 文件对话框和保存(Save As)文件对话框。 打开(Open) 和保存(Save As)文件对话框的共同属性如下: (1) DefaultEXT属性:对话框返回或设置默认的文件扩展名 (2) DialogTitle属性:返回或设置对话框标题栏所显示的字符串 (3) FileName属性:返回或设置所选文件的路径和文件名 (4) FileTitle属性:返回或设置所选文件的文件名,不含路径 (5) Filter属性:返回或设置在对话框的类型列表框中所显示的文件类型 12.2 文件对话框 (6) FilterIndex属性:返回或设置“打开”或“另存为”对话框中一个默认的文件类型 (7) Flags属性:为文件对话框设置选择开关,用来控制对话框的外观 (8)InitDir属性:用来指定对话框中显示的起始目录,如果没有设置InitDir,则显示当前目录 (9) HelpFile和HelpKey属性:分别用来指定Help应用程序的Help文件名和Help主题能够识别的名字 例12.1 编写程序— 建立“打开”和“保存”对话框 在窗体上画一个通用对话框控件,Name属性为CommonDialog1;再画两个命令按钮Command1和Command2;然后编写两个事件过程。 (1)“打开”对话框事件过程 Private Sub Command1_Click() CommonDialog1.FileName = CommonDialog1.Flags = vbOFNFileMustExist ‘只允许输入有效文件 CommonDialog1.Filter = All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT CommonDialog1.FilterIndex = 3 CommonDialog1.DialogTitle = Open File(*.EXE) CommonDialog1.Action = 1 If CommonDialog1.FileName = Then MsgBox No file selectd, 37, Checking Else 对所选择的文件进行处理 Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Input #1, a$ Print a$ Loop End If End Sub

文档评论(0)

xcs88858 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档