calendar dayrender event...

[RAB]

I want to highlight my calendar control based on the following code:

Public Datelist as new System.Collections.Hashtable()

'DateList is filled with important dates from history

Sub Calendar1_DayRender(sender As Object, e As DayRenderEventArgs)
If Not DateList(e.day.date) is Nothing then

e.cell.style.add("font-weight", "bold")
e.cell.style.add("font-size", "larger")
e.cell.style.add("border", "3 dotted darkred")
e.cell.style.add("background", "#f0f0f0")

Else
e.cell.style.add("font-weight", "lighter")
e.cell.style.add("color", "DimGray")
End If

End Sub

I want the calender control day to be highlighted if the day and month
of the calendar control match an important date in history
irrespective of the year. (ie March 3 would be highlighted on the
calendar control if the DateList contained a date such as March 3,
1776). Anyone know how I could change my code to accomplish this?

Thanks,
RABMissouri2007

 

[Guest]

Howdy,

Easy resolution would be to change the way you key the dates before adding
the hashtable:

Private dateList As New System.Collections.Hashtable()

Protected Sub Page_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Load

dateList.Add(GetHistoricalDateKey( _
New DateTime(1995, 3, 13)), Nothing)
dateList.Add(GetHistoricalDateKey(_
New DateTime(1997, 3, 19)), Nothing)
dateList.Add(GetHistoricalDateKey(_
New DateTime(1997, 4, 14)), Nothing)

End Sub

Private Function GetHistoricalDateKey( _
ByVal [date] As DateTime) As String
Return [date].Month & [date].Day
End Function


Protected Sub Calendar1_DayRender(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) _
Handles Calendar1.DayRender

If dateList.Contains(GetHistoricalDateKey(e.Day.Date)) Then
e.Cell.Style.Add( _
HtmlTextWriterStyle.BackgroundColor, "red")
Else
e.Cell.Style.Add( _
HtmlTextWriterStyle.BackgroundColor, "whitesmoke")
End If

End Sub

Hope this helps