с помощью клавиатуры, вкладки по каждой дате, но я не мог видеть фокус, как я могу установить фокус на каждую дату, через которую я вкладываю? Я использовал этот «RadCalendar1.SelectedDate = DateTime.Now», но он только дает мне фокус текущей сегодняшней даты. Спасибо.
RadCalendar1.SelectedDate = DateTime.Now
Protected Sub PopulateCalendar(ByVal UserID As Integer)
Dim AppointmentList As New List(Of AppointmentDTO)
AppointmentList = AppointmentManager.GetList_ByUserIDs(UserID)
Me.AppointmentCount = AppointmentList.Count
For Each appt As AppointmentDTO In AppointmentList
Dim NewDay As New RadCalendarDay(RadCalendar1)
'NewDay.Date = New DateTime(2010, 11, 12)
NewDay.Date = New DateTime(appt.StartTime.Year, appt.StartTime.Month, appt.StartTime.Day)
NewDay.IsSelected = False
NewDay.ItemStyle.CssClass = "rcSelected"
NewDay.ToolTip = "Appointment scheduled today"
RadCalendar1.SpecialDays.Add(NewDay)
Next
RadCalendar1.SelectedDate = DateTime.Now
End Sub
-
<telerik:RadCalendar ID="RadCalendar1" runat="server" TitleFormat="MMMM yyyy" Width="100%"
ShowRowHeaders="false" UseRowHeadersAsSelectors="false" UseColumnHeadersAsSelectors="false" EnableViewSelector="false">
<ClientEvents OnDateClick="Calendar_OnDateClick"></ClientEvents>
<WeekendDayStyle CssClass="rcWeekend"></WeekendDayStyle>
<CalendarTableStyle CssClass="rcMainTable"></CalendarTableStyle>
<OtherMonthDayStyle CssClass="rcOtherMonth"></OtherMonthDayStyle>
<OutOfRangeDayStyle CssClass="rcOutOfRange"></OutOfRangeDayStyle>
<DisabledDayStyle CssClass="rcDisabled"></DisabledDayStyle>
<SelectedDayStyle CssClass="rcSelected"></SelectedDayStyle>
<DayOverStyle CssClass="rcHover"></DayOverStyle>
<FastNavigationStyle CssClass="RadCalendarMonthView RadCalendarMonthView_Office2007"></FastNavigationStyle>
<ViewSelectorStyle CssClass="rcViewSel"></ViewSelectorStyle>
</telerik:RadCalendar>
сосредоточиться на текущей дате сегодня, но мне нужно сосредоточиться на каждой дате, которую я вкладываю через.