Design des jours d'un Calendar

Bien sûre qu'il est possible, je l'ai déjà fait. Mon projet consistait à réserver un équipement quelconque sur une demie journée voulu au travers d'un calendar contrôle. Il fallait qu'en temps réel, les disponibilitées soit affichés sur les jours visuels. Soit disponible toute la journée, dispo que le matin, dispo que l'après midi et complet. De plus fallait gérer les jours fériés ainsi que les weekends.

L'astuce réside dans l'évènement DayRender du calendar. Cet évènement est appelé quand le calendar contruit ces jours. À chaque jour ! Il suffit d'analyser le e.Day.Date avec une date qu'on a. Et ensuite lui appliquer un Style qu'on aura préalablement défini. De plus, le e.Day contient des propriétés assez sympa, du genre e.Day.IsWeekend ou des méthodes du genre e.Day.IsSelectable.

Voici l'example :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
 
    Private Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles cndInscr.DayRender
 
        Dim Loop1 As Integer
 
        Dim vacationStyle As New Style
        Dim stDispoAm As New Style
        Dim stDispoPm As New Style
        Dim stDispoJour As New Style
        Dim stNonDispo As New Style
        Dim stReserver As New Style
        Dim tmpDate As Date
 
        'Rendre indisponible des jours selon une regle....  Du genre peut pa réserver moins de deux jours en avance!
        Select Case Today.DayOfWeek
            Case DayOfWeek.Monday, DayOfWeek.Tuesday, DayOfWeek.Wednesday
                tmpDate = DateAdd("d", 1, Today)
            Case DayOfWeek.Thursday
                tmpDate = DateAdd("d", 3, Today)
            Case DayOfWeek.Friday
                tmpDate = DateAdd("d", 3, Today)
        End Select
 
        With stDispoAm
            .BackColor = System.Drawing.Color.Blue
            .ForeColor = System.Drawing.Color.Black
        End With
 
        With stDispoAm
            .BackColor = System.Drawing.Color.Yellow
            .ForeColor = System.Drawing.Color.Black
        End With
 
        With stDispoPm
            .BackColor = System.Drawing.Color.Green
            .ForeColor = System.Drawing.Color.Black
        End With
 
        With stReserver
            .BorderStyle = BorderStyle.Solid
            .BorderColor = System.Drawing.Color.Black
        End With
 
 
        With stDispoJour
            .BackColor = System.Drawing.Color.LightBlue
            .ForeColor = System.Drawing.Color.Black
        End With
 
        With stNonDispo
            .BackColor = System.Drawing.Color.Red
            .ForeColor = System.Drawing.Color.Black
        End With
 
        ' Les weekend en gris!.
        Dim weekendStyle As New Style
        weekendStyle.BackColor = System.Drawing.Color.LightGray
 
        Dim NormalStyle As New Style
        NormalStyle.BackColor = System.Drawing.Color.White
 
        e.Day.IsSelectable = False
 
        'Si weekend ou ferier
        If (e.Day.IsWeekend) Or e.Day.Date = #12/25/2006# Or e.Day.Date = #1/1/2007# Then
            e.Cell.ApplyStyle(weekendStyle)
        Else
            For Loop1 = 0 To dtDates.Rows.Count - 1
                '    cndInscr.SelectedDates.Add(dtDates.Rows(Loop1).Item("Jour"))
                If e.Day.Date = DateTime.Parse(dtDates.Rows(Loop1).Item("Jour"), iCulture) Then
 
                    Select Case dtDates.Rows(Loop1).Item("Res")
                        Case 1
                            If Not e.Day.IsSelected Then e.Cell.ApplyStyle(stDispoAm)
                            If e.Day.Date > tmpDate And lblAdmin.Value <> "Oui" Then
                                e.Day.IsSelectable = True
                            ElseIf lblAdmin.Value = "Oui" Then
                                e.Day.IsSelectable = True
                            Else
                                e.Day.IsSelectable = False
                            End If
                            If e.Day.IsSelected And cmdDelete.Visible = False And e.Day.Date > tmpDate Then
                                cmdReserverAM.Enabled = True
                                cmdReserverPM.Enabled = False
                            End If
                        Case 2
                            If Not e.Day.IsSelected Then e.Cell.ApplyStyle(stDispoPm)
                            If e.Day.Date > tmpDate And lblAdmin.Value <> "Oui" Then
                                e.Day.IsSelectable = True
                            ElseIf lblAdmin.Value = "Oui" Then
                                e.Day.IsSelectable = True
                            Else
                                e.Day.IsSelectable = False
                            End If
                            If e.Day.IsSelected And cmdDelete.Visible = False Then
                                cmdReserverAM.Enabled = False
                                cmdReserverPM.Enabled = True
                            End If
                        Case 3
                            If Not e.Day.IsSelected Then e.Cell.ApplyStyle(stDispoJour)
                            If e.Day.Date > tmpDate And lblAdmin.Value <> "Oui" Then
                                e.Day.IsSelectable = True
                            ElseIf lblAdmin.Value = "Oui" Then
                                e.Day.IsSelectable = True
                                'ElseIf Today.Now.TimeOfDay.Hours < 12 And e.Day.Date = Today Then
                                '    e.Day.IsSelectable = True
                            End If
 
                            If e.Day.Date > tmpDate And e.Day.IsSelected And cmdDelete.Visible = False Then
                                cmdReserverAM.Enabled = True
                                cmdReserverPM.Enabled = True
                            ElseIf e.Day.Date = tmpDate And e.Day.IsSelected And cmdDelete.Visible = False And Now.TimeOfDay.Hours < 12 Then
                                cmdReserverAM.Enabled = False
                                cmdReserverPM.Enabled = True
                            ElseIf e.Day.Date = tmpDate Then
                                cmdReserverAM.Enabled = False
                                cmdReserverPM.Enabled = False
                            End If
                        Case 0
                            If Not e.Day.IsSelected Then e.Cell.ApplyStyle(stNonDispo)
                            If lblAdmin.Value <> "Oui" Then
                                e.Day.IsSelectable = False
                            ElseIf lblAdmin.Value = "Oui" Then
                                e.Day.IsSelectable = True
                            End If
                            If e.Day.IsSelected And cmdDelete.Visible = False Then
                                cmdReserverAM.Enabled = False
                                cmdReserverPM.Enabled = False
                            End If
                    End Select
                    If dtDates.Rows(Loop1).Item("tot") > 0 And lblAdmin.Value = "Oui" Then
                        e.Cell.Controls.Add(New LiteralControl("*"))
                    End If
 
                End If
            Next
 
        End If
        If Not gUser(1) Is Nothing Then
            If e.Day.Date.ToString = CDate(DateTime.Parse(gUser(1), iCulture)).ToString Then
                e.Cell.ApplyStyle(stReserver)
            End If
        End If
        If e.Day.IsOtherMonth Then
            e.Cell.ApplyStyle(NormalStyle)
            e.Cell.Controls.Clear()
        End If
 
        cndInscr.SelectedDayStyle.BackColor = System.Drawing.Color.DarkBlue
    End Sub