怎样使用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