VBCOM基本的講座之測(cè)試ActiveXEXEs_第1頁(yè)
VBCOM基本的講座之測(cè)試ActiveXEXEs_第2頁(yè)
VBCOM基本的講座之測(cè)試ActiveXEXEs_第3頁(yè)
VBCOM基本的講座之測(cè)試ActiveXEXEs_第4頁(yè)
免費(fèi)預(yù)覽已結(jié)束,剩余1頁(yè)可下載查看

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、VB COh基本的講座之測(cè)試 ActiveX EXEs精品本節(jié)將創(chuàng)建并測(cè)試自己的 ActiveX EXE 程序。示例中將使用這樣一個(gè)組件, 它是一個(gè)有效的文件探測(cè)器。 大約每隔 60 秒檢測(cè)指定文 件的存在性。如何該文件存在, 該組件激發(fā)一個(gè)事件來(lái)調(diào)用應(yīng)用程序, 如果不存在,則另作 處理。當(dāng)然,如果將所有代碼寫(xiě)到 ActiveX DLL 工程,則運(yùn)行時(shí)程序代碼將被掛起直到文件 檢測(cè)代碼運(yùn)行完畢為止。 由于 ActiveX EXE 工程擁有自己的進(jìn)程空間, 代碼運(yùn)行時(shí)會(huì)自我協(xié) 調(diào)、異步處理,從而不會(huì)使其他程序代碼停頓。下面就來(lái)創(chuàng)建:新建一個(gè) ActiveX EXE 工程;工程名設(shè)為 File ;

2、添加的類(lèi)名為 FileCheck ;下一步,我們需要構(gòu)造一些用于每隔 1 分鐘左右檢測(cè)文件的代碼。這里將在 ActiveX EXE 工程插入一個(gè)帶有計(jì)時(shí)器的表單。但該表單不會(huì)被顯示,因?yàn)槲覀冎皇鞘褂蒙厦娴挠?jì) 時(shí)器控件每隔 1 分鐘左右來(lái)檢測(cè)文件,如果相應(yīng)的文件被檢測(cè)到,則激發(fā)一個(gè)事件。選擇 Project-Add Form ;在表單 Form1 中添加一個(gè)計(jì)時(shí)器;在表單代碼中添加下列變量的聲明:Public Filename As String 該變量用于保存被監(jiān)視的文件名。在表單代碼中添加下列事件的聲明:Public Event FileFound() 該事件只有當(dāng)前面的文件發(fā)現(xiàn)后才被激發(fā)。

3、在 Timer1 代碼中添加下列語(yǔ)句:Private Sub Timer1_Timer()If Dir(Filename) ThenRaiseEvent FileFoundTimer1.Interval = 0End IfEnd Sub代碼中,首先簡(jiǎn)單地檢測(cè)文件,若存在則激發(fā) FileFound 事件,然后將 Timer1 的時(shí)間 間隔設(shè)為 0,停止以后的檢測(cè)。打開(kāi) FileCheck 類(lèi);在通用聲明處添加下列對(duì)象的聲明:Dim WithEvents objFileCheck As Form1這就是 Form1 的代碼, 它通知 Visual Basic 上述定義的對(duì)象是用來(lái)保存表單的。 關(guān)鍵

4、詞 WithEvents 表示該類(lèi)可以接收傳送來(lái)的事件,如前面的 FileFound 等。本節(jié)將創(chuàng)建并測(cè)試自己的 ActiveX EXE 程序。示例中將使用這樣一個(gè)組件, 它是一個(gè)有效的文件探測(cè)器。 大約每隔 60 秒檢測(cè)指定文 件的存在性。如何該文件存在, 該組件激發(fā)一個(gè)事件來(lái)調(diào)用應(yīng)用程序, 如果不存在,則另作 處理。當(dāng)然,如果將所有代碼寫(xiě)到 ActiveX DLL 工程,則運(yùn)行時(shí)程序代碼將被掛起直到文件 檢測(cè)代碼運(yùn)行完畢為止。 由于 ActiveX EXE 工程擁有自己的進(jìn)程空間, 代碼運(yùn)行時(shí)會(huì)自我協(xié) 調(diào)、異步處理,從而不會(huì)使其他程序代碼停頓。下面就來(lái)創(chuàng)建:新建一個(gè) ActiveX EXE

5、 工程;工程名設(shè)為 File ;添加的類(lèi)名為 FileCheck ;下一步,我們需要構(gòu)造一些用于每隔 1 分鐘左右檢測(cè)文件的代碼。這里將在 ActiveX EXE 工程插入一個(gè)帶有計(jì)時(shí)器的表單。但該表單不會(huì)被顯示,因?yàn)槲覀冎皇鞘褂蒙厦娴挠?jì) 時(shí)器控件每隔 1 分鐘左右來(lái)檢測(cè)文件,如果相應(yīng)的文件被檢測(cè)到,則激發(fā)一個(gè)事件。選擇 Project-Add Form ;在表單 Form1 中添加一個(gè)計(jì)時(shí)器;在表單代碼中添加下列變量的聲明:精品Public Filename As String 該變量用于保存被監(jiān)視的文件名。在表單代碼中添加下列事件的聲明:Public Event FileFound()該事

6、件只有當(dāng)前面的文件發(fā)現(xiàn)后才被激發(fā)。在 Timer1 代碼中添加下列語(yǔ)句:Private Sub Timer1_Timer()If Dir(Filename) ThenRaiseEvent FileFoundTimer1.Interval = 0End IfEnd Sub 代碼中,首先簡(jiǎn)單地檢測(cè)文件,若存在則激發(fā) FileFound 事件,然后將 Timer1 的時(shí)間 間隔設(shè)為 0,停止以后的檢測(cè)。打開(kāi) FileCheck 類(lèi);在通用聲明處添加下列對(duì)象的聲明:Dim WithEvents objFileCheck As Form1這就是 Form1 的代碼, 它通知 Visual Basic 上

7、述定義的對(duì)象是用來(lái)保存表單的。 關(guān)鍵詞 WithEvents 表示該類(lèi)可以接收傳送來(lái)的事件,如前面的 FileFound 等。從 Object 下拉列表框中選擇 Class;再?gòu)?Procedure 下拉列表框中選擇 Initialize ;在 Class_Initialize 事件中添加下列代碼:Private Sub Class_Initialize()Set objFileCheck = New Form1End Sub該代碼簡(jiǎn)單地使 objFileCheck 等于 Form1 的新的一個(gè)實(shí)例。 之后,我們將使用在 Form1中添加的功能。接下來(lái),我們編寫(xiě)一個(gè)子過(guò)程用來(lái)監(jiān)視一個(gè)文件。在

8、FileCheck 中添加下列代碼:Public Sub MonitorFile(Filename As String)objFileCheck.Filename = FilenameobjFileCheck.Timer1.Interval = 60000End Sub當(dāng)我們調(diào)用此過(guò)程時(shí),需要給出文件名參數(shù)。這時(shí),表單的 Filename 變量保存該文件 名,然后將計(jì)時(shí)器的時(shí)間間隔屬性設(shè)置為60,000毫秒并激活該計(jì)時(shí)器。至此,我們構(gòu)造了用于監(jiān)視文件的所有代碼。但是當(dāng)文件檢測(cè)到時(shí),我們需要通過(guò)激發(fā) FileFound 事件通知程序正在使用 ActiveX EXE 。在通用聲明部分添加下列事件聲

9、明:Public Event FileFound(Filename As String)該代碼只是簡(jiǎn)單地定義一個(gè) FileFound 事件,下一步該事件的相應(yīng)代碼。從Object下拉列表框中選擇objFileCheck;再?gòu)腜rocedure下拉列表框中選擇FileFound;Private Sub objFileCheck_FileFound ( )RaiseEvent FileFound ( objFileCheck.Filename)End Sub顯然,當(dāng)文件檢測(cè)到時(shí),這里的 FileFound 事件就被激發(fā)。但我們還需要在使用 EXE 程序中添加這個(gè)事件的添加代碼。在 objFileCheck_FileFound 事件中添加下列代碼:RaiseEvent FileFound(objFileCheck.Filename)這就是我們的全部代碼。當(dāng)程序員使用該類(lèi)時(shí),都可以文件

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論