如题

解决方案 »

  1.   

    是编译成dll?
    还是同一工程组中的?
    还是不同工程组中的?
      

  2.   

    同一个工程里面,编译成为Dll
      

  3.   

    打个比方
    第一步
    组件工程名:project_sum,类名:class1
    Public Function sum(la As Long, lb As Long) As Long
        sum = la + lb
    End Function  
    编译后,引用测试
    Dim obj As project_sum.Class1
    Private Sub Command1_Click()
    Set obj = New project_sum.Class1
    MsgBox obj.Sum(2, 3)
    End Sub
      

  4.   

    classb中
    dim a as new classa
    a.f1
      

  5.   

    同意online(龙卷风V3.0--笑傲江湖) 和flyingscv(zlj),不过如果是在不同的dll中,要先声明A中的函数F1,才能使用。