如何控制文本框时间数据的输入？

Question

我现在建立两个文本框，分别用来写填写时间的小时和分钟的，再下的问题是：如何在第一个文本框中输入数字时，最多只能输入两位数，关键是不要超过24，第二个文本框，不要超过59。请各位高手给点指教，最好把代码写出来，在此表示感谢！在线等待……

Answer 1

设置文本框的MaxLength属性来限制输入的长度

Answer 2

Text1.MaxLength=2
Text2.MaxLength=59

Answer 3

方法很多简单一点，不要使用文本框，使用DTPicker就可以了。选择DTPicker的Format为“3-dtpCustom”然后在：CustomFormat中设置为“HH:mm”就只能输入小时和分钟时间，自己都不用写代码的！楼主试试，对了别忘记给分哦！

Answer 4

看错了，应该是这样：
Private Sub Form_Load()
    Text1.MaxLength=2
    Text2.MaxLength=2
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Text1.Text > 24 Then KeyAscii = 0
End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)
    If Text2.Text > 59 Then KeyAscii = 0
End Sub

Answer 5

Private Sub Form_Load()
    Text1.MaxLength=2
    Text2.MaxLength=2
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If val(Text1.Text) > 24 or val(Text1.Text) < 0 Then KeyAscii = 0
End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)
    If val(Text2.Text) >59 or val(Text2.Text) < 0 Then KeyAscii = 0End Sub

Answer 6

不是啊，我的意思是输入的数字不能超过24，因为小时不能多于24呀，好像应该是在，是不是要用到asc码值，比如说，当输入4的时候后面就不 能在键入数字了，当输入2的时候后边顶多只能键入4。

Answer 7

最简单的办法是用DTPicker控件，它可以设定你想的格式。