网站大量收购闲置独家精品文档,联系QQ:2885784924

第五章高级界面——通用对话框及文件控件概论.ppt

第五章高级界面——通用对话框及文件控件概论.ppt

  1. 1、本文档共11页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第五章 高级界面 ——通用对话框及文件控件 5.1 通用对话框(CommonDialog) 属性 Action:打开通用对话框。 DialogTiltle:对通用话框标题。 CancelError True:选择“取消”按钮,出现错误警告; Err.Number置为32755(cdCancel)。 False(缺省):选择“取消”按钮,没有错误警告。 1. “打开”文件对话框 属性 FileName:包含路径 FileTitle:不包含路径 Filter:例如, Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex:决定在文件类型列表框中显示第几组类型的文件。 InitDir:初始化路径 例5.1 简单的文本编辑程序,当按“打开”按钮,在“打开”对话框按“取消”按钮,显示有关信息。 2. “另存为”对话框 没有提供真正的存储文件操作,仍需要编程完成储存操作。 属性 DefaultExt:缺省扩展名 例8.1中“另存为...”按钮的事件过程 3. “颜色”对话框 属性 Color:返回或设置选定的颜色。 4. “字体”对话框 5. “打印”对话框 属性 FromPage:起始页号 ToPage:终止页号 Copies:打印份数 如果打印驱动程序不支持多份打印,该属性有可能始终返回 1。 6. “帮助”对话框 帮助文件需要用其它的工具制作,如Microsoft Windows Help Compiler。 属性 HelpCommand:在线Help帮助类型 HelpFile:Help文件的路径及其名称 HelpKey:在帮助窗口显示由该帮助关键字指定的帮助信息。 5.2 ?? 文件操作控件 驱动器、目录和文件列表框 1. 驱动器列表框 Drive属性: [对象.]Drive [= drive] Change事件: 重新设置Drive属性引发Change事件 2. 目录列表框 Path属性 : [对象.]Path [= pathname] Change事件: 重新设置Path 属性引发Change事件 3. 文件列表框 Path属性: 显示该路径下的文件。 重新设置Path属性引发PathChange事件。 Pattern属性: 显示的文件类型。 [对象.]Pattern [= value] 重新设置Pattern属性引发PatternChange事件。 例如:filFile.Pattern = “*.frm”,显示*.frm文件。 FileName属性: [对象.]FileName [= pathname] 引用时只返回文件名,相当于filFile.List(filFile .ListIndex),需用Path属性得到其路径;设置时可带路径。 Click、DblClick事件: 例如,单击输出文件名。 Sub filFile_Click( ) MsgBox filFile.FileName End Sub 例如,双击执行可执行程序 Sub filFile_DblClick( ) ChDir (dirDirectory.Path) ’ 改变当前目录 RetVal = Shell(filFile.FileName, 1) ’ 执行程序 End Sub * * 工程/部件 选定 部件标签 选定Microsoft CommDialog Control 6.0 通用对话框添加到工具箱 确定 打开通用对话框: DialogTiltle FileName InitDir Filter FilterIndex DefaultExt Open CommonDialog1.filename For Input As #1 Do While Not EOF(1) Line Input #1, inputdata txtNoteEdit.Text = txtNoteEdit.Text + inputdata + _ Chr(13) + Chr(10) Loop Close #1 Flags属性:指示所显示的字体类型,必须先设置。 cdlCFScreenFo

文档评论(0)

1112111 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档