Can someone please tell me why I'm getting the following error! I have
absolutely no idea why this error keeps appearing!
Thanks for any help!
Compiler Error Message: BC30390: 'cpncms_v1.evtC alendar.Private Sub
Calendar1_DayRe nder(sender As Object, e As
System.Web.UI.W ebControls.DayR enderEventArgs) ' is not accessible in this
context because it is 'Private'.
Source Error:
Line 56: <td class="pgConten t">
Line 57: <!-- Start Calender -->
Line 58: <asp:calendar id="Calendar1" OnDayRender="Ca lendar1_DayRend er"
OnSelectionChan ged="Calendar1_ SelectionChange d" 'error
Line 59:OnVisibleMon thChanged="Mont hChanged" DayStyle-Height="100"
DayStyle-Width="75" DayStyle-HorizontalAlign ="Left"
Line 60:DayStyle-verticalalign=" Top" DayStyle-Font-Name="Arial"
DayStyle-Font-Size="12" NextPrevFormat= "FullMonth"
...:: CODE
Private Sub Calendar1_DayRe nder(ByVal sender As Object, ByVal e As
DayRenderEventA rgs)
Dim Item As MyDates '//Temporary storage for looping through the
collection
Dim TextColor As String
Dim DayHold As DateTime = "01/01/1900" '//Temporary date to check
for multiple items per day
Dim MultipleItemDay As Boolean = False
'// Set to true if the date is in the collection and needs to be
displayed
Dim DayTextHasChang ed As Boolean = False
'//To build the string for the contents of the table cell
'//I'll use the stingbuilder class instead of concatenation
Dim temp As StringBuilder
If IsNothing(MyCol lection) = True Then
Get_DBItems()
End If
For Each Item In MyCollection
'//The collection is loaded in date order. So, if the date is
different than the DayHold variable
'//And I've already found the right day in the collection, I can
exit the for loop
If DayHold <> Item._Date Then
If DayTextHasChang ed = True Then
Exit For
End If
MultipleItemDay = False
DayHold = Item._Date
Else
MultipleItemDay = True
End If
'//If I've found a date matching the current date...I need to
create the appropriate text
If e.Day.Date = Item._Date.ToSt ring("d") Then
Select Case Item._Type
Case 1 : TextColor = "Blue"
Case 2 : TextColor = "Red"
Case 3 : TextColor = "Orange"
Case 4 : TextColor = "Green"
Case 5 : TextColor = "Brown"
Case 6 : TextColor = "Gray"
Case 7 : TextColor = "#408080"
Case Else : TextColor = "Black"
End Select
If MultipleItemDay = False Then
temp = New StringBuilder '//Create a new stringbuilder
object
Else
temp.Append("<b r>") '//add a seperator to the
stringbuilder
End If
temp.Append("<s pan style=""font-family:Arial;
font-weight:bold;fon t-size:12px; color:")
temp.Append(Tex tColor)
temp.Append(""" ><br>")
temp.Append(Ite m._Title.ToStri ng())
temp.Append("</span>")
DayTextHasChang ed = True '//Set the flag
End If
Next
'//If there was an Item for this day, add the stringbuilder text to
the table cell
If DayTextHasChang ed = True Then
e.Cell.Controls .Add(New LiteralControl( temp.ToString() ))
End If
End Sub
