Visual Basic程序設(shè)計(jì)（第二版）課件第11章

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

呈現(xiàn)在工具箱中VisualBasic程序設(shè)計(jì)基礎(chǔ)認(rèn)識(shí)并裝載ActiveX控件ActiveX.EXE是不可視的代碼部件，能夠服務(wù)于多個(gè)應(yīng)用程序，并且能夠在遠(yuǎn)程計(jì)算機(jī)上運(yùn)行，能安裝在服務(wù)器端

ActiveX.DLL是不可視的代碼部件，能夠與應(yīng)用程序運(yùn)行在同一個(gè)進(jìn)程中，能安裝在客戶端

ActiveX文檔是一個(gè)可視的部件，運(yùn)行時(shí)能夠接管應(yīng)用程序的窗口，能夠通過瀏覽器查看并操作ActiveX控件是一個(gè)可視的部件，能夠作為控件被拖放到不同的應(yīng)用程序中

11.1.2ActiveX控件VisualBasic程序設(shè)計(jì)基礎(chǔ)認(rèn)識(shí)并裝載ActiveX控件11.1.2裝載ActiveX控件單擊瀏覽按鈕第11章使用ActiveX控件認(rèn)識(shí)并裝載ActiveX控件常用ActiveX控件介紹使用ActiveX控件用戶自定義ActiveX控件VisualBasic程序設(shè)計(jì)基礎(chǔ)常用ActiveX控件介紹11.2.1Animation控件屬性名含義Center決定動(dòng)畫是否在控件的中央播放，取邏輯值A(chǔ)utoPlay決定在用Open方法打開文件時(shí)是否自動(dòng)播放，取邏輯值方法名含義Open打開文件；打開指定的要播放的.avi文件Play播放動(dòng)畫；啟動(dòng)動(dòng)畫播放功能Stop停止播放；停止動(dòng)畫播放功能Close關(guān)閉文件被播放的文件←實(shí)現(xiàn)動(dòng)畫播放VisualBasic程序設(shè)計(jì)基礎(chǔ)常用ActiveX控件介紹11.2.2MediaPlayer控件屬性名含義Filename用來設(shè)置被播放的文件路徑及文件名AutoStart決定在用Open方法打開文件時(shí)是否自動(dòng)播放，取邏輯值常用方法同Animation控件VisualBasic程序設(shè)計(jì)基礎(chǔ)常用ActiveX控件介紹11.2.3更多控件一覽圖標(biāo)控件名稱功能Winsock支持TCP/IP協(xié)議，實(shí)現(xiàn)網(wǎng)絡(luò)通訊MSComm為應(yīng)用程序提供串口通訊功能MMControl管理多媒體接口(MCI)設(shè)備和多媒體文件的記錄和播放WebBrowser實(shí)現(xiàn)WWW瀏覽功能Calendar實(shí)現(xiàn)日歷顯示設(shè)置功能ProgressBar進(jìn)度控制顯示功能第11章使用ActiveX控件認(rèn)識(shí)并裝載ActiveX控件常用ActiveX控件介紹使用ActiveX控件用戶自定義ActiveX控件VisualBasic程序設(shè)計(jì)基礎(chǔ)使用ActiveX控件11.3.1Calendar控件的用法設(shè)計(jì)一個(gè)日歷程序，運(yùn)行界面如左圖所示。運(yùn)行時(shí)，利用鼠標(biāo)可設(shè)置日歷的時(shí)間，當(dāng)設(shè)置完成后，單擊“取設(shè)置日期”按鈕，可將設(shè)置好的日期顯示在文本框中VisualBasic程序設(shè)計(jì)基礎(chǔ)使用ActiveX控件11.3.1Calendar控件的用法新建工程引入控件制作界面設(shè)置屬性VisualBasic程序設(shè)計(jì)基礎(chǔ)使用ActiveX控件11.3.1Calendar控件的用法

對象名稱

屬性名

屬性值

Label1Caption年Label2Caption月Label3Caption日Text1、Text2、Text3在代碼中設(shè)置Frame1Caption已設(shè)置Command1Caption取設(shè)置日期Calendar1在代碼中設(shè)置編寫代碼VisualBasic程序設(shè)計(jì)基礎(chǔ)使用ActiveX控件‘當(dāng)窗體被裝入時(shí)設(shè)置日歷等的年月日的初值PrivateSubForm_Load() Calendar1.Year=2005

Calendar1.Month=10

Calendar1.Day=23

Text1.Text=2005 Text2.Text=10

Text3.Text=23

EndSub11.3.1Calendar控件的用法VisualBasic程序設(shè)計(jì)基礎(chǔ)使用ActiveX控件‘取設(shè)置日期按鈕的Click事件過程PrivateSubCommand1_Click()

Text1.Text=Calendar1.Year Text2.Text=Calendar1.Month Text3.Text=Calendar1.DayEndSub11.3.1Calendar控件的用法VisualBasic程序設(shè)計(jì)基礎(chǔ)使用ActiveX控件11.3.2ProgressBar控件的使用設(shè)計(jì)一個(gè)進(jìn)序表。單擊命令按扭，在10秒種顯示完畢，如左圖所示VisualBasic程序設(shè)計(jì)基礎(chǔ)使用ActiveX控件11.3.2ProgressBar控件的使用新建工程引入控件制作界面設(shè)置屬性VisualBasic程序設(shè)計(jì)基礎(chǔ)使用ActiveX控件11.3.2ProgressBar控件的使用

對象名稱

屬性名

屬性值

Command1Caption顯示進(jìn)程Timer1Interval100ProgressBar1在代碼中設(shè)置編寫代碼VisualBasic程序設(shè)計(jì)基礎(chǔ)使用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程序設(shè)計(jì)基礎(chǔ)課堂練習(xí)1－使用ActiveX控件練習(xí)1：使用MediaPlayer控件設(shè)計(jì)一個(gè)媒體播放器。單擊命令按扭，打開文件播放。如左圖所示。（并嘗試用MMControl控件實(shí)現(xiàn)）VisualBasic程序設(shè)計(jì)基礎(chǔ)課堂練習(xí)－使用ActiveX控件練習(xí)2：設(shè)計(jì)一個(gè)含WebBrowser控件的應(yīng)用程序，運(yùn)行結(jié)果下圖所示第11章使用ActiveX控件認(rèn)識(shí)并裝載ActiveX控件常用ActiveX控件介紹使用ActiveX控件用戶自定義ActiveX控件VisualBasic程序設(shè)計(jì)基礎(chǔ)用戶自定義ActiveX控件11.4.1自定義一個(gè)ActiveX控件新建工程制作界面選擇工程類型見下頁VisualBasic程序設(shè)計(jì)基礎(chǔ)用戶自定義ActiveX控件11.4.1自定義一個(gè)ActiveX控件設(shè)置屬性添加代碼VisualBasic程序設(shè)計(jì)基礎(chǔ)課堂練習(xí)211.4.1自定義一個(gè)ActiveX控件設(shè)計(jì)一ActiveX控件，實(shí)現(xiàn)在左右兩列表框中數(shù)據(jù)項(xiàng)的相互