Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub txtGetal_TextChanged(sender As Object, e As EventArgs) Handles txtGetal.TextChanged
Select Case Len(txtGetal.Text)
Case 0, 4 : FillListView1()
End Select
End Sub
Private Sub txtGetal_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtGetal.KeyPress
If Len(txtGetal.Text) < 4 Then
If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
If Asc(e.KeyChar) <> 8 Then e.KeyChar = ""
End If
Else
If Asc(e.KeyChar) <> 8 Then e.KeyChar = ""
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.