国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

VBCOM基礎講座之測試ActiveXEXEs

2019-11-18 17:54:43
字體：大 中 小
來源：轉載
供稿：網友
本節將創建并測試自己的ActiveXEXE程序。

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

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

　　下面就來創建：

　　新建一個"ActiveXEXE"工程；

　　工程名設為"File"；

　　添加的類名為"FileCheck"；

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

　　選擇"
->　　PrivateSubobjFileCheck_FileFound()

　　　RaiseEventFileFound(objFileCheck.Filename)

　　EndSub->

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

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

　　RaiseEventFileFound(objFileCheck.Filename)

　　這就是我們的全部代碼。

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 含山县| 招远市| 肃宁县| 当涂县| 浏阳市| 耒阳市| 同心县| 奎屯市| 得荣县| 民和| 兴仁县| 庆云县| 扎赉特旗| 鲁山县| 上饶县| 扬中市| 泰兴市| 嵩明县| 周宁县| 通榆县| 石台县| 申扎县| 登封市| 南郑县| 无为县| 东至县| 泽库县| 阿尔山市| 宁城县| 阿瓦提县| 连平县| 资溪县| 鞍山市| 朝阳县| 铁岭市| 油尖旺区| 汕头市| 滕州市| 邯郸市| 开封市| 田阳县|