添加一个activexdll工程,叫工程1,工程1添加一个类 clsTest,再添加一个窗口frmTest
窗口中添加一个按键
form代码:
Private Sub Command1_Click()
MsgBox "How do u do?"
End Sub
clsTest类代码:
Option Explicit
Public Sub TestFun()
Dim f As New Form1
f.Show
End Sub
然后在同一个IDE里添加一个新的普通工程,在form1里添一个按键,点开引用,将工程1打勾
将下面代码拷贝入form1:
Option Explicit
Private Sub Command1_Click()
Dim c As New clsTest
c.TestFun
End Sub