MonthCalendar 无法禁用日期

Posted 2023-03-30

【中文标题】MonthCalendar 无法禁用日期

【英文标题】：MonthCalendar can't disable dates

【发布时间】：2015-01-07 15:31:37

【问题描述】：

我最近需要为一个项目使用 MonthCalendar，但看起来这个控件真的很有限，我不能用它做我想做的事。所以如果你能给我一些建议，那将是非常有帮助的。

所以，我要做的是选择多个日期，然后当我单击一个按钮时，这些日期会保存在一个数组中并在日历上禁用（或者至少，它们的单元格背景变为红色）。

我已经做的是允许多选（MaxSelectionCount = 31） 我写了一些行来获取选定的日期：

Dim nbrJours As Integer = MonthCalendar1.SelectionRange.End.Day - MonthCalendar1.SelectionRange.Start.Day
For jour As Integer = 0 To nbrJours
        MsgBox(jour + MonthCalendar1.SelectionRange.Start.Day & "/" & MonthCalendar1.SelectionRange.Start.Month & "/" & MonthCalendar1.SelectionRange.Start.Year)
    Next

好吧，它不是很干净，但它确实有效，我只需将所有字符串转换为我猜的日期后将它们保存到一个数组中。

所以，我们假设我所有的日期都在一个数组中，如何在 MonthCalendar 中禁用数组中包含的日期？

感谢阅读，抱歉我的英语不好，这不是我的母语。

【问题讨论】：

How can I change the color of certain dates in the MonthCalendar control?的可能重复

不是真的，我只是想知道如何禁用日期，只有在没有其他解决方案的情况下，我才想更改它们的颜色

【参考方案1】：

本控件仅支持将日期设置为粗体或不加粗。您需要一个不同的日历控件来以红色突出显示日期。

但是，您可以通过处理 DateChanged 事件来禁用日期：

Private Sub MonthCalendar1_DateChanged(sender As System.Object, e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
    Dim day As DateTime
    Dim disabledDay As DateTime
    Dim defaultDay As DateTime
    disabledDay = New DateTime(2015, 1, 8) 'you might actually have a list of days
    defaultDay = New DateTime(2015, 1, 1)
    day = e.Start
    While (day <= e.End)
        If day = disabledDay Then 'if you have a list, you need a linq statement or a double loop
            MsgBox("Can't select that day")
            MonthCalendar1.AddBoldedDate(disabledDay)
            MonthCalendar1.UpdateBoldedDates()
            MonthCalendar1.SetSelectionRange(defaultDay, defaultDay)
            Exit Sub
        End If
        day = day.AddDays(1)
    End While
End Sub

【讨论】：

谢谢，这行得通，当我完全理解你的代码时，我必须适应它，但这是一个好的开始。

【参考方案2】：

再次感谢丹妮丝，我修改了您为此编写的代码，以便它可以与数组一起使用

Private Sub MonthCalendar1_DateChanged(sender As System.Object, e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
    Dim day As DateTime
    'Dim disabledDay As DateTime
    Dim defaultDay As DateTime
    Dim disabledDay = New DateTime(2015, 1, 8), New DateTime(2015, 1, 9) 'you might actually have a list of days
    defaultDay = New DateTime(2015, 1, 1)
    day = e.Start
    While (day <= e.End)
        For Each DisabledDate As Date In disabledDay
            If day = DisabledDate Then 'if you have a list, you need a linq statement or a double loop
                MsgBox("Can't select that day")
                MonthCalendar1.AddBoldedDate(DisabledDate)
                MonthCalendar1.UpdateBoldedDates()
                MonthCalendar1.SetSelectionRange(defaultDay, defaultDay)
                Exit Sub
            End If
        Next
        day = day.AddDays(1)
    End While
End Sub

我不熟悉“e”的东西，但我会自己记录。