- 1、本文档共32页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第七章:对话框和菜单程序设计.ppt
7.2.3 “打开”/“另存为”对话框 属性 1 FileName(文件名称)属性:在程序中可用该属性值设置或返回用户所选定的文件名(包含路径) 2 FileTitle(文件标题)属性:在程序中可用该属性值设置或返回用户所选定的文件名(不包含路径) 7.2 通用对话框 例7.1 设计一个如图所示的窗体,其中包含1个文本(Text1)和6个 命令按钮。程序运行后,单击命令按钮,可打开相应的对话框。 “打开”按钮的程序代码如下: Private Sub cmdOpen_Click() Dim StrText as string On Error Goto note 当出现错误时,跳转到note语句 With CommonDialog1 .DialogTitle = 打开对话框 .InitDir = “C:\ .Filter = Word文档(*.doc)|*.doc|文本文件 _ (*.txt)|*.txt|所有文件(*.*)|*.* .FilterIndex = 2 : Text1.Text = .ShowOpen 或使用 CommonDialog1.Action = 1 Open .FileName For Input As #1 End with If Err.Number = 0 Then 如果打开文件正确 Do While Not EOF(1) Line Input #1, StrText Text1 = Text1 + StrText + vbCrLf vbCrLf是回车换行符 Loop Close #1 End If Note: End Sub “另存为”按钮的程序代码如下: Private Sub cmdSave_Click() with CommonDialog1 .DialogTitle = 另存为对话框 .InitDir = “C:\ .Filter=Word文档(*.doc)|*.doc|文本文件 _ (*.txt)|*.txt|所有文件(*.*)|*.* .FilterIndex = 2 .DefaultExt = *.Txt .Action = 2 或使用CommonDialog1.ShowSave Open .FileName For Output As #2 End With For i = 1 To Len(Text1) Print #2, Mid$(Text1, i, 1); Next i Close #2 End Sub 7.2.4 “颜色”对话框 Color属性是“颜色”对话框最重要的属性,它返回或设置在调色板中选定的颜色。上例中颜色对话框的代码如下: Private Sub cmdColor_Click() CommonDialog1.ShowColor 或CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color 设置文本框的前景色 End Sub 7.2.5 “字体”对话框 1.Flags属性:确定对话框中显示的字体类型。 注意 在显示“字体”对话框前,必须先设置Flags 属性,否则,会发生字体不存在的错误。 7.2 通用对话框 “字体”按钮的程序代码如下: Private Sub cmdFont_Click() With CommonDialog1 .Flags = cdlCFScreenFonts Or cdlCFEffects .Max = 100 :.Min = 1 .ShowFont 也可以用.Action =4代替 Text1 .FontName =.FontName Text1.FontSize =.FontSize Text1.FontItalic =.FontItalic Text1.FontBold =.FontBold Text1.FontStrikethru =.FontStrikethru Text1.FontUnderline =.FontUnderline End With End Sub 7.2.6 “打印”对话框 1.Copies属性:整
您可能关注的文档
- 第三章__物流的其他.ppt
- .利用组策略部署软件.ppt
- 贝思兰|机柜智能管理器|弱电间综合管理系统|智能管理器|CSM|机柜综合管理|.ppt
- Flexsim仿真高级培训课程.pptx
- 鼎丰新的签约绑定流程.ppt
- .合金元素对珠影响.ppt
- 第三讲结构试验的荷载设备终稿.ppt
- 马克思《年经济学哲学手稿》.ppt
- 人教版高考英语总复习课件:必修UnitNelsonMandela—amodernhero.ppt
- 电子技术第版第章负反馈放大器.ppt
- 在劳动试验中诱发进展剖宫产1591-s2 main.pdf
- greet street advisors-executive compensation and corporate governance may5迎接街顾问执行治理.pdf
- 详解介绍indapamide专着3489sodium injection3488.pdf
- 详解单位分配短06yfu 2efs001yfu b5 den.pdf
- 分析详解介绍.pdf
- diamagnetic susceptibility of selected organic compounds选定有机化合物磁敏感性.pdf
- zigbee扩展开发型套件irm 3638.pdf
- 成果综合详解tecsis gmbh carl-legien str 40 de766.pdf
- 乙酰基乙腈水沸点bu bz苯甲酰二氯甲烷内容.pdf
- xenserver全部位新功能项目hypervisor whats new in xs psXS提示中.pdf
最近下载
- 2024-2025学年深圳市莲花中学北校区小升初入学分班考试语文试卷附答案解析.pdf VIP
- DB44_T 1661-2021《河道管理范围内建设项目技术规程》.docx VIP
- 中考数学—平行四边形的综合压轴题专题复习及答案解析 .pdf VIP
- (高清版)B/T 12971.1-2023 电力牵引用接触线 第1部分:铜及铜合金接触线.pdf VIP
- 强直性脊柱炎PPT课件.ppt VIP
- 广西自然科学研究系列卫生研究类专业职称评审条件(试行)2023.doc VIP
- 浙江理工大学2020考研真题.pptx VIP
- 工程量清单及招标控制价编制服务采购服务方案.docx VIP
- DB51T 2569-2019四川岩沥青改性沥青路面技术规范.docx VIP
- Unit3 Vocabulary 高中英语人教版(2019)选择性必修第一册.pptx VIP
文档评论(0)