怎样使用ActiveX DLL 来封装窗体Form为DLL文件

问 题 :怎 样 使 用 ActiveX DLL 来 封 装 窗 体 Form为 DLL文 件 ,并 在 代 码 中 正 确 调 用 ?比 如 MsgBox框 的 实 现 方 式 ， 只 需 输 入 相 关 的 参 数 ， 窗 体 自 动 显 示 并 处 理 ， 返 回 所 需 的 结 果 值

 

答：

1、 建 立 一 个 ActiveX DLL工 程 ， 这 时 工 程 中 将 包 括 一 个 类 模 块 Class1。
    2、 在 ActiveX DLL工 程 中 添 加 一 个 Form。
    3、 在 类 模 块 添 加 如 下 函 数 ：
    Public Function ShowMyForm(s As String)
     Form1.Caption = s
     Form1.Show vbModal
    End Function
    4、 将 工 程 编 译 为 DLL。
    调 用 时 ，
    1、 建 立 一 个 标 准 EXE， 在 菜 单 “ 工 程 |引 用 ” 中 选 择 前 面 编 译 的 DLL。
    2、 使 用 如 下 代 码 调 用 ：
    Private Sub Form_Click()
     Dim cls As New Class1
    
     cls.ShowMyForm("Hello")
    End Sub