Text文本框

Question

有没有什么属性使得Text文本框中只能输入数字不能输入其它的，该怎么做，谢谢！

Answer 1

在keypress中控制
if keyascii>=asc('0') and keyascii<=asc('9') or keyascii=asc('.') or keyascii=vbkeyback then
else
   keyascii=0
endif

Answer 2

在keypress中控制
if keyascii>=asc('0') and keyascii<=asc('9') or keyascii=asc('.') or keyascii=vbkeyback then
else
   keyascii=0
endif

Answer 3

Private Sub Text1_Validate(Cancel As Boolean)
   if not Isnumeric(txt1.text) then Cancel=true
End Sub

Answer 4

if (keyascii<asc(0) or keyascii>asc(9)) and keyascii<>8 and kyeascii<>13 then
   keyascii=0
endif

Answer 5

If KeyAscii <> 13 And KeyAscii <> 8 Then
        If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
    End If

Answer 6

Private Sub Text1_keypress(keyascii As Integer)
  If keyascii < 48 Or keyascii > 57 Then
  keyascii = 0
  
  End If
  
End Sub

Answer 7

Private Sub Text1_keypress(keyascii As Integer)
  if not Isnumeric(Text1.text) then 
      msgbox ""
      Text1.text=""
  end if
  
End Sub