怎样使用activex dll 来封装窗体form为dll文件.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 17 行

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 
<END>