Invoerbeperkingen

In sommige omstandigheden moeten we er zeker van zijn dat een gegeven een bepaald type is: een getal, een datum, ....
Daarvoor kunnen we gebruik maken van een Loop gekoppeld aan een InputBox
Voor een getal:
Dim getal As Double
Do
getal = Inputbox("Geef een getal")
Loop Until IsNumeric(getal)
Voor een datum
Dim datum As Date
Do
datum = Inputbox("Geef een datum")
Loop Until IsDate(getal)
Als we de invoer uit een tekstvak halen kunnen we de test uitvoeren voor we de invoer gaan gebruiken. Bijvoorbeeld:
If Not IsNumeric(txtGetal.Text) Then
MsgBox "Je hebt geen getal ingetikt")
txtGetal.SetFocus ' [In .NET is dit txtGetal.Focus]
End If
Uiteraard kan je ook andere restricties inbouwen.
Oefeningen / toepassingen