送分100分：怎么控制在文件框中输入的字符格式

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 32) Then
        If (KeyAscii = 13) Then
            If (Len(Text1) < 2 Or Len(Text1) > 4) Then
                MsgBox "输入数据错误！", 48
            Else
                Select Case i
                    Case 2: Text1 = "0" & Left(Text1, 1) & ":0" & Right(Text1, 1)
                    Case 3: Text1 = "0" & Left(Text1, 1) & ":" & Right(Text1, 2)
                    Case 4: Text1 = Left(Text1, 2) & ":" & Right(Text1, 2)
                End Select
            End If
        Else
            Exit Sub
        End If
    End If
    If (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0
End Sub

------解决方案--------------------

VB code

Dim IsSetText As Boolean
Private Sub Text1_Change()
   If IsSetText = True Then Exit Sub
   If Len(Text1.Text) > 3 Then
      Text1_LostFocus
   End If
End Sub

Private Sub Text1_GotFocus()
   Text1.SelStart = 0
   Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Text1_LostFocus()
   IsSetText = True
   Text1.Text = Format(Text1.Text, "00:00")
   IsSetText = False
   Text1.SelStart = 0
   Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      Text1_LostFocus
   End If
End Sub

------解决方案--------------------
简单的字符串处理,用right和left函数分解字符串为2部分,再用format格式为需要的格式.相比来说1楼的更简洁

------解决方案--------------------

探讨

现有一个问题是：
在一个文本框中输入时间，包含时和分两部分，输入的形式可能会有003（即0:03）、830（即8：30）、1212（即12:12）

现在的要求是，用户输入（1）003后，文本框自动显示为00：03
（2）830后，文本框内容自动显示为08：30
（3）1212后，文本框内容自动显示为……

------解决方案--------------------

探讨

引用:
现有一个问题是：
在一个文本框中输入时间，包含时和分两部分，输入的形式可能会有003（即0:03）、830（即8：30）、1212（即12:12）

现在的要求是，用户输入（1）003后，文本框自动显示为00：03
（2）830后，文本框内容自动显示为08：30
（3）1212后，文本框内容自动显示为……

如果够三位数就转换，那四位数的怎么办……

------解决方案--------------------
= format (txt, "#0:00")
------解决方案--------------------
用不着两个 Format 格式。

Format("830", "00:00") 的结果就是 "08:30"。