---

Klassen.JPG

Hallo,
ich wollte mit VBACAT eine eigene Klasse mit Eigenschaften und Methoden erstellen. Habe das ganze in einem Klassenmodul versucht. Funktioniert aber nicht so, wie ich es sonst kenne und in der Hilfe habe ich nichts dazu gefunden. Kann mir jemand sagen, wie in dem Klassenmodul das ganze aussehen muss?
 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

benutze Google mit z.B. "vba class".
In CATIA ist es genauso, wie in anderen VBA-Programmen, wie z.B. Excel VBA.
Hier die ersten zwei Treffer:
Classes in VBA
Using Classes in VBA

Gruß,
Zoltan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
danke für deine Antwort. Habe das mal ausprobiert. Leider bekomme ich nur eine leere MessageBox.Irgendwo ist da noch ein kleiner Anfängerfehler.

Mein Klassenmodul:

Code:

---

Public Property Get dXCoordinate() As String
dXCoordinate = pdXValue
End Property

Public Property Let dXCoordinate(dXArgument As String)
pdXValue = dXArgument
End Property

---

Mein Sub:

Code:

---

Sub SubTest()
    Dim MeinPunkt As PointClass
    Set MeinPunkt = New PointClass
    MeinPunkt.dXCoordinate = "10"
    MsgBox (MeinPunkt.dXCoordinate)
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

bei mir funktioniert es so:
PointClass.cls

Code:

---

Private pdXValue As String 'Das fehlt bei dir wahrscheinlich.
'In dieser klasseninterner Variable wird der Wert gespeichert.

Public Property Get dXCoordinate() As String
dXCoordinate = pdXValue
End Property

Public Property Let dXCoordinate(dXArgument As String)
pdXValue = dXArgument
End Property

---

Testcode ist genau deiner.

Ich würde dir generell anraten, in VBA mit "Option explicit" zu arbeiten (d.h. jede Variable muss zumindest deklariert werden).
Es ist zwar manchmal aufwendiger, aber viel sicherer.

Gruß,
Zoltan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo, ja danke das war mein Fehler.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,
habe doch noch mal eine Frage. WOllte nun eine Set-Methode zum Setzen mehrerer Eigenschaften schreiben. Bei nur einem Übergabeparameter funktioniert das ganze auch. Bei mehreren leider nicht.

Code:

---

Sub test()
    Dim Toolpoint As PointClass
    Set Toolpoint = New PointClass
   
    Toolpoint.SetValue (1, 1) 'Diese Zeile wird bei mir rot markiert

End Sub

---

Code:

---

Private pdXValue As Double
Private pdYValue As Double

Public Property Get dXCoordinate() As Double
dXCoordinate = pdXValue
End Property

Public Property Let dXCoordinate(dXArgument As Double)
pdXValue = dXArgument
End Property

Public Property Get dYCoordinate() As Double
dYCoordinate = pdYValue
End Property

Public Property Let dYCoordinate(dYArgument As Double)
pdYValue = dYArgument
End Property

Public Sub SetValue(dXArgument As Double, dYArgument As Double)
Me.dXCoordinate = dXArgument
Me.dYCoordinate = dYArgument
End Sub

---

[Diese Nachricht wurde von wulfgang am 10. Mrz. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

lasse die Klammer weg oder schreibe einen Call davor.

Und das sind allgemeine Programmierfragen. Bitte Google nicht vergessen.
Es steht ganz eindeutig in der zweiten Link.

Gruß,
Zoltan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja danke das war die Lösung.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

eine Frage zu der Klasse: wenn ich mir das Objekt Toolpoint
ins Watch ziehe, sehe ich sowohl die Variable aus der Let- als auch aus der Get-Prodzedur als Property vom Toolpoint (z.B. dXCoordinate und pdXValue), die auch immer den selben Wert haben.
Eigentlich handelt es sich doch um ein und dieselbe Property, oder verstehe ich irgendwas falsch?
(Es geht jetzt nicht speziell um den hier geposteten Code, das ist mir bei eigenen Klassen schon öfter aufgefallen.)

Gruß TomTom

------------------
tomtom1972

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP