OOP: Verwendung Use statement

[Gutierrez]

Moin liebe Gemeinde ;-)

Ich habe zwei Scriptbibliotheken Module_A und Module_B (vereinfacht; es sind ein paar mehr). Jetzt möchte ich folgendes tun:

Code

-------Module_A---------
Option Declare
 
Public Class AClass
  Sub New()
 
  End Sub
 
  Sub Init(c as BClass)
 
  End Sub
End Class
 
 
 
-------Module_B---------
Option Declare
Use "Module_A"
 
Public Class BClass
 
  Private m_cAc as AClass
 
  Sub New()
 
    Set m_cAc = New AClass
    Call m_cAc.Init(Me)
 
  End Sub
 
End Class

Kompilieren lassen sich die Sourcen, aber beim Ausführen kennt Module_A die in Module_B definierte Klasse BClass nicht (ist mir eigentlich auch klar).

Um gehen kann ich das, in dem ich in AClass die Sub Init umschreibe...

Code

  Sub Init(c as Variant)
 
  End Sub

... aber dann müsste ich ja mit dem IsA-Operator arbeiten, um zu prüfen, ob die Variable den korrekten Typ/Klasse hat. Das finde ich doof. Gibt es eine bessere Möglichkeit?

[Tode]

Das geht leider nicht ohne einiges an Workarounds. Hier ist eine Artikelserie, die sich mit diesem Thema beschäftigt und das Ganze ermöglicht...

[Gutierrez]

Danke für den Lesestoff :-)

[pram]

Wenn du dazu noch typsicher sein willst, dann musst du alle Klassen "sehen".
Du kannst entweder deine Klassen alle in eine Script-Bibliothek packen (unschön) oder in einer gemeinsamen Scriptbibliothek nur die "Interfaces" mit leeren Rumpfmethoden aufnehmen und wie Tode schon gepostet hat, mit Dynaloading dann entsprechende Instanzen erzeugen.

Ein ähnliches Verfahren verwenden wir auch in unserem Framework und das Ergebnis ist performant (da die "großen" Programmteile erst bei Bedarf geladen werden) und der Code bleibt wartbar. (da typesafe)
Das einzige Problem ist halt die Mehrarbeit für die Interfaceklassen.

Code

------- Commons ---------
Option Declare
 
Public Class AInterface
  Public Sub Init(c as BInterface)
     error 2000, "AbstractMethodCalled"
  End Sub
End Class
 
Public Class BInterface
  Public Sub Init(c as AInterface)
     error 2000, "AbstractMethodCalled"
  End Sub
End Class
 
public function dynaload(className as String)
'... hier muss das dynamische Classloading rein
end function
 
-------Module_A---------
Use "Commons"
Option Declare
 
Public Class AClass extends AInterface
  Function Produce(param as Variant)
    Dim instance as new AClass()
    if param isA BInterface then call instance.init(param)
    set produce = instance
  End Sub
 
 
  Sub Init(c as BInterface)
 
  End Sub
End Class
 
 
 
-------Module_B---------
Option Declare
Use "Commons"
 
Public Class BClass extends BInterface
 
  Private m_cAc as AInterface
 
  Sub Produce(param as variant)
    dim instance as new BClass()
    Set instance.m_cAc = newObj("Module_A", "AClass", me)
    set produce = instance
  End Sub
 
End Class
 

Hab das jetzt mal frei Hand geschrieben, kann also noch der ein oder andere Fehler versteckt sein