Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If IsNumeric(TextBox1.Text) = False Then
MsgBox("只能是数字!")
TextBox1.Text = ""
End If
End Sub
or:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim num As String
num = "0.123456789"
If num.IndexOf(e.KeyChar) = -1 Then
e.Handled = True
End If
End Sub