[Mening] VB Cookie Klikker

Dylanh schreef:

http://stackoverflow.com/questions/10712407/simple-way-to-save-and-load-data-visual-basic

Antonn schreef:

Oh dat is man geleden. Het was iets van dit:
Me.settings.cookies = 0

Dim labels() As Label

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         Label waarde opslaan
        labels = New Label() {lblAantal}

        With My.Settings
            If .LabelValue Is Nothing Then .LabelValue = New System.Collections.Specialized.StringCollection
            For i = 0 To labels.Length - 1
                If .LabelValue.Count <= i Then .LabelValue.Add("")
                labels(i).Text = .LabelValue(i)
            Next
        End With
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        For i = 0 To labels.Length - 1
            My.Settings.LabelValue(i) = CDbl(lblAantal.Text)
        Next
        My.Settings.Save()
    End Sub

Antonn schreef:

Oh dat is man geleden. Het was iets van dit:
Me.settings.cookies = 0

Videotube schreef:

Zet er een timer bij, en doe dat elke x seconden de labels en buttons worden opgeslagen in een textbox en dan me.settings..... = bla

If My.Settings.Waarde Is Nothing Then
            My.Settings.Waarde = New System.Collections.Specialized.StringCollection
            My.Settings.Waarde.Add(CDbl(lblAantal.Text))
            My.Settings.Save()
        End If

Raaoul schreef:

Volgens mij moet je in je applicatie settings in visual studio gaan kijken, daar kun je waardes bijvoegen en die dan vervolgens setten in je code.

Thijmgrijs schreef:

Eerdere citaten tonen

Raaoul schreef:

Volgens mij moet je in je applicatie settings in visual studio gaan kijken, daar kun je waardes bijvoegen en die dan vervolgens setten in je code.

En in my settings staan:
Waarde als System.Collections.Specialized.StringCollection en scope user.

Alef schreef:

Ik heb onlangs zelf een kleine clicker gemaakt, onafgemaakt.
Maar ik heb toevallig die automatische save wel gemaakt.

Private Sub Save_Tick(sender As System.Object, e As System.EventArgs) Handles Save.Tick
My.Settings.Points = CStr(Val(LabelNaam.Text))
My.Settings.Save()
End Sub

Wat het precies doet, het haalt het aantal clicks op wat je op dit moment beschikbaar hebt. In jouw geval je label: Val(LabelNaam.Text)

Dus als je, in jouw geval, de CheckBox aanvinkt, moet je zorgen dat de Timer gaat tikken. (TimerName.Start())

Waarom moeilijk doen, als het ook makkelijk kan.

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            timersave.Enabled = True
            timersave.Start()
        End If

        If CheckBox1.Checked = False Then
            timersave.Enabled = False
            timersave.Stop()
        End If
    End Sub

    Private Sub timersave_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timersave.Tick
        My.Settings.Points = CStr(Val(lblAantal.Text))
        My.Settings.Save()
    End Sub