Ah, danke, den ersten Punkt hatte ich übersehen.
Jetz taucht ein anderes Problemchen auf. Aber erstmal zum aktuellen Code.
Private m_Baujahr As Integer
Private m_Farbe As String
Private Sub Class_Initialize()
m_Baujahr = 1997
m_Farbe = "Grün"
End Sub
Public Property Get Baujahr() As Integer
Baujahr = Baujahr
End Property
Public Property Let Baujahr(ByVal newValue As Integer)
Baujahr = newValue
End Property
und der Aufruf:
Dim m_Auto1 As Auto
Set m_Auto1 = New Auto
MsgBox (m_Auto1.baujahr)
Die MsgBox gibt mir "0" zurük statt "1997". Die Intialisierung in der Initialisierungsprozedur der Klasse hat wohl nicht funktioniert. Was hab ich verbockt?
|