Text文本框

[JonyChen2003]

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

[liul17]

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

[liul17]

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

[viena]

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

[viena]

text1写成txt1了，文本框名

[JonyChen2003]

谢谢上面的朋友

[billyqiao]

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

[Alicky]

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

[xiaoxing01]

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

End If

End Sub

[kmzs]

agree all

[hc_z]

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

End Sub