VBCOM基礎(chǔ)講座之測試ActiveXEXEs

2019-11-18 17:54:43

字體：大中小

供稿：網(wǎng)友

本節(jié)將創(chuàng)建并測試自己的ActiveXEXE程序。

　　示例中將使用這樣一個組件，它是一個有效的文件探測器。大約每隔60秒檢測指定文件的存在性。如何該文件存在，該組件激發(fā)一個事件來調(diào)用應(yīng)用程序，如果不存在，則另作處理。

-align="right">->->->　　當(dāng)然，如果將所有代碼寫到ActiveXDLL工程，則運行時程序代碼將被掛起直到文件檢測代碼運行完畢為止。由于ActiveXEXE工程擁有自己的進程空間，代碼運行時會自我協(xié)調(diào)、異步處理，從而不會使其他程序代碼停頓。

　　下面就來創(chuàng)建：

　　新建一個"ActiveXEXE"工程；

　　工程名設(shè)為"File"；

　　添加的類名為"FileCheck"；

　　下一步，我們需要構(gòu)造一些用于每隔1分鐘左右檢測文件的代碼。這里將在ActiveXEXE工程插入一個帶有計時器的表單。但該表單不會被顯示，因為我們只是使用上面的計時器控件每隔1分鐘左右來檢測文件，如果相應(yīng)的文件被檢測到，則激發(fā)一個事件。

　　選擇"
->　　PrivateSubobjFileCheck_FileFound()

　　　RaiseEventFileFound(objFileCheck.Filename)

　　EndSub->

　　顯然，當(dāng)文件檢測到時，這里的FileFound事件就被激發(fā)。但我們還需要在使用EXE程序中添加這個事件的添加代碼。

　　在objFileCheck_FileFound事件中添加下列代碼：

　　RaiseEventFileFound(objFileCheck.Filename)

　　這就是我們的全部代碼。

　　當(dāng)程序員使用該類時，都可以文件名為參數(shù)調(diào)用MonitorFile方法，然后表單中的計時器被引發(fā)，每隔60秒鐘檢測一下文件，若該文件被查找到，則激發(fā)FileCheck類中的事件，該事件又激發(fā)相關(guān)的應(yīng)用程序中的另一個事件，用來通知程序員，該文件已被找到。

　　明白了嗎？讓我們試試看吧！->