vrijdag 10 augustus 2012

Tutorial 5 VB: Data Opslaan

Tutorial VB: Data Opslaan

In deze tutorial ga ik je leren hoe je in Visual Basic data pernament opslaat. Dit soort data zou je bijvoorbeeld later weer kunnen gebruiken om je instellingen in op te slaan.
Als eerste starten we Visual Basic. We klikken op New project... en maken een Windows Form Application aan. Ik noem hem 'dataTutorial'.
Voor dit project heb je nodig uit de Toolbox:

   - 2 labels
   - 1 button
   - 2 textboxen

Zoals dit:


Dan scroll je in het venster Properties naar Text, let er op dat je button aangeklik is (dan zie je er witte rondjes omheen verschijnen.). Bij Text voer je een naam in, in mijn geval Opslaan. Dan zie je dit:

Nu moeten we de waardes aanmaken waar we onze gegevens willen opslaan. Dit doen we door onze muis bij Project te houden en op 'dataTutorial Properties...' te klikken.


Nu krijg dit scherm:


Je gaat dan naar het tabblad Settings. Als het goed is zie je al een setting staat. Neem dit over.


Nu kunnen we gaan werken aan de code. Je gaat weer terug naar het tabblad Form1.vb [Design] en je klik dubbel op button1. Voer daar dan deze code in.


 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Voer een voornaam in!", MsgBoxStyle.Critical)
        ElseIf TextBox2.Text = "" Then
            MsgBox("Voer een achternaam in!", MsgBoxStyle.Critical)
        Else
            'Opslaan waardes
            My.Settings.voornaam = TextBox1.Text
            My.Settings.achternaam = TextBox2.Text
            My.Settings.Save()
            MsgBox("Voornaam en achternaam met succes opgeslagen!")
        End If
    End Sub



Dan klik op het tabblad Form1.vb[Design] en voeg je één button toe en de text van de button moet Uitlezen zijn. Zoals dit:


Dan klik je dubbel op button2 (Uitlezen knop). Voer dan deze code in.


   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        MsgBox(My.Settings.voornaam)
        MsgBox(My.Settings.achternaam)
    End Sub


Als je nu de applicatie start, voer je bij label1 je voornaam in en bij label2 voer je je achternaam in en je klik op opslaan. Nu dit is opgeslagen, kun je op Uitlezen klikken. Je zouden dan deze twee meldingen moeten kunnen zien.









- Dit is het einde van deze tutorial, bedankt voor het lezen. Als je nog vragen hebt meld deze dan in de comments.