打印本文 打印本文  关闭窗口 关闭窗口  
VB动态调用自己的ActiveXDLL
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:45:28  文章录入：杜斌  责任编辑：杜斌
     这几天在琢磨自己编写一个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
打印本文 打印本文  关闭窗口 关闭窗口