Oggetto Calendar Funzione al cambio del mese

[mexican]

Ciao a tutti,
ho un'oggetto Calendar al quale nel caricamento con la Sub Calendar1_DayRender
cambio lo sfondo dei giorni (presi da DB) e gli abbino un link.

Fin qui tutto bene ma se cambio mese come posso fare? Ho fatto la funzione per recuperare il valore del mese:

Sub MonthChange(ByVal sender As Object, ByVal e As MonthChangedEventArgs)
    
        Dim x
        x = e.NewDate.Month

        'Response.Write()
        'Response.End()


    End Sub

Però ora come faccio a rifare quello che faccio nella Sub Calendar1_DayRender ???

grazie a tutti

[djciko]

ma al monthchanged il dayrender non lo riesegue ?

[mexican]

Originariamente inviato da djciko
ma al monthchanged il dayrender non lo riesegue ?

Si ma come gli posso passare il paramentro che deve cambiare mese ?

[djciko]

non devi passare nulla credo, il mese è quello in rendering :master:
oppure non ho capito bene...

[mexican]

Originariamente inviato da djciko
non devi passare nulla credo, il mese è quello in rendering :master:
oppure non ho capito bene...

Ecco il codice che ho nella sub:

Protected Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender
        connetti()
        Try            

            Dim link As New HyperLink()
            Dim instance As DateTime
            Dim mese As String
            instance = Date.Today
            mese = instance.Month

            
            strsql = "Select * From Eventi where mese=" & mese
            cmdSql = New OleDbCommand(strsql, conn)
            rs = cmdSql.ExecuteReader()
            While rs.Read()

                If (e.Day.Date.Day = rs("giorno")) Then
                    ' cambio colore di sfondo per giorni = 15
                    e.Cell.BackColor = System.Drawing.Color.Orange
                    e.Cell.ForeColor = System.Drawing.Color.White

                    link.Text = e.Day.DayNumberText
                    link.NavigateUrl = "evento.aspx?id_evento=" & rs("id_evento")
                    e.Cell.Text = ""
                    e.Cell.Controls.Add(link)
                End If

            End While
            rs.Close()

        Catch errore As Exception
            messaggio.Text = "Si è verificato il seguente errore: " & errore.Message
        Finally
            conn.Close()

        End Try

    End Sub

a me dovrebbe cambiare la variabile "mese"

[mexican]

Grazie ho risolto cosi:

Dim myAppointment As Date = New Date(rs("anno"), rs("mese"), rs("giorno"))

'If (e.Day.Date.Day = rs("giorno")) Then
If (e.Day.Date = myAppointment) Then