VB教程中的ActiveX控件.ppt

第九章ActiveX控件教学方法：
大屏幕投影演示ActiveX控件：采用ActiveX技术创建的一个或多个对象组成，是一段可重复使用的程序代码和数据。以文件形式存在，扩展名为.ocxActiveX控件添加：
“工程”---“部件”
工具箱---右击（快捷菜单）---“部件”9.1公用对话框（Commondialog）Action属性：运行阶段有效CancelError属性：二、“打开”与“另存为”对话框FilterIndex属性：例：三、“颜色”对话框例：四、“字体”对话框Fontname属性：返回用户选定的字体名称五、“打印”对话框例：9.2Windows公用控件一、工具栏(ToolBar)控件二、状态栏(StatusBar)控件三、滑块(Slider)控件例：四、进程条(ProgressBar)控件PrivateSubTimer1_Timer()
n=n+5
Ifn<=ProgressBar1.MaxThen
ProgressBar1.Value=n
ProgressBar2.Value=n
Else
MsgBox"文件下载已完成！"
Timer1.Enabled=False
EndIf
EndSub9.3多媒体控件Open方法：打开PrivateSubTimer1_Timer()
i=i+1
ProgressBar1.Value=i
Label1.Caption=“已完成"&i&"%"
Ifi=100Then
MsgBox“复制完毕！"
Timer1.Enabled=False
Animation1.Stop
EndIf
EndSub结束，谢谢