VB.NET accept only characters
Public Function ValidChars(ByRef myEmail As String) As Boolean
Dim isValidE As Boolean = False
If myEmail <> String.Empty Then
If (System.Text.RegularExpressions.Regex.IsMatch(myEmail, "[A-Za-z]", RegexOptions.IgnoreCase)) Then
isValidE = True
End If
End If
Return isValidE
End Function
Private Sub txtCILastName_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtCILastName.Validating
If ValidChars(txtCILastName.Text) Then
Else
MessageBox.Show("Invalid Character.", "Character Validator", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtCILastName.Focus()
End If
End Sub
javascript:void(0)
