跪求一段VB代码,textbox只能输入数字,小数点,负号

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim n As Integer, a As String
If Not IsNumeric(Chr(KeyAscii)) And Chr(KeyAscii) <> "." And Chr(KeyAscii) <> "-" Then
KeyAscii = 0
End If
End Sub
这样删除只能用DELETE
如果想用其他可以自己加

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim n As Integer, a As String
If Not IsNumeric(Chr(KeyAscii)) And Chr(KeyAscii) <> "." And Chr(KeyAscii) <> "-" and keyascii<>8 Then
KeyAscii = 0
End If
End Sub

这个好做：
只要在textbox的键盘敲击事件里写这样的代码：
if keyascii < 48 and keyascii >57 and keyascii <> 46 and keyascii <> Chr(KeyAscii) <> "-" Then
keyascii = 0
end if
就OK了！
还有不懂的加我QQ：357731659