dtpicker自定义格式

Question

请问能否在 dtpicker 控件中,只能选如:所有星期一的日期,??

Answer 1

不能，
试试
Private Sub DTPicker1_CloseUp()
    DTPicker1.Value = DateAdd("d", -Weekday(DTPicker1.Value, vbMonday) + 1, DTPicker1.Value)
End Sub

Answer 2

Dim mDate As Date
Private Sub Form_Load()
    mDate = DTPicker1.Value
End Sub
Private Sub DTPicker1_CloseUp()
    If Weekday(DTPicker1.Value) <> vbMonday Then
        DTPicker1.Value = mDate
    End If
End Sub

Answer 3

CloseUp 不能禁止键盘输入的变更，标准做法:
Private Sub DTPicker1_Validate(Cancel As Boolean)
    If DTPicker1.DayOfWeek <> vbMonday Then
        MsgBox "只能选星期一", vbExclamation
        Cancel = True
    End If
End Sub

Answer 4

Private Sub DTPicker1_Validate(Cancel As Boolean)
    If DTPicker1.DayOfWeek <> vbMonday Then
        MsgBox "只能选星期一", vbExclamation
        Cancel = True
    End If
End Sub