VB動態調用自己的ActiveX DLL

2024-07-21 02:20:33

字體：大中小

來源：轉載

供稿：網友

這幾天在琢磨自己編寫一個ms-office基礎操作的閱卷系統，當然類似的系統已經有不少了：國家計算機等級一級輔助學習系統、各地方的計算機職稱考試系統、各高校的計算機文化基礎輔助學習系統以及一些商業的及個人的類似的系統。那么我的閱卷系統要有什么特點呢？
     這類系統。無非就是調用ms的office類庫，然后使用其提供的各種對象來判斷操作者的對錯。開發工具首選vb6.0，開發效率高，最重要的就是其和vba本身就是一家。系統框架采用主程序（exe）加activex dll。優點是，系統開發好后，擴展比較方便。可以隨時增加一個閱卷功能，例如增加一個批閱word表格方便的功能。并且，提供一個接口，用戶也可以按照說明隨時增加自己的批閱點(制作自己的activex dll)。擴展的dll名稱自定義，但是要填寫表格以告訴主程序，類名稱統一。

例子：
pclass.dll (activex dll ，類名稱：class1)
public function myfunction(byval i as integer) as integer
    myfunction= i
end function

主程序調用：
private sub command1_click()
    on error goto errorhandle:
    dim obj as object
    set obj = createobject("pclass.class1")
    'pclass是dll名稱,class1是pclass.dll中的類名稱
    '注意：不是模塊名稱
    msgbox obj.myfunction(20)
    set obj = nothing
    exit sub
errorhandle:
    msgbox err.description & " -- 清檢查dll文件名稱、類名稱、是否注冊等！"
    err.clear
end sub

菜鳥學堂：

上一篇：學習編寫《連連看》項目

下一篇：vb與sqlserver數據庫連接的問題