[VB.Net] Control calendar

Voilà,
un exemple...c'est plus simple que je croyais.
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
 
    Protected datesArray As ArrayList
    Dim ConnString As String = "xxxxxxx connection string xxxxxxxxx"
    Sub Page_Load()
        If ViewState("selectedDates") Is Nothing Then
            datesArray = New ArrayList()
            DisplaySelectedDatesFromDB()
        Else
            datesArray = CType(ViewState("selectedDates"), ArrayList)
        End If
    End Sub
 
    Sub DisplaySelectedDates()
        Calendar1.SelectedDates.Clear()
        Dim i As Integer
        For i = 0 To datesArray.Count - 1
            Calendar1.SelectedDates.Add(datesArray(i))
        Next
    End Sub  
 
    Sub DisplaySelectedDatesFromDB()
        Calendar1.SelectedDates.Clear()
        Dim i As Integer
 
 
        Dim MyConnection As SqlConnection
        Dim myr As SqlDataReader
        MyConnection = New SqlConnection(ConnString )
        Dim SELECTCmd As String = "SELECT * FROM dbo.[Tablename]"
        Dim MyCommand As SqlCommand = New SqlCommand(SELECTCmd, MyConnection)
        MyConnection.Open()
        myr = MyCommand.ExecuteReader
        While myr.Read()
            Calendar1.SelectedDates.Add(Convert.ToDateTime(myr("fieldname")))
            datesArray.Add(Convert.ToDateTime(myr("fieldname")))
        End While
        MyConnection.Close()
    End Sub
 
 
    Sub Calendar1_SelectionChanged(sender As Object, e As EventArgs)
        Dim index As Integer = -1
        index = datesArray.IndexOf(Calendar1.SelectedDate)
        If index >= 0 Then
            datesArray.RemoveAt(index)
        Else
            datesArray.Add(Calendar1.SelectedDate)
        End If
        ViewState("selectedDates") = datesArray
        DisplaySelectedDates()
    End Sub
 
    Sub Button1_Click(sender As Object, e As EventArgs)
        Dim dt As DateTime
        Dim s As String = ""
        Dim MyConnection As SqlConnection
        Dim MyCommand As SqlCommand
        Dim InsertCmd As String
        Dim DELETECmd As String
        MyConnection = New SqlConnection(ConnString)
 
        DELETECmd = "DELETE FROM [dbo].[tablename] WHERE ID=482"
        MyCommand = New SqlCommand(DELETECmd, MyConnection)
        MyCommand.Connection.Open()
        Try
            MyCommand.ExecuteNonQuery()
        Catch Exp As SqlException
 
        Finally
            MyConnection.Close()
        End Try        
 
        For Each dt In Calendar1.SelectedDates
            s &= dt.ToString & "<br>"
            InsertCmd = "INSERT INTO [dbo].[tablename] (ID,dtCalender) Values(482,'" & dt.ToString & "')"
            MyCommand = New SqlCommand(InsertCmd, MyConnection)
            MyCommand.Connection.Open()
            Try
                MyCommand.ExecuteNonQuery()
            Catch Exp As SqlException
 
            Finally
                MyConnection.Close()
            End Try
        Next
        labelOutput.Text = s
    End Sub
 
 
 
...
 
 
        <asp:Calendar 
            OnSelectionChanged="Calendar1_SelectionChanged"
            ID="Calendar1" 
            runat="server" 
            BackColor="White" 
            BorderStyle="Solid" 
            CellSpacing="1" 
            Font-Names="Verdana" 
            Font-Size="9pt" 
            ForeColor="Black"
            Height="250px" 
            NextPrevFormat=FullMonth
            Width="330px">
 
            <SelectedDayStyle BackColor="#5A8C01" ForeColor="White" />
            <TodayDayStyle BackColor="#999999" ForeColor="White" />
            <DayStyle BackColor="#D4DDBA" />
            <OtherMonthDayStyle ForeColor="#999999" />
            <NextPrevStyle Font-Bold="True" Font-Size="8pt" ForeColor="White" />
            <DayHeaderStyle Font-Bold="True" Font-Size="8pt" ForeColor="#333333" Height="8pt" />
            <TitleStyle BackColor="#5A8C01" Font-Bold="True" Font-Size="12pt" ForeColor="White" Height="12pt" />
 
        </asp:Calendar>