Gegevens

wpe3D.jpg (7351 bytes)

In dit project gaan we na of de invoer van een bepaald type is. We plaatsen een tekstbox op het formulier, en een aantal labels:

naam	opschrift
lblIsGetal	Getal?
lblNul	Nul?
lblInteger	Integer?
lblLong	Long?
lblDouble	Double?
lblDate	Datum?

We willen nagaan of de invoer een getal is, nul is, een integer is, een Long is, een Double is en een Date is. We doen dat bij de Change gebeurtenis van de textbox.

If IsNumeric(txtInvoer.Text) Then
lblIsgetal.Caption = "Getal"
Else
lblIsgetal.Caption = "Geen getal"
End If

If IsDate(txtInvoer.Text) Then
lblDate.Caption = "Datum"
Else
lblDate.Caption = "Geen datum"
End If

Veel tikwerk, maar het gaat. Op naar de volgende:

If txtInvoer.Text = 0
lblNul.Caption = "Nul"
Else
lblNul.Caption = "Niet nul"
End If

Dat lijkt ook prima te werken. Maar als we een datum proberen in te tikken, krijgen we een probleem. "27/" wordt niet herkend als datum, dus kan niet vergeleken worden met het getal 0. Er zijn twee mogelijke oplossingen:

We vergelijken met de string die het getal nul is:
If txtInvoer.Text = 0
We plaatsen alle testen voor de getallen na IsNumeric, d.w.z. wanner we zeker zijn dat het over een getal gaat.

Dit is de code van het project.

Je kan het project hier downloaden.