五笔打字通主页
在实际的编程中,有些我们需要限制在文本框控件里或其它的输入输入框中,只能输入数字,用下面的简单的代码就很好解决。
在窗体画一个文本框,输入以下代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
' Asc函数返回代表字符0和9的字符代码
' 判断输入字符代码,如果输入的不是数字则屏蔽
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
来源:济亨网
本文链接:http://wb86.com/post/38.html