请问 怎么限制 在文本框中 只能输入数字？而不能输入字母之类的

[wwwzzzyyy]

我知道是在 text的KeyPress事件中 设置代码
可是到底 如何写？谁能帮我写一下，谢谢你了！！！！！！！！！！！！！！

[xshhui]

If KeyAscii > Asc(9) Or KeyAscii < Asc(0) Then
KeyAscii = 0
End If

[hnhb]

在delphi中我是这样做的,你可修改

if not key in ['0'..'9','.','#8] then key:=#0;

[wwwzzzyyy]

谢谢你们~那请问风云 怎么再加个删除键？光能输不能删啊

[jilate]

Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字"
If Text1.Text <> "" Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End If
End If
End Sub

[kimurakenshin]

If KeyAscii > Asc(9) Or KeyAscii < Asc(0) Then
Msgbox "这个文本框只能输入数字!!!",vbinformation,"提示"
Text1.setfocus
End If

[wwwzzzyyy]

大哥们 你们说的方法都对 可是都没发用 删除键啊 光能输不能删啊！？？怎么加删除键？

[wu_yongcai]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[0-9]" Or KeyAscii = vbKeyBack Then
Else
KeyAscii = 0
End If
End Sub

[xshhui]

If KeyAscii > Asc(9) Or KeyAscii < Asc(0) or keyascii<>asc(,) or keyascii<>asc(.) or keyascii<>8 Then
KeyAscii = 0
End If

[wwwzzzyyy]

谢谢两位！！大哥谢谢了！请问怎么给你们分啊？我是新手 给分都不会给 我怎么给你们分？

[xshhui]

主　　题 上面有管理 进去 就知道了

[wwwzzzyyy]

呵呵 好了

[Europa]

系统函数对ASCII表和映射表都分了区间，可通过枚举段列来在系统级得到处理，效果更好并且同时能任意定义这个区间。