只允许text文本框输入数字的代码是什么啊?
有时候制作一些东西只允许输入数字就可以了,那样设置的代码是多少呀?
请赐教了。。。
[此贴子已经被作者于2007-7-18 23:21:24编辑过]
[此贴子已经被作者于2007-7-19 10:41:49编辑过]
呵呵,你指退格键不能用了吧,你的代码只允许输入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