点击DateTimePicker

Question

VB2012：也许我没有得到这个控件如何工作，但我想做的是仅在点击日期时在日历上捕获日期。然后，我将该日期格式化并将其放入另一个控件中。

尝试了CloseUp事件，但是当用户只需单击表单并将焦点从DateTimePicker上移开时就会触发。

尝试了ValueChanged事件，但是当用户输入DateTimePicker或用户浏览一个月或一年或者DateTimePicker关闭而不点击日期时，会触发该事件。用户也可以选择当前日期，因为值没有改变，所以不会触发。

是否有一个事件我可以用来仅在点击日历中的特定日期时捕获？

Private Sub dtpDate1_CloseUp(sender As Object, e As EventArgs) Handles dtpDate1.CloseUp
    lstDates1.Items.Add(dtpDate1.Value.ToString("\x ddMMM").ToUpper)
End Sub

Private Sub dtpDate1_ValueChanged(sender As Object, e As EventArgs) Handles dtpDate1.ValueChanged
    lstDates1.Items.Add(dtpDate1.Value.ToString("\v ddMMM").ToUpper)
End Sub

Private Sub dtpDate1_Enter(sender As Object, e As EventArgs) Handles dtpDate1.Enter
    Try
        If IsDate(txtDate1.Text) Then
            dtpDate1.Value = CDate(txtDate1.Text)
        Else
            dtpDate1.Value = DateTime.Now
        End If
    Catch ex As Exception
        MsgBox (ex.ToString)
    End Try
End Sub