VB教程中的ActiveX控件

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) Private Sub Command2_Click() Image1.Picture = Nothing End Sub Private Sub Command3_Click() Unload Me End Sub End If End Sub
9.3 多媒体控件
一、MMcontrol控件
“部件”对话框中选择“Microsoft MultiMedia Controls6.0"
Filename属性：播放文件名
Command属性：Open、Play、Stop等
二、Animation控件
“部件”对话框中选择“Microsoft Windows Common Controls-2 6.0
列出可用的打印机和屏幕字体
Fontname属性：返回用户选定的字体名称
Fontsize属性：返回用户选定的字体大小 FontBold、FontItalic、FontStrikethru、 FontUnderline属性：返回用户选定的字体样式
例：
五、“打印”对话框
Copies属性：指定要打印的份数 FromPage、ToPage属性：设置或返回要打印
的起始页号和终止页号
六、“帮助”对话框
HelpFile属性：指定要显示的帮助文件
HelpCommand属性：常用值如下
CdlHelpContextPopup-&H9: 确保显示正确的帮助文件
例：
Private Sub Command1_Click()
CommonDialog1.HelpCommand = &H9 CommonDialog1.HelpFile = "d:\ls\help.hlp"
教学难点：
ActiveX控件的主要属性、方法、事 件
教学方法：
大屏幕投影演示
时间安排：
2学时
ActiveX控件：采用ActiveX技术创建的
一个或多个对象组成，是一段可重复使
用的程序代码和数据。以文件形式存在，
扩展名为.ocx
ActiveX控件添加：
1. “工程”---“部件”
2. 工具箱---右击（快捷菜单）---“部件” 选项卡添加：
MsgBox “复制完毕！"
Timer1.Enabled = False Animation1.Stop End If End Sub
例：
四、进程条 (ProgressBar)控件
常用属性： Orientation：放置方向 0—水平 1—垂直 Scrolling：0—分段式 1—平滑式 Max、Min： 进程条的终点值和起始值 Value：当前进度数值
Private Sub Timer1_Timer()
n=n+5 If n <= ProgressBar1.Max Then ProgressBar1.Value = n ProgressBar2.Value = n Else MsgBox "文件下载已完成！" Dim n As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Timer1.Enabled = False End If End Sub
个按钮。
二、状态栏(StatusBar)控件
状态栏控件由一组窗格构成，每一个窗格作为 一Panel对象，所有Panel对象组成Panels 集合 Panel对象的常用属性： Text：显示的文本 Picture：显示的图片文件名
三、滑块 (Slider)控件
常用属性： Max、Min：设置或返回标尺刻度的最大、小值 Orientation：放置方向 0—水平 1—垂直 TickFrequency：标尺上每个刻度表示的数值 SmallChange： 按光标左右键时滑动刻度 LargeChange：按光标PgUp、PgDn键时滑动刻度 Value：滑块当前值 常用事件： Click、Change、Scroll
三、“颜色”对话框
Color属性：
返回用户选定的颜色
Flags属性：
CdlCCFullOpen-&H2 CdlCCShowHelpButton-&H8 CdlCCPreventFullOpen-&H4 全部对话框，包括自定义颜色 显示帮助 自定义颜色无效
CdlCCRGBInit-&H1
设置初始颜色
1. 工具箱---右击（快捷菜单）---“添加选项卡
9.1 公用对话框（Common dialog）
“部件”对话框中选择“Microsoft Common Dialog Control 6.0"
“打开”对话框 “另存为”对话框 “颜色”对话框 “字体”对话框 “打印”对话框 “帮助”对话框
CommonDialog1.ShowHelp
End Sub
9.2 Windows公用控件
“部件”对话框中选择“Microsoft Windows Common Controls6 ToolBar
ImageList
ListView
StatusBar
一、工具栏(Tooห้องสมุดไป่ตู้Bar)控件
Align属性：显示的位置1~4：顶、底、左、右 ImageList属性：相关联图像的ImageList控件名称 Buttons属性：工具栏控件的Button对象集合 常用事件： ButtonClick：返回一个参数Button，表示用户单击哪
DialogTitle属性：
对话框标题
方法： ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp 显示“打开”对话框
显示“另存为”对话 框 显示“颜色”对话框 显示“字体”对话框 显示“打印”对话框 显示“帮助”对话框
二、“打开”与“另存为”对话框
第九章 ActiveX控件
教学目的要求：
• 孰练掌握VB常用ActiveX控件的主要属性、方法、事 件及在实际编程中的应用。 • 掌握公用对话框（CommonDialog）、Windows公用控 件和多媒体控件等高级控件的用法。
教学重点
• 公用对话框（CommonDialog）、Windows公用控件 和多媒体控件等高级控件的用法

一、共有属性与方法
Action属性：运行阶段有效
属性值 0 1 2 3 4 5 6 说明 没有操作 显示“打开”对话框 显示“另存为”对话框 显示“颜色”对话框 显示“字体”对话框 显示“打印”对话框 显示“帮助”对话框
CancelError属性：
按“取消”按钮时是否产生出错信息，若设为True，会产生 一个错误号为32755的错误信息
例：
四、“字体”对话框
Color属性：
返回用户选定的字体的颜色
Flags属性：常用如下表
CdlCFEffects-&H100 CdlCFPrinterFonts-&H2 CdlCFScreenFonts-&H1 全部对话框，包括自定义颜色 只列出打印机支持的字体 只列出系统支持的屏幕字体
CdlCFBoth-&H3
Open方法：打开 Play方法：播放动画 Stop方法：停止播放
如下例：
Private Sub Timer1_Timer()
i=i+1 ProgressBar1.Value = i
Label1.Caption = “已完成" & i & "%"
If i = 100 Then Dim i As Integer Private Sub Command1_Click() Timer1.Enabled = True Animation1.Open "C:\filecopy.avi" Animation1.Play End Sub