הינה דוגמא לשימוש בפקד calender הרגיל של דוט נט שאת ה html style שלו ערכתי כדי להגדיל את התאים (של כל יום), וכתבתי משהו מעין הקוד הבא על מנת לשלוף נתונים שונים מ DB ולרנדר לתוך כל יום, לפי התאריך. לפי עקרון זה אתה יכול לקלוט אירוע מהיוזר, להזין
אותה ל DB ולהציג אותה ביום הרלונטי. שים לב שאתה יכול לרנדר כל פקד html לתוך משבצת היום (ראה בדוגמא) כך שאתה יכול לשלוט בעיצוב של הצגת המידע .
Protected Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender
Dim i As Integer = 0
Dim flg As String = String.Empty
Try
For Each dr3 As DataRow In ds.Tables(1).Rows
If dr3(1) IsNot DBNull.Value And dr3(2) IsNot DBNull.Value Then
Dim hdate As DateTime = dr3(1)
Dim hebtitle As String = dr3(2).ToString
If e.Day.Date = hdate Then
Dim heblabel As New Label
heblabel.Attributes.Add("runat", "server")
heblabel.ID = "heblabel"
heblabel.Text = " | " + hebtitle
e.Cell.Controls.Add(heblabel)
End If
End If
Next
For Each dr1 As DataRow In ds.Tables(0).Rows
Dim caldate As DateTime = dr1(1)
Dim caltitle As String = dr1(2).ToString
If e.Day.Date = caldate Then
e.Cell.BackColor = Drawing.Color.Lavender
e.Cell.Controls.Add(New LiteralControl(""))
Dim lable As New Label
lable.Attributes.Add("runat", "server")
lable.ID = "sdates"
lable.Text = caltitle
e.Cell.Controls.Add(lable)
e.Cell.Controls.Add(New LiteralControl("
"))
End If
Next
End Try
End Sub
בהצלחה, ואם עזרתי, לחץ על 'סמן כתשובה', וסמן את התשובה כמועילה.
