Question

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

VB 6.0
textbox里，只能输入数字，小数点，负号

Answer 1

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
如果想用其他可以自己加

Answer 2

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

Answer 3

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