- 1、本文档共29页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第8章 通用对话框、菜单、多文档界面 在VB应用程序中用户界面设计是必需的,界面设计一般包括通用对话框、菜单、多文档界面等。 本章主要内容 通用对话框:打开、另存、颜色、字体、打印和帮助 菜单设计:下拉式、弹出式和动态菜单 界面:单文档界面和多文档界面 8.1 通用对话框 通用对话框(Common Dialog)控件提供了一组基于Windows的标准对话框界面:打开、保存、颜色、字体、帮助和打印对话框。 这些对话框仅用于返回信息,不能真正实现相关的操作。 如要打开一个文件,打开文件对话框仅仅显示文件的选择功能,真正要实现打开文件的功能必须通过用户编程解决。 8.1.1 添加通用对话框(Common Dialog)控件工具箱 两种方法: 1、菜单:工程—部件,在对话框中选“Microsoft Common Dialog Control 6.0 ” 2、快捷:工具箱单击鼠标右键,在快捷菜单中选“部件”,在对话框中选“Microsoft Common Dialog Control 6.0 ” 8.1.2 通用对话框的使用 通用对话框控件没有事件,只有方法和属性。 通过方法或Action属性值显示标准对话框。 通用对话框控件中的每一个标准对话框都有自己的属性。 8.1.3 “打开文件”对话框 格式: 对话框对象名.ShowOpen 或 对话框对象名.Action=1 作用:选择要打开文件的驱动器、文件路径、文件名及文件扩展名。 8.1.3 “打开文件”对话框 Filter属性:用来返回或设置在对话框的类型列表框中所显示的文件类型。设置过滤器的语法格式: 对话框对象名.Filter=description1 |filter1 |description2 |filter2...] 如:文本文件(*.txt)|*.txt|位图文件(*.bmp)|*.bmp|图标文件(*.ico)|*.ico 8.1.4 “另存为”对话框 “另存为”对话框用于对正在操作的文件进行指定文件名保存。 属性同“打开文件”对话框。 格式为: 对话框对象名.ShowSave 或 对话框对象名.Action=2 作用:仅仅显示一个标准对话框,真正要另存文件还要通过编程实现。 例 8-1 编程显示“打开”和“另存”对话框,并显示所选文件及路径。 8.1.5 “颜色”对话框 颜色对话框通过showColor方法或Action设为3打开。 作用:供用户选择颜色,通过Color属性得到颜色值。 例8-2 在例题8-1的基础上,添加一个按钮,命名为Command4,用于选取颜色,并设置文本框的字体颜色。 设置字体颜色 Private Sub Command4_Click() Dlog.ShowColor Text1.ForeColor = Dlog.Color End Sub 8.1.6 “字体”对话框 字体对话框通过ShowFont方法或Action属性设为4打开。 主要属性:FontName属性、 FontSize属性、 FontBold属性、 FontItalic属性、 Color属性、Flags属性。 ★显示字体对话框之前,必须先设置对话框控件的 Flags 属性为下列三个常数或值中的一个: cdlCFBoth 或 H3, cdlCFPrinterFonts 或 H2, 以及 cdlCFScreenFonts 或 H1。 例8-3 在例题8-2的基础上,让用户设置文本框中字体。 Private Sub Command5_Click() 设置字体 用flags属性来设置是屏幕字体还是打印机字体效果 Dlog.Flags = cdlCFScreenFonts Or cdlCFPrinterFonts Dlog.ShowFont With Text1 .FontName = Dlog.FontName .FontSize = Dlog.FontSize .FontBold = Dlog.FontBold .ForeColor = Dlog.Color End With End Sub 8.1.7 “打印”对话框 打印对话框通过ShowPr
您可能关注的文档
- 全面的业务连续性.ppt
- 第3课从汉至元政治制度的演变2015.ppt
- 全面质量管理体系.ppt
- TV宝贝班级艺术纪录片方案(幼儿园篇).ppt
- 第3课甲午中日战争课件.ppt
- 八上第1、2课鸦片战争.ppt
- UR2013年度媒体策划.ppt
- 第4章函数与编译预处理.ppt
- 八下物理力复习课第一课时.ppt
- 八上第四单元总教学建议小石潭2014.ppt
- 分析let s单元56ago2卷纸zheng unit56.pdf
- 塑胶材料其它分类原料pa9t 12.pdf
- md16x16数字媒体切换器设备.pdf
- 者参考项目发起人学科类型单位序列承包商修订页代码顺序典型.pdf
- 届世界天然气大会阿姆斯特丹2006add10288.pdf
- 期测试记录表每周weekly g1g6 journeys tests level 6 lesson26.pdf
- modernize-whitepaper现代化您应用程序白皮书.pdf
- anybackup产品典型案例分析.pdf
- 约克金融工程课程tfeslide32.pdf
- 广州市妇女儿童医疗中心历份教学药历01tjy.pdf
文档评论(0)