Actie instellen bij klik op knop.

Status
Niet open voor verdere reacties.
Het is gewoon een voorbeeld van hoe je het zou kunnen opslaan.

Hoe wil jij anders opslaan of een CheckBox True of False is?
 
als alle tekstboxen en vinkjes worden opgeslagen vind ik het goed hoor.
 
Laatst bewerkt:
OK, ik zal even een simpel voorbeeldproject schrijven...

[edit] Voìla. Download het hier.[/edit]

60021782.jpg
 
Laatst bewerkt:
En dan moet ik nu gewoon de code kopiëren naar mijn Checkbox om het te laten werken?
 
Huh? Code kopiëren naar een CheckBox? :confused:

Je moet gewoon wat meer CheckBoxen en TextBoxen toevoegen aan de code. Begrijp je de code wel?
 
Prima code, maar zou je niet beter van een For Each loop gebruik kunnen maken in plaats van alle textboxes en checkbox apart aan te roepen?

Je kunt trouwens de code verkleinen als je System.IO importeert.
 
Hey, eh, ik heb meer tekstvelden en checkboxen aan jou creatie toegevoegt en de code iets veranderd maar nu als ik openen klik en dan op het bestand klik, klik ik vervolgens op openen dan loopt het programmatje vast!

De code ziet er nu zo uit:
Code: 
Public Class Form1

    'Geschreven door JoZ1 van Helpmij.nl
  
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Save As New SaveFileDialog
        Save.Filter = "CHB-Bestanden (*.chb)|*.chb"

        If Save.ShowDialog = DialogResult.OK Then
            Dim Writer As New System.IO.StreamWriter(Save.FileName)
            Writer.WriteLine(TextBox1.Text & ";" & TextBox2.Text)                           'Textboxdata  schrijven naar bestand
            Writer.WriteLine(CheckBox1.Checked.ToString & ";" & CheckBox2.Checked.ToString) 'CheckBoxdata schrijven naar bestand
            Writer.Close()
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim Open As New OpenFileDialog
        Open.Filter = "CHB-Bestanden (*.chb)|*.chb"
        If Open.ShowDialog = DialogResult.OK Then

            Dim Reader As New System.IO.StreamReader(Open.FileName)     'Bestand lezen
            Dim Data() As String = Reader.ReadToEnd.Split(vbNewLine)    'De twee regels scheiden
            Reader.Close()

            Dim TextBoxData() As String = Data(0).Split(";")            'De textboxdata  scheiden
            Dim CheckBoxData() As String = Data(1).Split(";")           'De checkboxdata scheiden

            TextBox1.Text = TextBoxData(0)                              'Data naar TextBox1 schrijven
            TextBox2.Text = TextBoxData(1)                              'Data naar TextBox2 schrijven
            TextBox5.Text = TextBoxData(2)                              'Data naar TextBox3 schrijven
            TextBox4.Text = TextBoxData(3)                              'Data naar TextBox4 schrijven
            TextBox3.Text = TextBoxData(4)                              'Data naar TextBox5 schrijven
            TextBox6.Text = TextBoxData(5)                              'Data naar TextBox6 schrijven
            TextBox7.Text = TextBoxData(6)                              'Data naar TextBox7 schrijven
            TextBox9.Text = TextBoxData(7)                              'Data naar TextBox8 schrijven
            TextBox8.Text = TextBoxData(8)                              'Data naar TextBox9 schrijven

            CheckBox1.Checked = Convert.ToBoolean(CheckBoxData(0))      'Data naar CheckBox1 schrijven
            CheckBox2.Checked = Convert.ToBoolean(CheckBoxData(1))      'Data naar CheckBox2 schrijven
            CheckBox3.Checked = Convert.ToBoolean(CheckBoxData(2))      'Data naar CheckBox3 schrijven
            CheckBox4.Checked = Convert.ToBoolean(CheckBoxData(3))      'Data naar CheckBox4 schrijven
            CheckBox5.Checked = Convert.ToBoolean(CheckBoxData(4))      'Data naar CheckBox5 schrijven
            CheckBox6.Checked = Convert.ToBoolean(CheckBoxData(5))      'Data naar CheckBox6 schrijven
            CheckBox7.Checked = Convert.ToBoolean(CheckBoxData(6))      'Data naar CheckBox7 schrijven
            CheckBox8.Checked = Convert.ToBoolean(CheckBoxData(7))      'Data naar CheckBox8 schrijven
            CheckBox9.Checked = Convert.ToBoolean(CheckBoxData(8))      'Data naar CheckBox9 schrijven
        End If
    End Sub
End Class

Kan je de code voor mij een beetje veranderen zodat hij het weer doet? :confused:

P.S. In de bijlage zit Knipsel5.PNG met het nu uitziende programmatje.
 
Laatst bewerkt:
Je hebt ze toegevoegd aan de Save functie, niet aan Open functie, daarin staan alleen nog TextBox 1 en 2 en CheckBox 1 en 2.

Ben je wel helemaal wakker? :P
 
Eh, ik ben wel wakker en ik heb hem echt aan de open functie toegevoegt hoor. Ik zou het ff nog een keer checken.
 
Oeps, ik bedoelde het precies andersom:

Je hebt ze toegevoegd aan de Open functie, niet aan Save functie, daarin staan alleen nog TextBox 1 en 2 en CheckBox 1 en 2.
 
Eh, ik zit nu nog met een inimini klein probleempje. Als ik in de tekstboxen 1 t/m9 nummer en dan opsla en weer open. staan de nummers nietmeer van 1 t/m 9 maar staan ze zo:
1
2
5
4
3
6
7
9
8
terwijl ik ze zo nummerde:
1
2
3
4
5
6
7
8
9
Weten jullie wat ik fout doe?
Hier nogmaals de code:
Code: 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Save As New SaveFileDialog
        Save.Filter = "CHB-Bestanden (*.chb)|*.chb"

        If Save.ShowDialog = DialogResult.OK Then
            Dim Writer As New System.IO.StreamWriter(Save.FileName)
            Writer.WriteLine(TextBox1.Text & ";" & TextBox2.Text & ";" & TextBox5.Text & ";" & TextBox4.Text & ";" & TextBox3.Text & ";" & TextBox6.Text & ";" & TextBox7.Text & ";" & TextBox9.Text & ";" & TextBox8.Text)                           'Textboxdata  schrijven naar bestand
            Writer.WriteLine(CheckBox1.Checked.ToString & ";" & CheckBox2.Checked.ToString & ";" & CheckBox3.Checked.ToString & ";" & CheckBox4.Checked.ToString & ";" & CheckBox5.Checked.ToString & ";" & CheckBox6.Checked.ToString & ";" & CheckBox7.Checked.ToString & ";" & CheckBox8.Checked.ToString & ";" & CheckBox9.Checked.ToString) 'CheckBoxdata schrijven naar bestand
            Writer.Close()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Open As New OpenFileDialog
        Open.Filter = "CHB-Bestanden (*.chb)|*.chb"
        If Open.ShowDialog = DialogResult.OK Then

            Dim Reader As New System.IO.StreamReader(Open.FileName)     'Bestand lezen
            Dim Data() As String = Reader.ReadToEnd.Split(vbNewLine)    'De twee regels scheiden
            Reader.Close()

            Dim TextBoxData() As String = Data(0).Split(";")            'De textboxdata  scheiden
            Dim CheckBoxData() As String = Data(1).Split(";")           'De checkboxdata scheiden

            TextBox1.Text = TextBoxData(0)                              'Data naar TextBox1 schrijven
            TextBox2.Text = TextBoxData(1)                              'Data naar TextBox2 schrijven
            TextBox3.Text = TextBoxData(2)                              'Data naar TextBox3 schrijven
            TextBox4.Text = TextBoxData(3)                              'Data naar TextBox4 schrijven
            TextBox5.Text = TextBoxData(4)                              'Data naar TextBox5 schrijven
            TextBox6.Text = TextBoxData(5)                              'Data naar TextBox6 schrijven
            TextBox7.Text = TextBoxData(6)                              'Data naar TextBox7 schrijven
            TextBox8.Text = TextBoxData(7)                              'Data naar TextBox8 schrijven
            TextBox9.Text = TextBoxData(8)                              'Data naar TextBox9 schrijven

            CheckBox1.Checked = Convert.ToBoolean(CheckBoxData(0))      'Data naar CheckBox1 schrijven
            CheckBox2.Checked = Convert.ToBoolean(CheckBoxData(1))      'Data naar CheckBox2 schrijven
            CheckBox3.Checked = Convert.ToBoolean(CheckBoxData(2))      'Data naar CheckBox3 schrijven
            CheckBox4.Checked = Convert.ToBoolean(CheckBoxData(3))      'Data naar CheckBox4 schrijven
            CheckBox5.Checked = Convert.ToBoolean(CheckBoxData(4))      'Data naar CheckBox5 schrijven
            CheckBox6.Checked = Convert.ToBoolean(CheckBoxData(5))      'Data naar CheckBox6 schrijven
            CheckBox7.Checked = Convert.ToBoolean(CheckBoxData(6))      'Data naar CheckBox7 schrijven
            CheckBox8.Checked = Convert.ToBoolean(CheckBoxData(7))      'Data naar CheckBox8 schrijven
            CheckBox9.Checked = Convert.ToBoolean(CheckBoxData(8))      'Data naar CheckBox9 schrijven
        End If
    End Sub
End Class


P.S. De checkboxen worden wel in de goede volgorde opgeslagen en geopend.
 
Zo wordt het wel heel erg onduidelijk. Ik ga The Mighty Atom's tip toepassen:

The Mighty Atom zei:
Prima code, maar zou je niet beter van een For Each loop gebruik kunnen maken in plaats van alle textboxes en checkbox apart aan te roepen?

Je kunt trouwens de code verkleinen als je System.IO importeert.
Klik om te vergroten...

Ik ga zo de nieuwe code posten.

PS: @zandor: Hier gaat het fout:
[cpp]Writer.WriteLine(TextBox1.Text & ";" & TextBox2.Text & ";" & TextBox5.Text & ";" & TextBox4.Text & ";" & TextBox3.Text & ";" & TextBox6.Text & ";" & TextBox7.Text & ";" & TextBox9.Text & ";" & TextBox8.Text)[/cpp]

[edit] Hier is het nieuwe project! Je hoeft nu niets aan te passen. Succes ermee! :thumb:[/edit]
 
Laatst bewerkt:
Gelukt

Ik heb de fout eruit gehaalt.

Ik heb deze regel:
[CPP]Writer.WriteLine(TextBox1.Text & ";" & TextBox2.Text & ";" & TextBox5.Text & ";" & TextBox4.Text & ";" & TextBox3.Text & ";" & TextBox6.Text & ";" & TextBox7.Text & ";" & TextBox9.Text & ";" & TextBox8.Text)[/CPP]
veranderd in deze regel:
[CPP]Writer.WriteLine(TextBox1.Text & ";" & TextBox2.Text & ";" & TextBox3.Text & ";" & TextBox4.Text & ";" & TextBox5.Text & ";" & TextBox6.Text & ";" & TextBox7.Text & ";" & TextBox8.Text & ";" & TextBox9.Text)[/CPP]
en nou doet hij het!

:D:D:D:D Bedankt voor het helpen! :D:D:D:D
 
Hey je kunt het programmatje hier downloaden! Ik vind hem zelf best mooi.
 
Laatst bewerkt:
Goedzo.

Maar waarom die installer? :confused:

Zet je de vraag op 'opgelost' ? :)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan