sylvester-ponte
Verenigingslid
- Lid geworden
- 19 apr 2007
- Berichten
- 6.614
als dit mijn klas Punt is:
hoe moet ik deze let property dan gebruiken?
deze lukt me wel:
hiermee stest ik hem:
groet sylvester
Code:
Private Xpunt As Double
Private Ypunt As Double
Property Let XY(Xwaarde As Double, Ywaarde As Double)
Xpunt = Xwaarde
Ypunt = Ywaarde
End Property
deze lukt me wel:
Code:
Property Let X(Xwaarde As Double)
Xpunt = Xwaarde
End Property
Code:
Sub testpunt()
Dim P As New Punt
P.X = 5 'dit werkt prima
'P.XY = 5,4 'doet het niet
End Sub
groet sylvester