VB動態調用自己的ActiveX DLL

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

例子
 pclassdll (ActiveX DLL 類名稱class)
Public Function myFunction(ByVal i As Integer) As Integer
    myFunction= i
End Function

主程序調用
Private Sub Command_Click()
    On Error GoTo errorHandle:
    Dim obj As Object
    Set obj = CreateObject(pclassclass)
    @#pclass是DLL名稱class是pclassdll中的類名稱
    @#注意不是模塊名稱
    MsgBox objmyFunction()
    Set obj = Nothing
    Exit Sub
errorHandle:
    MsgBox ErrDescription & 清檢查DLL文件名稱類名稱是否注冊等！
    ErrClear
End Sub
From:http://tw.wingwit.com/Article/program/net/201311/11463.html