Visual Basic程序设计（第二版）课件第11章

第11章使用ActiveX控件认识并装载ActiveX控件常用ActiveX控件介绍使用ActiveX控件用户自定义ActiveX控件VisualBasic程序设计基础认识并装载ActiveX控件内部控件（标准控件）ActiveX控件ActiveX部件ActiveX控件可插入对象（本章不作介绍）11.1.1控件分类及ActiveX的概念

呈现在工具箱中VisualBasic程序设计基础认识并装载ActiveX控件ActiveX.EXE是不可视的代码部件，能够服务于多个应用程序，并且能够在远程计算机上运行，能安装在服务器端

ActiveX.DLL是不可视的代码部件，能够与应用程序运行在同一个进程中，能安装在客户端

ActiveX文档是一个可视的部件，运行时能够接管应用程序的窗口，能够通过浏览器查看并操作ActiveX控件是一个可视的部件，能够作为控件被拖放到不同的应用程序中

11.1.2ActiveX控件VisualBasic程序设计基础认识并装载ActiveX控件11.1.2装载ActiveX控件单击浏览按钮第11章使用ActiveX控件认识并装载ActiveX控件常用ActiveX控件介绍使用ActiveX控件用户自定义ActiveX控件VisualBasic程序设计基础常用ActiveX控件介绍11.2.1Animation控件属性名含义Center决定动画是否在控件的中央播放，取逻辑值AutoPlay决定在用Open方法打开文件时是否自动播放，取逻辑值方法名含义Open打开文件；打开指定的要播放的.avi文件Play播放动画；启动动画播放功能Stop停止播放；停止动画播放功能Close关闭文件被播放的文件←实现动画播放VisualBasic程序设计基础常用ActiveX控件介绍11.2.2MediaPlayer控件属性名含义Filename用来设置被播放的文件路径及文件名AutoStart决定在用Open方法打开文件时是否自动播放，取逻辑值常用方法同Animation控件VisualBasic程序设计基础常用ActiveX控件介绍11.2.3更多控件一览图标控件名称功能Winsock支持TCP/IP协议，实现网络通讯MSComm为应用程序提供串口通讯功能MMControl管理多媒体接口(MCI)设备和多媒体文件的记录和播放WebBrowser实现WWW浏览功能Calendar实现日历显示设置功能ProgressBar进度控制显示功能第11章使用ActiveX控件认识并装载ActiveX控件常用ActiveX控件介绍使用ActiveX控件用户自定义ActiveX控件VisualBasic程序设计基础使用ActiveX控件11.3.1Calendar控件的用法设计一个日历程序，运行界面如左图所示。运行时，利用鼠标可设置日历的时间，当设置完成后，单击“取设置日期”按钮，可将设置好的日期显示在文本框中VisualBasic程序设计基础使用ActiveX控件11.3.1Calendar控件的用法新建工程引入控件制作界面设置属性VisualBasic程序设计基础使用ActiveX控件11.3.1Calendar控件的用法

对象名称

属性名

属性值

Label1Caption年Label2Caption月Label3Caption日Text1、Text2、Text3在代码中设置Frame1Caption已设置Command1Caption取设置日期Calendar1在代码中设置编写代码VisualBasic程序设计基础使用ActiveX控件‘当窗体被装入时设置日历等的年月日的初值PrivateSubForm_Load() Calendar1.Year=2005

Calendar1.Month=10

Calendar1.Day=23

Text1.Text=2005 Text2.Text=10

Text3.Text=23

EndSub11.3.1Calendar控件的用法VisualBasic程序设计基础使用ActiveX控件‘取设置日期按钮的Click事件过程PrivateSubCommand1_Click()

Text1.Text=Calendar1.Year Text2.Text=Calendar1.Month Text3.Text=Calendar1.DayEndSub11.3.1Calendar控件的用法VisualBasic程序设计基础使用ActiveX控件11.3.2ProgressBar控件的使用设计一个进序表。单击命令按扭，在10秒种显示完毕，如左图所示VisualBasic程序设计基础使用ActiveX控件11.3.2ProgressBar控件的使用新建工程引入控件制作界面设置属性VisualBasic程序设计基础使用ActiveX控件11.3.2ProgressBar控件的使用

对象名称

属性名

属性值

Command1Caption显示进程Timer1Interval100ProgressBar1在代码中设置编写代码VisualBasic程序设计基础使用ActiveX控件11.3.2ProgressBar控件的使用PrivateSubCommand1_Click()Timer1.Enabled=TrueProgressBar1.Value=0EndSubPrivateSubForm_Load()Timer1.Enabled=FalseProgressBar1.Value=0EndSubPrivateSubTimer1_Timer()ProgressBar1.Value=ProgressBar1.Value+1

IfProgressBar1.Value>=100ThenTimer1.Enabled=False

EndIfEndSubVisualBasic程序设计基础课堂练习1－使用ActiveX控件练习1：使用MediaPlayer控件设计一个媒体播放器。单击命令按扭，打开文件播放。如左图所示。（并尝试用MMControl控件实现）VisualBasic程序设计基础课堂练习－使用ActiveX控件练习2：设计一个含WebBrowser控件的应用程序，运行结果下图所示第11章使用ActiveX控件认识并装载ActiveX控件常用ActiveX控件介绍使用ActiveX控件用户自定义ActiveX控件VisualBasic程序设计基础用户自定义ActiveX控件11.4.1自定义一个ActiveX控件新建工程制作界面选择工程类型见下页VisualBasic程序设计基础用户自定义ActiveX控件11.4.1自定义一个ActiveX控件设置属性添加代码VisualBasic程序设计基础课堂练习211.4.1自定义一个ActiveX控件设计一ActiveX控件，实现在左右两列表框中数据项的相互