Question

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

如上

Answer 1

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
我的方法和楼上的方法不一样 希望同样对你有所帮助...不懂的地方可以互相探讨...

Answer 2

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

Answer 3

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