VB6 简单的问题 text控件如何限制输入。。。求源码

首先要限制只能输入数字。 源码： Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57 Text4.SetFocus Dim strTmp As String strTmp = Text1.Text & Chr(KeyAscii) Exit Sub Case 8 Exit Sub Case 46 Exit Sub Case Else KeyAscii = 0 End Select End Sub 然后就是说要输入时间。Text1中的范围是1~24。你要是不输入冒号“：”的话，就不能输入分钟数。Text1中要是输入7 就是7：00 要想输入分钟数。那就必须先输入 小时+冒号，比如7： 之后才能输入分钟数7:15 否则无法输入分钟数 只能输入小时数。求这段功能的源码。。、。。。。求高人。。在线等。。QQ也好 。。。931419783

因为是手机代码输入不方便，就给你提供个思路吧。照你所描述的，这段代码的关键之处在于冒号，所以你可以在text_change里先写入一段判断text里是否有冒号的代码，若有就用right提取出冒号后面的数字，判断它是否大于59。若没有就判断输入的数字是否大于24。（在你前面的代码里已经限制为只可以输入数字，应该再加入一个冒号。）

我劝你还是直接使用datetimepicker控件吧，不是做不到，是别人已经做好了，你没必要重复劳动。