RadCalendar 代码有什么问题？

Question

我正在尝试将文本框中提到的逗号分隔日期突出显示到 radcalendar

Dim calendar As New RadCalendar()
calendar.SelectionMode = SelectionMode.Extended
calendar.SelectedDates.Add(New DateTime(2008, 7, 7))
calendar.SelectedDates.Add(New DateTime(2008, 7, 8))
calendar.SelectedDates.Add(New DateTime(2008, 10, 10))

在 RadCalendar 上突出显示文本框逗号分隔日期为 03-sep-2015、04-sep-2015 的代码

Protected Sub RadCalendar1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadCalendar1.PreRender
    Dim yourCalendar As RadCalendar
    If Page.IsPostBack Then
        If [String].IsNullOrWhiteSpace(TextBox1.Text) = False Then
            'textbox in which dates as stored as comma separated
            Dim datesToShow As String() = TextBox1.Text.Split(","c)
            For Each [date] As String In datesToShow
                yourCalendar.SelectedDates.Add(New DateTime([date]))
            Next
        End If
    End If
End Sub

这两个代码都显示错误，两个代码都带有蓝色下划线：

“日期”类型的值无法转换为“Telerik.Web.UI.RadDate”。

在 yourCalendar.SelectedDates.Add(New DateTime([date])) 上

线

Answer 1

RadCalendar.SelectedDates.Add 方法需要“Telerik.Web.UI.RadDate”类型的属性，而您传入​​的是 DateTime 类型。

您应该更新 RadDate 而不是 DateTime。

看起来 RadDate 有一个 Date 属性，它是一个 DateTime。

所以不是

calendar.SelectedDates.Add(New DateTime(2008,7,7));

做

Dim d = New RadDate()
d.Date = New DateTime(2008, 7, 7)
calendar.SelectedDates.Add(d)