Visual Basic程序設計（第二版）課件第11章

第11章使用ActiveX控件認識并裝載ActiveX控件常用ActiveX控件介紹使用ActiveX控件用戶自定義ActiveX控件VisualBasic程序設計基礎認識并裝載ActiveX控件內(nèi)部控件（標準控件）ActiveX控件ActiveX部件ActiveX控件可插入對象（本章不作介紹）11.1.1控件分類及ActiveX的概念

呈現(xiàn)在工具箱中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關閉文件被播放的文件←實現(xiàn)動畫播放VisualBasic程序設計基礎常用ActiveX控件介紹11.2.2MediaPlayer控件屬性名含義Filename用來設置被播放的文件路徑及文件名AutoStart決定在用Open方法打開文件時是否自動播放，取邏輯值常用方法同Animation控件VisualBasic程序設計基礎常用ActiveX控件介紹11.2.3更多控件一覽圖標控件名稱功能Winsock支持TCP/IP協(xié)議，實現(xiàn)網(wǎng)絡通訊MSComm為應用程序提供串口通訊功能MMControl管理多媒體接口(MCI)設備和多媒體文件的記錄和播放WebBrowser實現(xiàn)WWW瀏覽功能Calendar實現(xiàn)日歷顯示設置功能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控件實現(xiàn)）VisualBasic程序設計基礎課堂練習－使用ActiveX控件練習2：設計一個含WebBrowser控件的應用程序，運行結(jié)果下圖所示第11章使用ActiveX控件認識并裝載ActiveX控件常用ActiveX控件介紹使用ActiveX控件用戶自定義ActiveX控件VisualBasic程序設計基礎用戶自定義ActiveX控件11.4.1自定義一個ActiveX控件新建工程制作界面選擇工程類型見下頁VisualBasic程序設計基礎用戶自定義ActiveX控件11.4.1自定義一個ActiveX控件設置屬性添加代碼VisualBasic程序設計基礎課堂練習211.4.1自定義一個ActiveX控件設計一ActiveX控件，實現(xiàn)在左右兩列表框中數(shù)據(jù)項的相互