Situation description:
I want to call a "sub" in classA in ProjectA from ClassB in ProjectB
- ClassA is part of ProjectA which is compiled as a ActiveX(.exe) application.
- ClassA is puplic not creatable
- In ProjectB I made a reference to the ProjectA.exe
- In ClassB I declared ClassA like this:
Dim WithEvents objClassA as ClassA
- When ClassB is initialised I do this:
Set objClassA = ClA
- ClA is declared in ProjectB.ClassC :
Option Explicit
Public Property Get ClA() As ClassA
Set ClA = objClA
End Property
Private Sub Class_Initialize()
Set objClA = New CHOSTLINK
End Sub
Private Sub Class_Terminate()
Set objClA = Nothing
End Sub
- This ClassC is being initialised as soon as ProjectB is activated.
- ClassC is GlobalMultiUse
the error is:
Compile Error:
Object required
(referering to: Set objClassA = ClA)
Do I forget something?
Thanx in advance!
I want to call a "sub" in classA in ProjectA from ClassB in ProjectB
- ClassA is part of ProjectA which is compiled as a ActiveX(.exe) application.
- ClassA is puplic not creatable
- In ProjectB I made a reference to the ProjectA.exe
- In ClassB I declared ClassA like this:
Dim WithEvents objClassA as ClassA
- When ClassB is initialised I do this:
Set objClassA = ClA
- ClA is declared in ProjectB.ClassC :
Option Explicit
Public Property Get ClA() As ClassA
Set ClA = objClA
End Property
Private Sub Class_Initialize()
Set objClA = New CHOSTLINK
End Sub
Private Sub Class_Terminate()
Set objClA = Nothing
End Sub
- This ClassC is being initialised as soon as ProjectB is activated.
- ClassC is GlobalMultiUse
the error is:
Compile Error:
Object required
(referering to: Set objClassA = ClA)
Do I forget something?
Thanx in advance!