怎么限制text框只能输入两位数字！！！

evilzydar 2004-07-27 03:07:10

...全文

302 22 打赏收藏转发到动态举报

写回复

用AI写文章

22 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhoujiamurong 2004-09-14

打赏
举报

Private Sub Form_Load()
Text1.MaxLength = 2
End Sub

zhoujiamurong 2004-09-14

打赏
举报

Private Sub Text2_KeyPress(KeyAscii As Integer)
'MsgBox KeyAscii
If KeyAscii <> 8 Then '可以用退格键改数字
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
KeyAscii = 0
End If
End If
End Sub
以上限制了就不能改了，我的还可以改的

starsoulxp 2004-07-28

打赏
举报

第一：限制只能输入数字
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub

第二：限制输入长度为2，MaxLength属性
Private Sub Form_Load()
Text1.MaxLength = 2
End Sub

lwm1977 2004-07-28

打赏
举报

都知道呀

vico110 2004-07-28

打赏
举报

标准答案来了:
先把text文本框的maxlength属性设置2,再"
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
Text1.Locked = True
Else
Text1.Locked = False
End If
End Sub

ryuukougun 2004-07-28

打赏
举报

to qiushuiping()
如何重置光标？

ryuukougun 2004-07-28

打赏
举报

tong yi qiushuiping()

ryuukougun 2004-07-28

打赏
举报

to sunny8226(袋鼠)
ni zhe yang hao xiang bu xing de ,shu ru liang wei hou ying gai jiu bu neng dong la

qiushuiping 2004-07-28

打赏
举报

我来得迟了些，都被说了……哈哈
不过注意锁定后要重置光标哟……

Mars.CN 2004-07-28

打赏
举报

一个Text，后面跟一个Label,写“请输入两位数字”

csdnchenxu 2004-07-27

打赏
举报

楼主怎么不给分啊，他们说得好清楚了

我就不说了

little_liu 2004-07-27

打赏
举报

Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode < 48 Or KeyCode > 57 Then
MsgBox "Can't enter letter but number"
Exit Sub
End If
End Sub

jonahclinton 2004-07-27

打赏
举报

好象都差不多呀~~~

SafeF8 2004-07-27

打赏
举报

类似的问题前几天才讨论过.没有其它的限制了吗?
Private Sub Form_Load()
Text1.MaxLength = 2
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub

HtSoft 2004-07-27

打赏
举报

//ryuginka(ryuginka)
//第一：限制只能输入数字
在文本的KEYKRESS事件中这样写
if keyascii>asc("9") or keyasxii<asc("0") then
keyasxii=0
endif

//第二：限制输入长度为2，将MaxLength属性设置为2位长度

都被楼上的兄弟们说完了

那我只好顶了