请问：要用户在程序中输入时间，用什么控件好？

Question

如题```

Answer 1

用DTPiker控件，可以输入日期或时间
"工程"/"部件"/Microsoft Windows Common Controls-2 5.0/6.0

Answer 2

需要输入时间的话，你得改一下DTPicker 的属性，右键点DTPicker,在弹出的属性框里，把格式改为2（时间）

Answer 3

給你一個自定義文本框的例子
Private Sub txtDateTimeS_GotFocus()
 txtDateTimeS.SelStart = 0
 txtDateTimeS.SelLength = Len(txtDateTimeS.Text)
End SubPrivate Sub txtDateTimeS_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 13 Then
    txtDateTimeE.SetFocus
 End If
End SubPrivate Sub txtDateTimeS_KeyPress(KeyAscii As Integer)
 If (KeyAscii > 57 Or KeyAscii < 48) And KeyAscii <> 46 And KeyAscii <> 8 And KeyAscii <> 13 Then
    txtDateTimeS.Locked = True
 Else
    txtDateTimeS.Locked = False
 End If
 If (Len(txtDateTimeS.Text) = 4 Or Len(txtDateTimeS.Text) = 7) And KeyAscii <> 8 Then
    txtDateTimeS.Text = txtDateTimeS.Text & "/"
    txtDateTimeS.SelStart = Len(txtDateTimeS.Text)
 End If
 If Len(txtDateTimeS.Text) = 10 And KeyAscii <> 8 Then
    txtDateTimeS.Text = txtDateTimeS.Text & " "
    txtDateTimeS.SelStart = Len(txtDateTimeS.Text)
 End If
 If (Len(txtDateTimeS.Text) = 13 Or Len(txtDateTimeS.Text) = 16) And KeyAscii <> 8 Then
    txtDateTimeS.Text = txtDateTimeS.Text & ":"
    txtDateTimeS.SelStart = Len(txtDateTimeS.Text)
 End If
End SubPrivate Sub txtDateTimeS_LostFocus()
 If Not IsDate(txtDateTimeS.Text) And txtDateTimeS.Text <> "" Then
    MsgBox "不是合法日期格式"
    txtDateTimeS.Text = ""
    txtDateTimeS.SetFocus
    Exit Sub
 End If
End Sub
格式為：日期時間型