Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'只接受 a ~ z 与退格键
Select Case e.KeyChar
Case "a" To "z"
Case Chr(8)
Case Else
e.Handled = True
End Select
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'只接受数字与退格键
Select Case e.KeyChar
Case "0" To "9"
Case Chr(8)
Case Else
e.Handled = True
End Select
End Sub