這幾天在琢磨自己編寫一個MS
OFFICE基礎操作的閱卷系統
當然類似的系統已經有不少了
國家計算機等級一級輔助學習系統
各地方的計算機職稱考試系統
各高校的計算機文化基礎輔助學習系統以及一些商業的及個人的類似的系統
那麼我的閱卷系統要有什麼特點呢?
這類系統
無非就是調用MS的OFFICE類庫
然後使用其提供的各種對象來判斷操作者的對錯
開發工具首選VB
開發效率高
最重要的就是其和VBA本身就是一家
系統框架采用主程序(exe)加ActiveX DLL
優點是
系統開發好後
擴展比較方便
可以隨時增加一個閱卷功能
例如增加一個批閱WORD表格方便的功能
並且
提供一個接口
用戶也可以按照說明隨時增加自己的批閱點(制作自己的ActiveX DLL)
擴展的DLL名稱自定義
但是要填寫表格以告訴主程序
類名稱統一
例子
pclass
dll (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(
pclass
class
)
@#pclass是DLL名稱
class
是pclass
dll中的類名稱
@#注意
不是模塊名稱
MsgBox obj
myFunction(
)
Set obj = Nothing
Exit Sub
errorHandle:
MsgBox Err
Description &
清檢查DLL文件名稱
類名稱
是否注冊等!
Err
Clear
End Sub
From:http://tw.wingwit.com/Article/program/net/201311/11463.html