Een vraagje over een textbox validatie

[m0nk3rs]

Hallo,

Ik heb een vraagje over een textbox validatie..

ik ben een programmaatje aan het schrijven met verschillende kleinere programma's

ik heb dus verschillende textbox'n en zou graag 1 "test of getal numeriek of leeg is" module hebben.

ik kan bij ieder textbox wel laten checken of numeric is of leeg... maar ik zou graag met een standard module willen werken..

maar ik krijg het niet aan de praat! (ik doe iets fout maar geen idee wat)

voorbeeld:

Private Sub txtGetal1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtGetal1.Leave

tekstvak = txtGetal1.Text
getalchecken()
End Sub
Private Sub getalchecken()
If tekstvak = "" Then
txtErrorBox.Text = "Geef een getal in!"
tekstvak = ""
'foutvlag getalok op 1 zetten
getalok = 1
ElseIf Not IsNumeric(tekstvak) Then
txtErrorBox.Text = ("u heeft geen numeriek getal ingegeven.!")
tekstvak.Text = ""
'foutvlag getalok op 1 zetten
getalok = 1
Else
'foutvlag getalokop 0 zetten als er geen fout is
getalok= 0
End If
End Sub

 

[Jabber]

Het volgende zou je kunnen doen:

Private Sub NumericTextBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtGetal1.Leave, txtGetal2.Leave

Dim tb as TextBox = CType(sender, TextBox)
Dim tekstvak as string = tb.Text
getalOk = 1

If String.IsNullOrEmpty(tekstvak) Then txtErrorBox.Text = "Geef een getal in"
ElseIf Not IsNumeric(tekstvak) Then txtErrorBox.Text = "Geef numerieke waarde"
Else getalOk = 0
EndIf
End Sub

Ik weet niet of het werkt, ik heb dit even uit mijn hoofd gedaan.
Je kunt nu alle textboxen die gevalideerd moeten worden naar deze functie laten verwijzen.
Handles textBox1.Leave, textBox2.Leave, textBox3.Leave, enz....

 

[m0nk3rs]

Zeer hartelijk bedankt!

het was 99.9% juist! ;-)

een beetje met spaties gespeeld en dat werkt idd!:thumb: