第九章 ActiveX控件 Visual Basic(VB) 教学课件.pptVIP

第九章 ActiveX控件 9.1 公用对话框（Common dialog） “打开”对话框 “另存为”对话框 “颜色”对话框 “字体”对话框 “打印”对话框 “帮助”对话框 Action属性：运行阶段有效 * * 教学目的要求： 孰练掌握VB常用ActiveX控件的主要属性、方法、事 件及在实际编程中的应用。 掌握公用对话框（CommonDialog）、Windows公用控 件和多媒体控件等高级控件的用法。 教学重点 公用对话框（CommonDialog）、Windows公用控件 和多媒体控件等高级控件的用法 教学方法： 大屏幕投影演示 时间安排： 2学时 教学难点： ActiveX控件的主要属性、方法、事 件 ActiveX控件：采用ActiveX技术创建的一个或多个对象组成，是一段可重复使用的程序代码和数据。以文件形式存在，扩展名为.ocx ActiveX控件添加： “工程”“部件” 工具箱右击（快捷菜单）“部件” 选项卡添加： 工具箱右击（快捷菜单）“添加选项卡” “部件”对话框中选择“Microsoft Common Dialog Control 6.0 显示“帮助”对话框 6 显示“打印”对话框 5 显示“字体”对话框 4 显示“颜色”对话框 3 显示“另存为”对话框 2 显示“打开”对话框 1 没有操作 0 说明 属性值 一、共有属性与方法 CancelError属性： 按“取消”按钮时是否产生出错信息，若设为True，会产生一个错误号为32755的错误信息 DialogTitle属性： 对话框标题 方法： 显示“帮助”对话框 ShowHelp 显示“打印”对话框 ShowPrinter 显示“字体”对话框 ShowFont 显示“颜色”对话框 ShowColor 显示“另存为”对话框 ShowSave 显示“打开”对话框 ShowOpen 二、“打开”与“另存为”对话框 Filename属性： 设置或返回对话框中选定的包括目录的文件名 FileTitle属性： 设置或返回对话框中选定的不包括目录的文件名 Filter属性： 设置或返回对话框中显示文件的过滤器，格式为： 类型描述|类型通配符 例：文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc FilterIndex属性： 当用Filter设置多组过滤器时，指定第几组为默认过滤器 InitDir属性： 设置对话框中初始文件目录，默认为当前目录 Flags属性： 见P179表9-2 DefaultExt属性： 适合“另存为”对话框，没有指定扩展名时的默认扩展名 例： Private Sub Command1_Click() On Error Resume Next CommonDialog1.ShowOpen或CommonDialog1.action=1 If Err.Number 32755 Then Image1.Picture = LoadPicture(CommonDialog1.FileName) End If End Sub Private Sub Command2_Click() Image1.Picture = Nothing End Sub Private Sub Command3_Click() Unload Me End Sub 三、“颜色”对话框 Color属性： 返回用户选定的颜色 Flags属性： 设置初始颜色 CdlCCRGBInit-H1 自定义颜色无效 CdlCCPreventFullOpen-H4 显示帮助 CdlCCShowHelpButton-H8 全部对话框，包括自定义颜色 CdlCCFullOpen-H2 例： 四、“字体”对话框 Color属性： 返回用户选定的字体的颜色 Flags属性：常用如下表 列出可用的打印机和屏幕字体 CdlCFBoth-H3 只列出系统支持的屏幕字体 CdlCFScreenFonts-H1 只列出打印机支持的字体 CdlCFPrinterFonts-H2 全部对话框，包括自定义颜色 CdlCFEffects-H100 Fontname属性：返回用户选定的字体名称 Fontsize属性：返回用户选定的字体大小 FontBold、FontItalic、FontStrikethru、FontUnderline属性：返回用户选定的字体样式 例： 五、“打印”对话框 Copies属性：指定要打印的份数 FromPage、ToPage属性：设置或返回要打印的起始页号和终止页号 六、“帮助”对话框 HelpFile属性：指定要显示的帮助文件 HelpCommand属性：常用值如下 CdlHel