7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
hc_z 2003-08-26
- 打赏
- 举报
Private Sub Text1_keypress(keyascii As Integer)
if not Isnumeric(Text1.text) then
msgbox ""
Text1.text=""
end if
End Sub
if not Isnumeric(Text1.text) then
msgbox ""
Text1.text=""
end if
End Sub
kmzs 2003-08-26
- 打赏
- 举报
agree all
xiaoxing01 2003-08-26
- 打赏
- 举报
Private Sub Text1_keypress(keyascii As Integer)
If keyascii < 48 Or keyascii > 57 Then
keyascii = 0
End If
End Sub
If keyascii < 48 Or keyascii > 57 Then
keyascii = 0
End If
End Sub
Alicky 2003-08-25
- 打赏
- 举报
If KeyAscii <> 13 And KeyAscii <> 8 Then
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
End If
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
End If
billyqiao 2003-08-25
- 打赏
- 举报
if (keyascii<asc(0) or keyascii>asc(9)) and keyascii<>8 and kyeascii<>13 then
keyascii=0
endif
keyascii=0
endif
JonyChen2003 2003-08-25
- 打赏
- 举报
谢谢上面的朋友
viena 2003-08-25
- 打赏
- 举报
text1写成txt1了，文本框名
viena 2003-08-25
- 打赏
- 举报
Private Sub Text1_Validate(Cancel As Boolean)
if not Isnumeric(txt1.text) then Cancel=true
End Sub
if not Isnumeric(txt1.text) then Cancel=true
End Sub
liul17 2003-08-25
- 打赏
- 举报
在keypress中控制
if keyascii>=asc('0') and keyascii<=asc('9') or keyascii=asc('.') or keyascii=vbkeyback then
else
keyascii=0
endif
if keyascii>=asc('0') and keyascii<=asc('9') or keyascii=asc('.') or keyascii=vbkeyback then
else
keyascii=0
endif
liul17 2003-08-25
- 打赏
- 举报
在keypress中控制
if keyascii>=asc('0') and keyascii<=asc('9') or keyascii=asc('.') or keyascii=vbkeyback then
else
keyascii=0
endif
if keyascii>=asc('0') and keyascii<=asc('9') or keyascii=asc('.') or keyascii=vbkeyback then
else
keyascii=0
endif
