Private Sub txtto_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtto.KeyPress
Dim ValidInputChar = "#$%^&*,;()[]+{}:'`<>?|~!\/"
If ValidInputChar.Contains(e.KeyChar) Then
e.KeyChar = Nothing
End If
End Sub
Dim ValidInputChar = "#$%^&*,;()[]+{}:'`<>?|~!\/"
If ValidInputChar.Contains(e.KeyChar) Then
e.KeyChar = Nothing
End If
End Sub
No comments:
Post a Comment