UC知道用VB编程,要使一文本框中只可输入数字,而且当输入的数字错误时还可以通过Backspace键来修改
来源：百度知道 编辑：UC知道 时间：2024/05/17 18:35:46
Private Sub txtcheck_Change()
If KeyAscii < 65 Or KeyAscii > 90 Then
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then KeyAscii = 0
Print "有误"
Else
Print "正确"
End If
End If
我这样编写,可是我通过Backspace键来修改时,窗体上还是出现"有误".我希望通过Backspace键来修改时,不会出现文本.我是初学者,还希望各位高手耐心赐教!谢谢^
不好意思啊，我一开始问题就不够明确，我希望是可以控制大小写的，输入大写字母和数字，即在窗体输出“正确”。否则就输出“有误”的。“KeyAscii < 65 Or KeyAscii > 90 Then
”就是要控制大小写的！
我鲁莽了，还请大侠们……包含
If KeyAscii < 65 Or KeyAscii > 90 Then
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then KeyAscii = 0
Print "有误"
Else
Print "正确"
End If
End If
我这样编写,可是我通过Backspace键来修改时,窗体上还是出现"有误".我希望通过Backspace键来修改时,不会出现文本.我是初学者,还希望各位高手耐心赐教!谢谢^
不好意思啊，我一开始问题就不够明确，我希望是可以控制大小写的，输入大写字母和数字，即在窗体输出“正确”。否则就输出“有误”的。“KeyAscii < 65 Or KeyAscii > 90 Then
”就是要控制大小写的！
我鲁莽了，还请大侠们……包含
用isnumeric(text1.text)的值来判断是否为数字,值为true则输入的是数字,否则就不是数字.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then KeyAscii = 0
End If
End Sub
你得这样改：
Private Sub txtcheck_Change()
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then
KeyAscii = 0
Print "有误"
end if
Else
Print "正确"
End If
End If
onKeyUp="value=value.replace(/[^\d+.d]/g,'')
"onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/
[^\d+.d]/g,''))">