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
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