以下是引用leon2在2005-3-18 21:35:14的发言:
添加一个 TextBox 控件,命名为 Text1。
代码:
Private Sub Text1_KeyPress(ByVal KeyAscii As Integer, ByVal Shift As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
Beep '播放警告声音
End If
End Sub
另外一种方法
Private Sub Text1_KeyPress(ByVal KeyAscii As Integer, ByVal Shift As Integer)
On Error Resume next
If VarType(Cint(text1.text))<>vbInteger then
Beep '播放警告声音
End If
End Sub
函数解释:
VarType()函数能够测定数据类型,vbInteger是VB已经定义好的常量有vbInteger、vbString等。
加On Error是因为Cint()函数,不加如果输入非整型就会报错。