Introduction
This article explains simple ways to validate user input in a text box.
Here is the code; let's say we have two textboxes named txt1 and txt2 and two buttons btn1 and btn2. Add the code given below:
Private Sub btn1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn1.Click
If (txt1.Text.Trim = "") Then
MsgBox("Blank not Allowed", MsgBoxStyle.Information, "Verify")
Else
MsgBox(txt1.Text, MsgBoxStyle.Information, "Verify")
End If
txt1.Clear()
txt1.Focus()
End Sub
Private Sub txt1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles txt1.KeyPress
If (Char.IsControl(e.KeyChar) = False) Then
If (Char.IsLetter(e.KeyChar)) Or (Char.IsWhiteSpace(e.KeyChar)) Then
Else
e.Handled = True
MsgBox("Sorry Only Character & Spaces Allowed!!", _
MsgBoxStyle.Information, "Verify")
txt1.Focus()
End If
End If
End Sub
Private Sub txt2_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles txt2.KeyPress
If (Char.IsControl(e.KeyChar) = False) Then
If (Char.IsDigit(e.KeyChar)) Then
Else
e.Handled = True
MsgBox("Sorry Only Digits Allowed!!", _
MsgBoxStyle.Information, "Verify")
txt2.Focus()
End If
End If
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn2.Click
If (txt2.Text.Trim = "") Then
MsgBox("Blank not Allowedt", MsgBoxStyle.Information, "Verify")
Else
MsgBox(txt2.Text, MsgBoxStyle.Information, "Verify")
End If
txt2.Clear()
txt2.Focus()
End Sub
This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.
A list of licenses authors might use can be found here