[RaggiTech]

يوفر الكائن e.Day للفئة CalendarDay العديد من الخصائص مثل

Date : الكائن DateTime الذي يمثل التاريخ .

IsWeekend : يتم تعينهاالى True اذا وافق التاريخ السبت او الاحد .

IsToday : يتم تعيينها الى True اذا تطابقت هذة القيمة مع الخاصية Calendar.Today التي يتم تعيينها الى اليوم الحالي بشكل افتراضي .

IsOtherMonth سيتم تعينها الى True اذا لم ينتمى هذا التاريخ الى الشهر الحالي . ولكن يتم عرضها لتملئ الصف الول او الاخير
مثال قد يكون التاريخ هو اليوم الاخير للشهر السابق .

IsSelectable : تتيح هذة الخاصية تكوين الاعداد الذي يساعد على معرفة ان المستخدم يمكنة تحديد هذا اليوم ام لا . كما مر معنا في المثال السابق .

يمكن تحديد يوم معين من الشهر ليتم تميزة وتنسيقة بشكل مختلف كذلك يمكن اضافتة عنصر تحكم Label لكتابة نص بداخلة كالاتي

كود :

Private Sub DayRender(ByVal source As Object, ByVal e As DayRenderEventArgs) Handles Calendar1.DayRender
If e.Day.Date.Day = 5 And e.Day.Date.Month = 5 Then
e.Cell.BackColor = System.Drawing.Color.Green
Dim lbl As New Label
lbl.Text = "تاريخ ميلادي "
e.Cell.Controls.Add(lbl)
End If
End Sub