How to color code Appointments in telerik Radschedular
I have to show appointments in telerik radschedular with different background colors, depending on their status.
Solution
I have used RadScheduler1_AppointmentDataBound
event to achieve this.
Protected Sub RadScheduler1_AppointmentDataBound(sender As Object, e As SchedulerEventArgs) Handles RadScheduler1.AppointmentDataBound Dim pf As AppointmentInfo = e.Appointment.DataItem e.Appointment.ForeColor = Color.AntiqueWhite If StatusID = 1 Then e.Appointment.BackColor = ColorTranslator.FromHtml("#800000") ElseIf StatusID = 2 Then e.Appointment.BackColor = ColorTranslator.FromHtml("#FF0000") ElseIf StatusID = 3 Then e.Appointment.BackColor = ColorTranslator.FromHtml("#0000FF") ElseIf StatusID = 4 Then e.Appointment.BackColor = ColorTranslator.FromHtml("#008000") ElseIf StatusID = 5 Then e.Appointment.BackColor = ColorTranslator.FromHtml("#800080") ElseIf StatusID = 6 Then e.Appointment.BackColor = ColorTranslator.FromHtml("#666666") ElseIf StatusID = 8 Then e.Appointment.BackColor = ColorTranslator.FromHtml("#333333") Else e.Appointment.BackColor = ColorTranslator.FromHtml("#FF66CC") End If End Sub