只允许text文本框输入数字的代码是什么啊？

有时候制作一些东西只允许输入数字就可以了，那样设置的代码是多少呀？

请赐教了。。。

[此贴子已经被作者于2007-7-18 23:21:24编辑过]

我有思路
就是判断text 里输入的是否为纯数字
true 就OK
False就NO

数字好象是numeral
以前听老师说过的

论坛里早就有过很多这个帖了，发帖前自己先搜索一下旧帖。

Isnumberic(s as string) as bool

直接在keypress事件裡寫
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 '0-9,這裏還可以限制只能輸入哪幾個數字
Exit Sub
Case 8 '退格鍵
Exit Sub
Case 46 'Delete鍵
Exit Sub
Case Else
KeyAscii = 0
End Select
End Sub

[此贴子已经被作者于2007-7-19 10:41:49编辑过]

嗯.没错.我现在知道了.

我这里也写出了一段代码
但是不允许删除啊？ 就是一旦输入就不允许修改
帮忙修改下。。。


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii<Asc("0") Or KeyAscii>Asc("9") Then
KeyAscii=0
End If
End Sub

呵呵，你指退格键不能用了吧，你的代码只允许输入0-9之间的数字，当然退格键和其他键不行了
6楼已给出代码了，不过输入小数时有点问题，改了改
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 '0-9,這裏還可以限制只能輸入哪幾個數字
Exit Sub
Case 8 '退格鍵
Exit Sub
Case 46 '小数点
If InStr(1, Text1.Text, ".") > 0 Then KeyAscii = 0 '只允许输入一个小数点
Exit Sub
Case Else
KeyAscii = 0
End Select

End Sub

[此贴子已经被作者于2007-7-19 21:20:57编辑过]

Exit Sub没必要吧?End Select后面没有代码...

一直用的代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, vbKeyBack 'Asc("0") To Asc("9") '允许0~9数字和退格键
Case 46 'Asc(".") '允许一个小数点
If InStr(1, Text1.Text, ".") > 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
End Select
End Sub