Hi,
ja das ist richtig.
Im Projektexplorer wird dann der Klassenname definiert:
Das Pendant zum Konstruktor/Destruktor:
Option Explicit
Private Sub Class_Initialize()
'*** Konstruktor()
End Sub
Private Sub Class_Terminate()
'*** Destruktor()
End Sub
Attribute:
Option Explicit
'
Private m_intBaujahr As Integer
'
Public Property Get Baujahr() As Variant
Baujahr = m_intBaujahr
End Property
Public Property Let Baujahr(ByVal vNewValue As Variant)
m_intBaujahr = vNewValue
End Property
Methoden:
Private Sub Lackieren()
'***Methode
End Sub
Klassenvariable erstellen:
'*** Deklarationsteil
Dim clsAuto1 As clsAuto
'*** Definitionsteil
set clsAuto1 = New clsAuto
Klassenvariable zerstören:
set clsAuto1 = Nothing
Hoffe das hilft Dir n bisschen weiter.
gruß
Marco
|