高分求救

[shengxixi]

怎样使一个文本框只能输入两位数字，thanks

[haipingma]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Or KeyAscii = 46 Then Exit Sub
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

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

[danielinbiti]

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 58 Then KeyAscii = 0
End Sub

[stonegoldaustin]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <= 48 Or KeyAscii >= 57 Or Len(Text1.Text) >= 2 Then
KeyAscii = 0
End If
End Sub