Anlegen einer eigenen Klasse

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

... ich stelle mich die Frage: wie erklärt man sowas am einfachste?
Basic:
_ in VB-Editor, Menü "Einfügen", "Klassenmodul"
_ in den Eigenschaft ("Ansicht", "Eigenschaftsfenster") der Name der Klasse ändern. In dem Fall bittet sich "clsPunkt".
_ in der Klassenmodul "clsPunkt":

Public PunktNummer As Long
Public East As Double
Public South As Double
Public Function Absand(ByRef Punkt As clsPunkt) As Double
    Abstand = sqrt((Me.East - Punkt.East) ^ 2 + (Me.South - Punkt.South) ^ 2)
End Function

Im normalen Modul:

Sub test()
Dim P1 As clsPunkt
Dim P2 As New clsPunkt
    Set P1 = New clsPunkt
    P1.South = 1
    P1.East = 2
    P2.South = 5
    P2.East = 3
    Debug.Print "Abstand P1-P2: " & P1.Abstand(P2)
    Debug.Print "Abstand P2-P1: " & P2.Abstand(P1) & " (ist eh gleich :-)"
End Sub

Wesentlich für die Instanzierung von Objekt (Objekt=Instanz einer Klasse, ung. so wie Variable = Instanz eines Typen) ist "New". Hier in den 2 Varianten.
In P1 und P2 werden nicht die Objekt selbst gespeichert, sondern die Adresse, wo diese Objekt im Speicher abgelegt sind. P1/P2 sind "Zeiger" auf das Objekt (engl. Pointer). Daher müssen diese "gesetzt" werden, engl. "Set". Eine Übergabe ist immer nur eine Übergabe der Adresse: Set P3 = P1.
Mit "Set P1 = Nothing" zeigt P1 auf nichts. Wenn der Objekt, worauf P1 davor zeigte, von keiner Variable mehr angezeigt ist, gilt es als entsorgt (der Speicher wird freigegeben). Es gibt keine Möglichkeit mehr, an diesem Objekt wieder zu kommen.
Nächste Stufe wäre die Verwendung von Property Get/Let. Insbesonders, wenn man eine Property Read-Only haben möchte. Aber da bitte googeln.
VG
Yal

auch wenn Objekte viele Vorteil haben, eine einfache Function als Klassenfunktion zu definieren, ergibt wenig Mehrwert (außer eine Diskussion zu starten, wie Objekt sinnvoll anzuwenden sind :-)
Erst wenn die Eigenschaften in dem Objekt gespeichert werden, in dem Fall South, East und der Nummer des Punktes, macht es Sinn, einen Objekt überhaupt zu haben.
Andere gesagt: ein Objekt nur mit Eigenschaften (equiv. "Variablen") ist denkbar, aber ein Objekt nur mit Methoden (equiv. "Funktionen"), selten sinnvoll (es mag Ausnahme geben. Es fällt mir aber keine ein).
Methoden, um sich von Funktionen abzugrenzen, sollten sich hauptsächlich mit den Eigenschaften des Objekts befassen.
Aber nicht ausschließlich, wie in der Punkt-Beispiel: es muss an den Methode "Abstand" von Objekt P1 einen zweiten Objekt P2 übergeben werden, um die Distanz zwischen beiden zu rechnen.
Hier auch zur Sinnhaftigkeit von Objekte: P2 als Objekt der Methode "Abstand" übergeben, anstatt seine Eigenschaften South und East als einzelne Variablenwert.
VG
Yal

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anlegen einer eigenen Klasse

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread