VB.NET: Sjekk formatet i en Tekstboks

[hanest]

Har du en tekstboks som skal ha en bestemt mengde tegn, for eksempel

en tekstboks for passord, kan dette være til hjelp.

'På toppen
Imports System.Text.RegularExpressions


   'Tekstboksen heter txtBoks, hendelsen heter Validated og jeg vil si den intreffer når
   'tekstboksen mister fokus.
   Private Sub txtBoks_Validated(ByVal sender As Object, _
                               ByVal e As System.EventArgs) _
                               Handles txtBoks.Validated

       Dim sTekstMønster As String
       sTekstMønster = "^(?=.*\d)(?=.*[a-å])(?=.*[A-Å]).{3,15}$"
       'Forklaring:
       '(?=.*\d)   : Betyr minst et tegn skal vere tall
       '(?=.*[a-å]): Betyr minst et tegn skal være liten bokstav
       '(?=.*[A-Å]): Betyr minst et tegn stor bokstav
       '{3,15}     : Betyr minimum 3 tegn, maks 15 tegn

       'Sjekker om det vi har i tekstboksen er etter det tekstmønsteret vi vil ha.
       'Er det ikke tekst i tekstboksen er det heller ingen vits å sjekke den.
       If Regex.IsMatch(txtBoks.Text, sTekstMønster) = True Or txtBoks.Text = String.Empty Then
           txtBoks.BackColor = SystemColors.Window
       Else
           txtBoks.BackColor = Color.Red
           txtBoks.Focus()
       End If
   End Sub