VBCOM基礎講座之建立測試程序
這里我們直接創建一個應用程序來測試一下前面生成的ActiveX EXE文件監視組件:
新建一個"Standard EXE"工程;
下面需要添加一個引用到我們的新的文件組件中去,然后添加少量的代碼作嘗試:
選擇"Project"->"References"菜單;
選中"File"組件選項,然后單擊[OK]按鈕;
在表單的通用聲明部分添加下列代碼:
Dim WithEvents MyFileObject As FileCheck
從"Object"下拉列表中選擇"MyFileObject";
確保插入符在FileFound事件程序中;
鍵入下列代碼:
MsgBox "Found: " & Filename
在表單Form1中添加一個命令按鈕;
在該按鈕中添加下列代碼:
Set MyFileObject = New FileCheck
MyFileObject.MonitorFile ("c:est.txt")
這里,我們是將MyFileObject定義成FileCheck的一個新實例,然后用c:est.txt參數運行MonitorFile方法。這時,程序在后臺中啟用計時器,且每隔60秒都來檢測一次這個文件。
由于,我們的計算機中還沒有這個文件,所以什么也沒有發生。現在,我們用Notepad(記事本)在C盤中創建一個名為test.txt的文件。
則在60秒內,彈出一個消息對話框用來表示我們的文件被找到。這就是我們剛剛創建的ActiveX EXE!
對于上述這樣的組件,使用異步處理是沒有太大的必要的。正如我們以前討論的那樣,ActiveX EXE是有自己的進程空間的。因此,當計時器啟用并檢測文件的存在性時,它不會使其它程序暫停。而如果使用的是DLL,那么就可以使用異步處理了。
即使這樣,你能在計時器中放入任何代碼嗎?是能放入創建大型報表的程序、復雜的計算代碼,還是其他?
至此,我們構造了一些實際的常規組件,但我們還沒有來得及討論它們的發布問題,這將在下一節中進行。
新建一個"Standard EXE"工程;
下面需要添加一個引用到我們的新的文件組件中去,然后添加少量的代碼作嘗試:
選擇"Project"->"References"菜單;
選中"File"組件選項,然后單擊[OK]按鈕;
在表單的通用聲明部分添加下列代碼:
Dim WithEvents MyFileObject As FileCheck
從"Object"下拉列表中選擇"MyFileObject";
確保插入符在FileFound事件程序中;
鍵入下列代碼:
MsgBox "Found: " & Filename
在表單Form1中添加一個命令按鈕;
在該按鈕中添加下列代碼:
Set MyFileObject = New FileCheck
MyFileObject.MonitorFile ("c:est.txt")
這里,我們是將MyFileObject定義成FileCheck的一個新實例,然后用c:est.txt參數運行MonitorFile方法。這時,程序在后臺中啟用計時器,且每隔60秒都來檢測一次這個文件。
由于,我們的計算機中還沒有這個文件,所以什么也沒有發生。現在,我們用Notepad(記事本)在C盤中創建一個名為test.txt的文件。
則在60秒內,彈出一個消息對話框用來表示我們的文件被找到。這就是我們剛剛創建的ActiveX EXE!
對于上述這樣的組件,使用異步處理是沒有太大的必要的。正如我們以前討論的那樣,ActiveX EXE是有自己的進程空間的。因此,當計時器啟用并檢測文件的存在性時,它不會使其它程序暫停。而如果使用的是DLL,那么就可以使用異步處理了。
即使這樣,你能在計時器中放入任何代碼嗎?是能放入創建大型報表的程序、復雜的計算代碼,還是其他?
至此,我們構造了一些實際的常規組件,但我們還沒有來得及討論它們的發布問題,這將在下一節中進行。