VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 10:43:21	Saturi
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 11:01:52	SJ
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 11:23:07	Saturi
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 11:26:33	SJ
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 11:27:27	SJ
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 11:46:57	Gast31129

Ansicht des Beitrags:

Von:
SJ

Datum:
17.08.2017 11:01:52

Views:
598

Rating:

Antwort:

Thema:
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen

Hallo,

so funktioniert auch deine auskommentierte Vorgehensweise:

clsReifen:

Option Explicit

Dim sGummi As String

Private Sub Class_Initialize()
    sGummi = vbNullString
End Sub

Public Property Get Gummi() As Variant
    Gummi = sGummi
End Property

Public Property Let Gummi(ByVal vNewValue As Variant)
    sGummi = vNewValue
End Property

clsAuto:

Option Explicit

Dim sName As String
Dim cReifen As clsReifen

Private Sub Class_Initialize()
    Set cReifen = New clsReifen
End Sub

Private Sub Class_Terminate()
    Set cReifen = Nothing
End Sub

Public Property Get Name() As Variant
    Name = sName
End Property

Public Property Let Name(ByVal vNewValue As Variant)
    sName = vNewValue
End Property

Public Property Get Reifen() As Variant
    Set Reifen = cReifen
End Property

Public Property Let Reifen(ByVal vNewValue As Variant)
    Set cReifen = vNewValue
End Property

main:

Option Explicit

Public Sub main()
    Dim nAuto As New clsAuto
    
    With nAuto
        .Name = "Rosti"
        .Reifen.Gummi = "Vollgummi"
        Debug.Print .Reifen.Gummi
    End With
    
    Set nAuto = Nothing
End Sub

Ausgabe:

Viele Grüße

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 10:43:21	Saturi
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 11:01:52	SJ
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 11:23:07	Saturi
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 11:26:33	SJ
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 11:27:27	SJ
Eigenschaftsaufruf in verschachtelten Klassen und Übergabe an Funktionen	17.08.2017 11:46:57	Gast31129