- 1、本文档共17页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
一、对话框的分类与特点 如大小不可改变,是模式对话框等。 二、通用对话框控件 为了操作界面一致起见,如果设计如:打开文件、保存文件、颜色、字体、打印、帮助等六种形式的对话框时,可以直接借用Windows原有的对话框,使得设计出来的应用程序与Windows原有的此类对话框相同,既保持了界面的一致性,也省去了诸多设计过程。 1、向工程工具箱中添加通用对话框控件 不是标准控件,是Action控件。 ①、选择“工程”——“部件”。 ②、选择“控件”标签,再选“Microsoft Common Dialog Control 6.0”,最后单击确定。 2、产生通用对话框 在窗体上用对话框控件())制造一个通用对话框控件 通过右击选“属性”,可对其做一些基本的设置;然后再调用通用对话框控件的相应方法来产生具体需要的通用对话框; 如: CommonDialog1.Filter = Html文件(*.htm)|*.htm|Exe文件(*.exe)|*.exe 设置打开时的文件类型,类似于文件列表框的Pattern匹配属性,双引号内为: “描述|类型名|描述|类型名|描述|类型名”,显示成下拉列表形式。 调用方法:通用对话框名.方法名 或者为其Action属性赋值:通用对话框名.ACTION=值 方法名 功能 Action ShowOpen 打开文件的通用对话框 1 ShowSave 保存文件的通用对话框 2 ShowPrinter 打印文件的通用对话框 3 ShowColor 设置颜色的通用对话框 4 ShowFont 设置字体的通用对话框 5 ShowHelp 显示帮助的通用对话框 6 如:产生一个打开文件的对话框:CommonDialog1.ShowOpen 3、通用对话框中操作结果的返回 当用户在通用对话框中完成选择以后,用户的选择会在通用对话框相应的属性中反映出来。 下一步的工作根据用户的选择让程序进行相应的反应。如打开文件对话框中用户选择完成后,选择的文件在通用对话框的FILENAME属性中,如是可执行文件,可用下面的方法执行: Shell(CommonDialog1.Filename) 又如:Form1.Backcolor=CommonDialog1.color FNM=CommonDialog1.Filename 又如:CommonDialog1.Flags = cdlCFBoth CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontUnderline = CommonDialog1.FontUnderline Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.ForeColor = CommonDialog1.Color 4、通用对话框应用实例 设计一个产生通用对话框的应用程序,新建一个标准窗体,产生一个单选按钮(在程序中要用于产生单选按钮数组)、一个通用对话框; Private Sub Form_load() For i = 1 To 5 Load Option1(i) Option1(i).Top = Option1(i - 1).Top + 350 Option1(i).Visible = True Next i Option1(0).Caption = 打开文件 Option1(1).Caption = 保存文件 Option1(2).Caption = 颜色 Option1(3).Caption = 字体 Option1(4).Caption = 打印 Option1(5).Caption = 帮助 Command1.Caption = 显示对话框 End Sub Private Sub Command1_Click() If Option1(0).Value Then CommonDialog1.Filter = Html文件(*.htm)|*.htm|Exe文件(*.exe)|*.exe CommonDialog1.ShowOpen Shell(CommonDialog1.Filename) ElseIf Option1(1
文档评论(0)