有没有什么办法可以限制文本框只能输入数字？

gpra8764

有没有什么办法可以限制文本框只能输入数字？

123321

在KeyDown里判断ASCII码，是数字才允许输入。就行了！

yinxiaodan

Private Sub text1_KeyUp(KeyCode As Integer, Shift As Integer)
   If (KeyCode > 57) Or (KeyCode > 33 And KeyCode < 48) Then
         msgbox "这个文本框只允许输入数字！"
   endif

end sub

sandy_zc_1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii > 47 And KeyAscii < 57) Or KeyAscii = 8 Then
   ' 0~9的处理
ElseIf KeyAscii = 45 Then
   ' 负号的处理
ElseIf KeyAscii = 46 Then
   ' 小数点的处理
Else
  Beep
  KeyAscii = 0
  z = MsgBox("只能输入数字表达式！", , "注意")
End If
End Sub

陈?

用isnumeric判断可以吗

liiir1985

也可以的～
如果检测到输入的不是数字，则去掉最后一个字符

Cipher

同楼上，但我是用一个变量保存text，isnumeric判别在change事件不在keydown，去掉时直接读变量而不是去掉最后字符，以免有人用ctrl-v直接贴一段进来。