Option Explicit
Private m_KlasseninterneVariable As Variant '<~~ Datentyp wählbar
'
Public Property Get EigenschaftsName() As Variant
EigenschaftsName = m_KlasseninterneVariable
End Property
Public Property Let EigenschaftsName(ByVal vNewValue As Variant)
m_KlasseninterneVariable = vNewValue
End Property
Verwendung:
Option Explicit
Sub main()
Dim c As Klasse1
'Wertzuweisung
c.EigenschaftsName = "Test"
'Ausgabe
MsgBox c.EigenschaftsName
End Sub
Hinweis:
Du möchtest in den seltesten bis gar keinen Fällen, dass der Variablenwert von ausserhalb Deiner Klasse verändert werden kann.
|