Twee projecten van 19-08-2024

Hier zou ik de voorbeelden tonen van de projecten van de Visual Basic avond 19-08-2024.

het eerste project was BeginVenster om invoer uit te voeren in een multiline textbox.


Public Class Form1
   Private Sub btnKlikMij_Click(sender As Object, e As EventArgs) Handles btnKlikMij.Click
       Dim naam As String = ""
       Dim jaar As Integer
       Dim a As Integer

       a = a + 5   'oude toekenning
       a += 1     'nieuwe toekenning
       naam = txtNaam.Text
       jaar = txtLeeftijd.Text
       'Oude manier
       txtResultaat.Text = "Jouw ingegeven naam is: " & naam.ToUpper & vbNewLine & vbNewLine &
                           "Je bent " & jaar & " jaar oud."
       txtResultaat.Text = txtResultaat.Text & vbNewLine &
                              "Jouw ingegeven naam is: " & naam & vbNewLine &
                              vbNewLine & "Je bent " & jaar & " jaar oud." &
                              vbNewLine & vbNewLine & (a * 5)

       'txtResultaat.Text = $"Jouw ingegeven naam is: {naam.ToUpper}" & vbNewLine & vbNewLine &
       '                    $"Je bent {jaar} jaar oud."
       'txtResultaat.Text &= vbNewLine & $"Jouw ingegeven naam is: {naam & vbNewLine}" &
       '                    vbNewLine & $"Je bent {jaar} jaar oud. " &
       '                    $"{vbNewLine & vbNewLine & a * 5}"
   End Sub
End Class


Het tweede project had in principe geen naam, gewoon een TestApp.


Public Class Form1
   Dim Gegevens() As String
   Private Sub btnToevoegen_Click(sender As Object, e As EventArgs) Handles btnToevoegen.Click
       Dim count As Integer

       count = lstLijst.Items.Count
       ReDim Preserve Gegevens(count)

       Gegevens(count) = txtWaarde.Text
       lstLijst.Items.Add(txtWaarde.Text)
   End Sub

   Private Sub btnWeergeven_Click(sender As Object, e As EventArgs) Handles btnWeergeven.Click
       'Dim i As Integer
       Dim s As String

       'Oude manier: lus teller
       'For i = 1 To Gegevens.Length - 1
       'txtLijst.Text &= Gegevens(i) & vbNewLine
       'Next

       'nieuwe manier: itereren door een array
       For Each s In Gegevens
           txtLijst.Text &= s & vbNewLine
       Next
   End Sub
End Class


Wil je de oude manier proberen met een lus teller, vergeet dan niet even de 1 te wijzigen in een 0. Dit, omdat eerst een lege rij werd begonnen.
De lstLijst is een listbox en de rechter is een multiline textbox.


Geef van beide projecten in de forms dezelfde controlnamen zoals ze in de code staan.

Veel succes en tot de volgende keer.