VB教程中的ActiveX控件

第九章ActiveX控件教学目的要求：•孰练掌握VB常用ActiveX控件的主要属性、方法、事件及在实际编程中的应用。•掌握公用对话框（CommonDialog）、Windows公用控件和多媒体控件等高级控件的用法。教学重点•公用对话框（CommonDialog）、Windows公用控件和多媒体控件等高级控件的用法教学方法：大屏幕投影演示时间安排：2学时教学难点：ActiveX控件的主要属性、方法、事件ActiveX控件：采用ActiveX技术创建的一个或多个对象组成，是一段可重复使用的程序代码和数据。以文件形式存在，扩展名为.ocxActiveX控件添加：1.“工程”---“部件”2.工具箱---右击（快捷菜单）---“部件”选项卡添加：1.工具箱---右击（快捷菜单）---“添加选项卡”9.1公用对话框（Commondialog）“打开”对话框“另存为”对话框“颜色”对话框“字体”对话框“打印”对话框“帮助”对话框“部件”对话框中选择“MicrosoftCommonDialogControl6.0Action属性：运行阶段有效属性值说明0没有操作1显示“打开”对话框2显示“另存为”对话框3显示“颜色”对话框4显示“字体”对话框5显示“打印”对话框6显示“帮助”对话框一、共有属性与方法CancelError属性：按“取消”按钮时是否产生出错信息，若设为True，会产生一个错误号为32755的错误信息DialogTitle属性：对话框标题方法：ShowOpen显示“打开”对话框ShowSave显示“另存为”对话框ShowColor显示“颜色”对话框ShowFont显示“字体”对话框ShowPrinter显示“打印”对话框ShowHelp显示“帮助”对话框二、“打开”与“另存为”对话框Filename属性：设置或返回对话框中选定的包括目录的文件名FileTitle属性：设置或返回对话框中选定的不包括目录的文件名Filter属性：设置或返回对话框中显示文件的过滤器，格式为：类型描述|类型通配符例：文本文件(*.txt)|*.txt|Word文档(*.doc)|*.docFilterIndex属性：当用Filter设置多组过滤器时，指定第几组为默认过滤器InitDir属性：设置对话框中初始文件目录，默认为当前目录Flags属性：见P179表9-2DefaultExt属性：适合“另存为”对话框，没有指定扩展名时的默认扩展名例：PrivateSubCommand1_Click()OnErrorResumeNextCommonDialog1.ShowOpen或CommonDialog1.action=1IfErr.Number32755ThenImage1.Picture=LoadPicture(CommonDialog1.FileName)EndIfEndSubPrivateSubCommand2_Click()Image1.Picture=NothingEndSubPrivateSubCommand3_Click()UnloadMeEndSub三、“颜色”对话框Color属性：返回用户选定的颜色Flags属性：CdlCCFullOpen-&H2全部对话框，包括自定义颜色CdlCCShowHelpButton-&H8显示帮助CdlCCPreventFullOpen-&H4自定义颜色无效CdlCCRGBInit-&H1设置初始颜色例：四、“字体”对话框Color属性：返回用户选定的字体的颜色Flags属性：常用如下表CdlCFEffects-&H100全部对话框，包括自定义颜色CdlCFPrinterFonts-&H2只列出打印机支持的字体CdlCFScreenFonts-&H1只列出系统支持的屏幕字体CdlCFBoth-&H3列出可用的打印机和屏幕字体Fontname属性：返回用户选定的字体名称Fontsize属性：返回用户选定的字体大小FontBold、FontItalic、FontStrikethru、FontUnderline属性：返回用户选定的字体样式例：五、“打印”对话框Copies属性：指定要打印的份数FromPage、ToPage属性：设置或返回要打印的起始页号和终止页号六、“帮助”对话框HelpFile属性：指定要显示的帮助文件HelpCommand属性：常用值如下CdlHelpContextPopup-&H9:确保显示正确的帮助文件例：PrivateSubCommand1_Click()CommonDialog1.HelpCommand=&H9CommonDialog1.HelpFile=d:\ls\help.hlpCommonDialog1.ShowHelpEndSub9.2Windows公用控件“部件”对话框中选择“MicrosoftWindowsCommonControls6.0ToolBarStatusBarListViewImageList一、工具栏(ToolBar)控件Align属性：显示的位置1~4：顶、底、左、右ImageList属性：相关联图像的ImageList控件名称Buttons属性：工具栏控件的Button对象集合常用事件：ButtonClick：返回一个参数Button，表示用户单击哪个按钮。二、状态栏(StatusBar)控件状态栏控件由一组窗格构成，每一个窗格作为一Panel对象，所有Panel对象组成Panels集合Panel对象的常用属性：Text：显示的文本Picture：显示的图片文件名三、滑块(Slider)控件常用属性：Max、Min：设置或返回标尺刻度的最大、小值Orientation：放置方向0—水平1—垂直TickFrequency：标尺上每个刻度表示的数值SmallChange：按光标左右键时滑动刻度LargeChange：按光标PgUp、PgDn键时滑动刻度Value：滑块当前值常用事件：Click、Change、Scroll例：四、进程条(ProgressBar)控件常用属性：Orientation：放置方向0—水平1—垂直Scrolling：0—分段式1—平滑式Max、Min：进程条的终点值和起始值Value：当前进度数值PrivateSubTimer1_Timer()n=n+5Ifn=ProgressBar1.MaxThenProgressBar1.Value=nProgressBar2.Value=nElseMsgBox文件下载已完成！Timer1.Enabled=FalseEndIfEndSubDimnAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSub9.3多媒体控件Filename属性：播放文件名Command属性：Open、Play、Stop等“部件”对话框中选择“MicrosoftMultiMediaControls6.0一、MMcontrol控件Open方法：打开Play方法：播放动画Stop方法：停止播放“部件”对话框中选择“MicrosoftWindowsCommonControls-26.0二、Animation控件如下例：PrivateSubTimer1_Timer()i=i+1ProgressBar1.Value=iLabel1.Caption=“已完成&i&%Ifi=100ThenMsgBox“复制完毕！Timer1.Enabled=FalseAnimation1.StopEndIfEndSubDimiAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueAnimation1.OpenC:\filecopy.aviAnimation1.PlayEndSub