Constructor til klasse
Jeg er i gang med at sætte mig ind i klasser i Excel VBA, og så tænkte jeg på, hvordan jeg får adgang til constructoren for klassen?Givet klassen clsCircle (der beskriver en cirkel):
Option Explicit
'declare properties
Private mX As Double
Private mY As Double
Private mRadius As Double
'constructor
Private Sub clsCircle_Initialize(dblX As Double, dblY As Double, dblRadius As Double)
'store
mX = dblX
mY = dblY
mRadius = dblRadius
MsgBox ("instants oprettet")
End Sub
'set the x-coordinate
Public Property Let X(ByVal dblX As Integer)
mX = dblX
End Property
'set the y-coordinate
Public Property Let Y(ByVal dblY As Integer)
mY = dblY
End Property
'set radius
Public Property Let Radius(ByVal dblRadius As Double)
mRadius = dblRadius
End Property
'get area
Public Property Get Area() As Double
Area = 3.14 * mRadius * mRadius
End Property
Så bliver jeg nødt til først at instantiere den, derefter definere X, Y og Radius hver for sig. Hvordan får jeg ordnet klassen, så jeg f.eks. bare kan skrive
Dim c as clsCircle
Set c = new clsCircle(5,10,5)
?
Altså så jeg får en klasse med koordinater (5,10) og radius 5
Mvh Morten