第一种方法:
Private Sub Textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'使Textbox只能输入数字
Select Case e.KeyChar
Case "0" To "9"
Case "" '加入退格符
Case Else
e.Handled = True '使输入无效的语句
End Select
End Sub
第二种方法:
Private Sub Txtid_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtid.KeyPress
Dim MidStr As String
MidStr = "0123456789"
If MidStr.IndexOf(e.KeyChar) = -1 Then
e.Handled = True
End If
End Sub