X1RON
Legacy Member
Hallo allemaal!
Ik zou graag een variabele binnen een klasse wijzigen door een actie in een methode van diezelfde klasse. Wanneer ik debug is echter te zien dat de variabele (die op voorhand al een waarde heeft meegekregen) de waarde 0 heeft binnen de methode.
Dit komt imo doordat ik de methode oproep met behulp van een een ander event.
In dit event roep ik de methode "stort" binnen de klasse "rekening" op dmv de volgende code:
Nu zou ik graag de oorspronkelijke value van de private variabelen binnen mijn klasse "rekening" blijven behouden, maar volgens mij worden die door die "new" gewist.
Is hier een manier voor om deze te blijven behouden?
De volledige code:
Grtz & thx!
Ik zou graag een variabele binnen een klasse wijzigen door een actie in een methode van diezelfde klasse. Wanneer ik debug is echter te zien dat de variabele (die op voorhand al een waarde heeft meegekregen) de waarde 0 heeft binnen de methode.
Dit komt imo doordat ik de methode oproep met behulp van een een ander event.
In dit event roep ik de methode "stort" binnen de klasse "rekening" op dmv de volgende code:
Code:
dim stortbedrag as new rekening
stortbedrag.stort()Nu zou ik graag de oorspronkelijke value van de private variabelen binnen mijn klasse "rekening" blijven behouden, maar volgens mij worden die door die "new" gewist.
Is hier een manier voor om deze te blijven behouden?
De volledige code:
Code:
Public Class rekening
Private _BedragOpRekening As Single
Public Property BedragOpRekening() As Single
Get
Return _BedragOpRekening
End Get
Set(ByVal value As Single)
_BedragOpRekening = value
End Set
End Property
Public Sub Stort()
Dim GestortBedrag As Single
GestortBedrag = CSng(InputBox("Geef uw bedrag in:", "Stort"))
'_BedragOpRekening blijkt dus 0 te zijn
_BedragOpRekening += GestortBedrag
Messagebox.show(_BedragOpRekening)
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rekeninginformatie As New rekening()
rekeninginformatie.BedragOpRekening = 100
End Sub
Private Sub btnStort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStort.Click
'Hier bevindt zich volgens mij het probleem
Dim stortbedrag As New rekening()
stortbedrag.Stort()
End SubGrtz & thx!
?