Public Class txtForm click here—>>>
Before using the code u should change the function, simply click this ” step 1 “ in order to done it well..!!!
The color Blue states that u have change the function from CLICK to KEYPRESS
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtalpha.KeyPress
If IsNumeric(e.KeyChar) Then
e.KeyChar = “”
End If
End Sub
Private Sub txtnumber_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnumber.KeyPress
If Asc(e.KeyChar) <= 32 Or _
(Asc(e.KeyChar) >= Asc(”0″) And Asc(e.KeyChar) <= Asc(”9″)) Then
Else
e.KeyChar = “”
End If
End Sub
All comments are moderated. Your comments will not appear here unless approved by the blog owner. Thank you.