UC知道text box处理文字的方法
来源：百度知道 编辑：UC知道 时间：2024/06/22 14:37:26
Select Case KeyAscii
Case KeyAscii = 47 To 57
Case Else
MsgBox "非法字符！！"
End Select
我要让在TEXT1里只能输入数字，输入其他的就弹出MSGBOX，我想在弹出后把TXET1里的字符清除，该怎样设计？？？
是VB6.0
Case KeyAscii = 47 To 57
Case Else
MsgBox "非法字符！！"
End Select
我要让在TEXT1里只能输入数字，输入其他的就弹出MSGBOX，我想在弹出后把TXET1里的字符清除，该怎样设计？？？
是VB6.0
你怎么不说明你用的是什么语言啊？
从你的代码上看，好想是 VB 吧。
在 VB 中 TextBox 有一个事件是 TextBox_KeyPress (名称可能有误，好久不用 VB 了，有点记不清了)，该事件会传递一个KeyAscii 参数，通过检查这个参数判断，如果不符合你的规则，则 KeyAscii = 0 就行了。
清空TXET1，TXET1？
Select Case KeyAscii
Case KeyAscii = 47 To 57
Case Else
MsgBox "非法字符！！"
KeyAscii = 0
TXET1.Text = ""
End Select
保留之前的输入
Select Case KeyAscii
Case KeyAscii = 47 To 57
Case Else
MsgBox "非法字符！！"
KeyAscii = 0
End Select