Verschachtelung zweier Klassen
02.04.2016 07:48:35
Luggesch
Seit einem Tag beschäftigt mich folgenden Problemstellung:
Ich habe zwei Klassen in zwei Klassenmodulen angelegt.
Wenn ich jetzt die beiden Klassen ineinander verschachteln möchte, bzw. einen Wert zuweisen möchte erhalte ich den Fehler:
Objektvaribale oder With-Blockvariable nicht festgelegt.
Der Testsub ist der Folgende, die Klassen sind unten aufgeführt, die Zeile an der der Code stockt ist markiert.
Wo liegt da der Fehler? :)
Testmodul:
Public Sub test_fuer_matrix()
Dim mtrxTest As clsMatrix
Set mtrxTest = New clsMatrix
mtrxTest.E1.X = 5 '--> Hier bricht er ab
End Sub
clsMatrix:
Private pE1 As clsVector
Private pE2 As clsVector
Private pE3 As clsVector
Private pE4 As clsVector
Private Sub Class_Initialize()
Set pE1 = New clsVector
Set pE2 = New clsVector
Set pE3 = New clsVector
Set pE4 = New clsVector
End Sub
Private Sub Class_Terminate()
Set pE1 = Nothing
Set pE2 = Nothing
Set pE3 = Nothing
Set pE4 = Nothing
End Sub
Public Property Set E1(ByVal value As clsVector) 'oder Let
pE1 = value
End Property
Public Property Get E1() As clsVector
E1 = pE1 '--> Hier bleibt der Code stehen
End Property
clsVector:
Private pX As Double
Private pY As Double
Private pZ As Double
Private pD As Double
Public Property Let X(value As Double)
pX = value
End Property
Public Property Get X() As Double
X = pX
End Property
Anzeige