打个比方 第一步 组件工程名:project_sum,类名:class1 Public Function sum(la As Long, lb As Long) As Long sum = la + lb End Function 编译后,新建工程引用dll测试Dim obj As project_sum.Class1 Private Sub Command1_Click() Set obj = New project_sum.Class1 MsgBox obj.Sum(2, 3) End Sub
第一步
组件工程名:project_sum,类名:class1
Public Function sum(la As Long, lb As Long) As Long
sum = la + lb
End Function
编译后,新建工程引用dll测试Dim obj As project_sum.Class1
Private Sub Command1_Click()
Set obj = New project_sum.Class1
MsgBox obj.Sum(2, 3)
End Sub
但是dll文件是不是先要在系统里面注册啊?我是注册了测试的!