VB60基础教程 之第12章 ActiveX控件

《VB60基础教程 之第12章 ActiveX控件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第九章ActiveX控件教学目的要求：孰练掌握VB常用ActiveX控件的主要属性、方法、事件及在实际编程中的应用。掌握公用对话框（CommonDialog）、Windows公用控件和多媒体控件等高级控件的用法。教学重点公用对话框（CommonDialog）、Windows公用控件和多媒体控件等高级控件的用法ActiveX控件：采用ActiveX技术创建的一个或多个对象组成，是一段可重复使用的程序代码和数据。以文件形式存在，扩展名为.ocxActiveX控件添加：“工程”---“部件”工具箱---右击（快捷菜单）---“部件”选项卡添加：

2、工具箱---右击（快捷菜单）---“添加选项卡”9.1公用对话框（Commondialog）“打开”对话框“另存为”对话框“颜色”对话框“字体”对话框“打印”对话框“帮助”对话框“部件”对话框中选择“MicrosoftCommonDialogControl6.0"Action属性：运行阶段有效属性值说明0没有操作1显示“打开”对话框2显示“另存为”对话框3显示“颜色”对话框4显示“字体”对话框5显示“打印”对话框6显示“帮助”对话框一、共有属性与方法CancelError属性：按“取消”按钮时是否产生出错信息，若设为True，会产生一个错

3、误号为32755的错误信息DialogTitle属性：对话框标题方法：ShowOpen显示“打开”对话框ShowSave显示“另存为”对话框ShowColor显示“颜色”对话框ShowFont显示“字体”对话框ShowPrinter显示“打印”对话框ShowHelp显示“帮助”对话框二、“打开”与“另存为”对话框Filename属性：设置或返回对话框中选定的包括目录的文件名FileTitle属性：设置或返回对话框中选定的不包括目录的文件名Filter属性：设置或返回对话框中显示文件的过滤器，格式为：类型描述

4、类型通配符例：文本文件(*.t

5、xt)

6、*.txt

7、Word文档(*.doc)

8、*.docFilterIndex属性：当用Filter设置多组过滤器时，指定第几组为默认过滤器InitDir属性：设置对话框中初始文件目录，默认为当前目录Flags属性：见表9-2DefaultExt属性：适合“另存为”对话框，没有指定扩展名时的默认扩展名例：PrivateSubCommand1_Click()OnErrorResumeNextCommonDialog1.ShowOpen或CommonDialog1.action=1IfErr.Number<>32755ThenImage1.

9、Picture=LoadPicture(CommonDialog1.FileName)EndIfEndSubPrivateSubCommand2_Click()Image1.Picture=NothingEndSubPrivateSubCommand3_Click()UnloadMeEndSub三、“颜色”对话框Color属性：返回用户选定的颜色Flags属性：CdlCCFullOpen-&H2全部对话框，包括自定义颜色CdlCCShowHelpButton-&H8显示帮助CdlCCPreventFullOpen-&H4自定义颜色无效Cd

10、lCCRGBInit-&H1设置初始颜色例：四、“字体”对话框Color属性：返回用户选定的字体的颜色Flags属性：常用如下表CdlCFEffects-&H100全部对话框，包括自定义颜色CdlCFPrinterFonts-&H2只列出打印机支持的字体CdlCFScreenFonts-&H1只列出系统支持的屏幕字体CdlCFBoth-&H3列出可用的打印机和屏幕字体Fontname属性：返回用户选定的字体名称Fontsize属性：返回用户选定的字体大小FontBold、FontItalic、FontStrikethru、FontUnde

11、rline属性：返回用户选定的字体样式例：五、“打印”对话框Copies属性：指定要打印的份数FromPage、ToPage属性：设置或返回要打印的起始页号和终止页号六、“帮助”对话框HelpFile属性：指定要显示的帮助文件HelpCommand属性：常用值如下CdlHelpContextPopup-&H9:确保显示正确的帮助文件例：PrivateSubCommand1_Click()CommonDialog1.HelpCommand=&H9CommonDialog1.HelpFile="d:lshelp.hlp"CommonDia

12、log1.ShowHelpEndSub9.2Windows公用控件“部件”对话框中选择“MicrosoftWindowsCommonControls6.0"ToolBarStatusBarLi