在VB里,怎么使文本框只能输入数字而不能输入汉字和字母,写出代码和注释.顺便找一个VB师傅

发布网友发布时间：2022-11-06 03:07

共3个回答

热心网友时间：2023-10-24 14:58

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then '数字0到9的ascii值为48到57
Else
KeyAscii = 0 '表示输入如果不数字则为NULL 即空
MsgBox "请输入数字:", vbExclamation 'vbexclamation表示警告图标，可有可无
End If
End Sub
我的方法和楼上的方法不一样希望同样对你有所帮助...不懂的地方可以互相探讨...

热心网友时间：2023-10-24 14:58

Private Sub Text1_KeyPress(Ke As Integer) If Ke < 48 Or Ke > 57 Then '对应的ASCII吗判断非数字 Ke = 0 '改变键入文本框的显示为空字符，即不显示 End If End Sub

热心网友时间：2023-10-24 14:59

在Text1_Change()里设置检查
if IsNumeric(Text1)=False then Text1=""