Question

vb6.0里怎样让一个textbox中只能输入数字，而不能输入字母，如果输入字母，会有窗口跳出提示错误？

做一道vb程序的题目，vb6.0里要怎样让一个textbox中只能输入数字，而不能输入字母，如果输入字母，会有窗口跳出提示错误？谢谢！
那个textbox的取值是受一个命令按钮控制的，当要输出结果时，点击命令按钮，程序会识别textbox里的数据是否正常，如果是字母的话，则会跳出“输入错误”的窗口！

Answer 1

两种方法可处理：
1、textbox获得焦点时，锁定字母键，只开放数字键（或小键盘）。
2、命令按钮中加入一段测试控制程序，点击命令按钮后，先测试textbox中是否为你要求的数字类型，如果有字母的话，则跳出“输入错误”对话框，textbox中是你要求的数字类型才能放行。

追问

能有具体一点的代码吗？谢谢！

追答

第二种方法可用以下代码，根据你的情况修改一下就行。

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 8, Asc("0") To Asc("9")
Case Asc(".")
If InStr(Text1.Text, ".") 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
MsgBox "请输入数值", , "提示信息"
End Select
End Sub

追问

这个代码很好用！谢谢！我本想是在那个命令按钮那里做点文章，产生的效果是“如果输入了字母的话，点击了命令按钮后就会提示输入错误”。不过你这样写可以就是了，只是把识别的任务交给了textbox这个控件本身，打入字母的时候，直接就提示出错了！反正vb程序有着千千万万种写法，目的达到了就OK了！所以非常感谢！