使用isnumber进行判断

[此贴子已经被Joforn于2007-7-4 23:42:08编辑过]

isnumber 有很大的弊端 如果你输入 3-  他判断也是数字,所以不能这样判断!

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!0-9]" Then
If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If
End Sub
判断这个,这个支持tab backspace 还有 enter如果还要加别的键在后面继续加就ok了!

有趣，真有趣，如果这样的话，负数又用不了了
顺便说一下，我第九楼的代码也是错的。。。

现在这个不包括 科学计数法

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Trim(Text1)
Case "+", "-"
If InStr("0123456789", Chr(KeyAscii)) > 0 Then
Else
If Strings.InStr("3,13,8,24,26", KeyAscii) = 0 Then KeyAscii = 0
End If
Case "+0", "-0"
If KeyAscii = 46 Then
Else
If Strings.InStr("3,13,8,24,26", KeyAscii) = 0 Then KeyAscii = 0
End If
Case Else
If InStr(Trim(Text1), Chr(46)) > 0 Then
If InStr("0123456789", Chr(KeyAscii)) > 0 Then
Else
If Strings.InStr("3,13,8,24,26", KeyAscii) = 0 Then KeyAscii = 0
End If
Else
If InStr("0123456789.", Chr(KeyAscii)) > 0 Then
Else
If Strings.InStr("3,13,8,24,26", KeyAscii) = 0 Then KeyAscii = 0
End If
End If
End Select
End Sub
其中 3是复制 13是回车 8是backspace24是剪切 26是撤消

[此贴子已经被作者于2007-7-5 10:38:44编辑过]

一个也看不懂

建议在Change事件中使用Val函数。

对哦，试一下，看看怎么样先。。。

val函数把字母 汉字等特殊字符变成0了!估计也不是最好的解决办法!第三方有专门的控件可以实现