Behöver reseta variablerna så de är precis som när programmet startar. Ett sätt är att lägga all beräkningslogik, variabler etc. i en separat klass(-struktur). När du vill återställa till ursprungsläget initierar du helt sonika nya instanser av klasserna i fråga.Reseta alla variabler
Har provat med Nothing men det hjälper inte eftersom variabler behåller
värden ändå från olika håll.
Det enda som hjälpt är Application.Restart() men det ser klumpigt ut.
Starta om formen också.
Finns det något smidigt sätt att återställa variabler som de var
när programmet startade.
Tack på förhand
Lasse
Visual Basic 2010Sv: Reseta alla variabler
Public Class Form3
' Denna klass bör inte ha några fler "nollställningsbara" variabler än _model.
Private _model As Incrementer
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
GenerateNewModel()
End Sub
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
AddOne()
End Sub
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
GenerateNewModel()
End Sub
Private Sub GenerateNewModel()
' Ut med det gamla, in med det nya
_model = New Incrementer(100)
txtValue.Text = _model.Value
End Sub
Private Sub AddOne()
_model.Add(1)
txtValue.Text = _model.Value
End Sub
End Class
Protected Class Incrementer
Private _value As Integer
' Här kan du lägga allsköns bråte som ska gå att nollställa
Public Sub New(initialValue As Integer)
_value = initialValue
End Sub
Public Sub Add(number As Integer)
_value += number
End Sub
Public ReadOnly Property Value As Integer
Get
Return _value
End Get
End Property
End Class