Natuurlijk! Hier is een overzicht en enkele voorbeelden om je te helpen bij het implementeren van gegevensvalidatie en formulierverwerking in je Visual Basic (VB.NET) applicatie voor een contactformulier. **Type formulier:** - Een Windows Forms-applicatie met bijvoorbeeld een formulier genaamd `frmContact`. - Op het formulier bevinden zich: - TextBox voor naam (`txtNaam`) - TextBox voor e-mail (`txtEmail`) - TextBox voor telefoonnummer (`txtTelefoon`) - Een Submit knop (`btnVerzenden`) - Label(s) voor foutmeldingen of gebruik MessageBoxen --- ### Validatieregels: - **Naam:** verplicht, niet leeg - **E-mail:** verplicht, moet een geldig e-mailadres zijn - **Telefoonnummer:** optioneel, maar indien ingevuld moet het een geldig telefoonnummer zijn --- ### Voorbeeld van validatie in VB.NET: ```vb Private Sub btnVerzenden_Click(sender As Object, e As EventArgs) Handles btnVerzenden.Click ' Reset foutmeldingen Dim fouten As New List(Of String) ' Validatie naam If String.IsNullOrWhiteSpace(txtNaam.Text) Then fouten.Add("Naam is verplicht.") End If ' Validatie e-mail If String.IsNullOrWhiteSpace(txtEmail.Text) Then fouten.Add("E-mail is verplicht.") ElseIf Not IsValidEmail(txtEmail.Text) Then fouten.Add("Voer een geldig e-mailadres in.") End If ' Validatie telefoonnummer (optioneel) If Not String.IsNullOrWhiteSpace(txtTelefoon.Text) Then If Not IsValidPhoneNumber(txtTelefoon.Text) Then fouten.Add("Voer een geldig telefoonnummer in.") End If End If ' Als er fouten zijn, toon deze en stop verwerking If fouten.Count > 0 Then MessageBox.Show(String.Join(Environment.NewLine, fouten), "Fout bij invoer", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If ' Verwerking van formuliergegevens (bijvoorbeeld opslaan of versturen) ' Bijvoorbeeld: SaveContactData(txtNaam.Text, txtEmail.Text, txtTelefoon.Text) MessageBox.Show("Uw gegevens zijn succesvol verzonden!", "Succes", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub ' Hulpfunctie: controleer of e-mail geldig is Private Function IsValidEmail(email As String) As Boolean Try Dim addr = New System.Net.Mail.MailAddress(email) Return addr.Address = email Catch Return False End Try End Function ' Hulpfunctie: controleer of telefoonnummer geldig is (bijvoorbeeld numeriek) Private Function IsValidPhoneNumber(telefoon As String) As Boolean ' Voorbeeld: alleen cijfers en mogelijke spaties, streepjes Dim pattern As String = "^[0-9\s\-]+$" Return System.Text.RegularExpressions.Regex.IsMatch(telefoon, pattern) End Function ' Functie om gegevens op te slaan of verder te verwerken Private Sub SaveContactData(naam As String, email As String, telefoon As String) ' Implementatie afhankelijk van je database of opslagwijze End Sub ``` --- ### Uitleg: - **Validatie starten bij klik op 'Verzenden'** - **Lege velden controleren:** `String.IsNullOrWhiteSpace()` - **E-mail validatie:** met `MailAddress` object of regex - **Telefoonnummer validatie:** optioneel, maar indien ingevuld wordt gecontroleerd op toegestane tekens - **Fouten verzamelen en tonen:** via `MessageBox.Show()` - **Data verwerken:** bijvoorbeeld opslaan in database of versturen --- ### Extra tips: - Gebruik eventueel ErrorProvider voor inline validatie feedback - Zorg dat de validatie ook op server- of database-niveau wordt herhaald - Overweeg gebruik van invoervalidatie bij invoer zelf (bijvoorbeeld via MaskedTextBox voor telefoon) Als je nog verdere hulp nodig hebt bij een specifiek onderdeel, laat het gerust weten!

Zeker! Ik help je met het implementeren van gegevensvalidatie en formulierverwerking voor een contactformulier in Visual Basic. Hier is een complete uitleg met voorbeelden: ## Formulieropzet (Windows Forms) ```vb ' Controls op je form: ' txtNaam (TextBox) ' txtEmail (TextBox) ' txtTelefoon (TextBox - optioneel) ' btnVerzenden (Button) ' lblFoutmelding (Label - voor error messages) ``` ## Validatieregels 1. **Naam**: Verplicht, minimaal 2 tekens, alleen letters en spaties 2. **E-mail**: Verplicht, geldig e-mailformaat 3. **Telefoon**: Optioneel, maar indien ingevuld moet het een geldig nummer zijn ## Validatiecode Voorbeeld ```vb Imports System.Text.RegularExpressions Imports System.Net.Mail Public Class ContactFormulier Private Function ValideerInvoer() As Boolean Dim isValid As Boolean = True Dim foutmelding As String = "" ' Valideer naam If String.IsNullOrWhiteSpace(txtNaam.Text) Then foutmelding &= "• Naam is verplicht" & vbCrLf isValid = False ElseIf txtNaam.Text.Length < 2 Then foutmelding &= "• Naam moet minimaal 2 tekens bevatten" & vbCrLf isValid = False ElseIf Not Regex.IsMatch(txtNaam.Text, "^[a-zA-Z\s]+$") Then foutmelding &= "• Naam mag alleen letters bevatten" & vbCrLf isValid = False End If ' Valideer e-mail If String.IsNullOrWhiteSpace(txtEmail.Text) Then foutmelding &= "• E-mail is verplicht" & vbCrLf isValid = False ElseIf Not IsGeldigeEmail(txtEmail.Text) Then foutmelding &= "• Voer een geldig e-mailadres in" & vbCrLf isValid = False End If ' Valideer telefoon (optioneel) If Not String.IsNullOrWhiteSpace(txtTelefoon.Text) AndAlso Not IsGeldigTelefoonnummer(txtTelefoon.Text) Then foutmelding &= "• Voer een geldig telefoonnummer in" & vbCrLf isValid = False End If ' Toon foutmeldingen lblFoutmelding.Text = foutmelding lblFoutmelding.Visible = Not String.IsNullOrEmpty(foutmelding) Return isValid End Function Private Function IsGeldigeEmail(email As String) As Boolean Try Dim mailAddress As New MailAddress(email) Return True Catch Return False End Try End Function Private Function IsGeldigTelefoonnummer(telefoon As String) As Boolean ' Eenvoudige telefoonvalidatie - pas aan naar behoefte Dim cleanedPhone = Regex.Replace(telefoon, "[^\d+]", "") Return cleanedPhone.Length >= 10 AndAlso cleanedPhone.Length <= 15 End Function ``` ## Formulierverwerking ```vb Private Sub btnVerzenden_Click(sender As Object, e As EventArgs) Handles btnVerzenden.Click If ValideerInvoer() Then VerwerkFormulierGegevens() End If End Sub Private Sub VerwerkFormulierGegevens() Try Dim contactInfo As New ContactInfo With { .Naam = txtNaam.Text.Trim(), .Email = txtEmail.Text.Trim(), .Telefoon = If(String.IsNullOrWhiteSpace(txtTelefoon.Text), "Niet opgegeven", txtTelefoon.Text.Trim()) } ' Opslaan of verwerken van gegevens OpslaanContact(contactInfo) MessageBox.Show("Bedankt! Uw bericht is succesvol verzonden.", "Succes", MessageBoxButtons.OK, MessageBoxIcon.Information) ResetFormulier() Catch ex As Exception MessageBox.Show("Er is een fout opgetreden: " & ex.Message, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub OpslaanContact(contact As ContactInfo) ' Voorbeeld: opslaan in database of bestand ' Pas aan naar jouw specifieke behoeften Using writer As New System.IO.StreamWriter("contacten.txt", True) writer.WriteLine($"Datum: {DateTime.Now}, Naam: {contact.Naam}, Email: {contact.Email}, Telefoon: {contact.Telefoon}") End Using End Sub Private Sub ResetFormulier() txtNaam.Clear() txtEmail.Clear() txtTelefoon.Clear() lblFoutmelding.Visible = False End Sub ``` ## Ondersteunende Klasse ```vb Public Class ContactInfo Public Property Naam As String Public Property Email As String Public Property Telefoon As String End Class ``` ## Real-time Validatie (Optioneel) ```vb Private Sub txtNaam_TextChanged(sender As Object, e As EventArgs) Handles txtNaam.TextChanged If txtNaam.Text.Length > 0 Then If Not Regex.IsMatch(txtNaam.Text, "^[a-zA-Z\s]*$") Then txtNaam.BackColor = Color.LightPink Else txtNaam.BackColor = Color.White End If End If End Sub ``` ## Belangrijke Tips: 1. **Trim altijd invoer** om whitespace te verwijderen 2. **Gebruik Try-Catch** voor foutafhandeling 3. **Geef duidelijke foutmeldingen** per veld 4. **Test edge cases** zoals lege strings, speciale tekens 5. **Overweeg input masking** voor telefoonnummers Deze implementatie biedt robuuste validatie en duidelijke feedback voor gebruikers, terwijl het de code netjes en onderhoudbaar houdt.