cambiar color a dias determinados en calendario

[luis.decolores]

hola buenas,
mi problema es que no se como colorear determinados dias del mes de un calendar en vb.net. Tengo en una bbdd registros de fechas de eventos durante todo el año (fecha inicio y fecha fin sobre de cada uno) y el tema es que las recorro con un "for" y cuando detecto que en un registro hay una fecha cuyo mes es el mes seleccionado del calendario, pues paro y quiero colorear ese dia , que no tiene por qué ser el seleccionado por defecto, y puede estar antes o después del seleccionado como "selected day" ... bueno, mejor pongo el código por si sirve:

mes_calendario = Calendar1.SelectedDate.Month

For indiceLocal = 0 To numRegistrosLocal - 1

fec_ini = dtLocal.Rows(indiceLocal).Item("Fec_Ini")
fec_fin = dtLocal.Rows(indiceLocal).Item("Fec_Fin")
mes_evento = fec_ini.Month

If mes_calendario = mes_evento Then
dia_evento = fec_ini.Day
Calendar1. ' COMO SELECCIONO EL DIA Y LO PINTO?
End If


Next

bueno. .. pues es eso, muchas gracias...

[luis.decolores]

Nadie se le ocurre nada??

[eperedo]

Puedes usar la propiedad SelectedDayStyle que le aplica estilo a las fechas seleccionadas en el calendario, por lo que primero debes usar un bucle que te seleccione las fechas deseadas:

For indiceLocal = 0 To numRegistrosLocal - 1
Me.Calendar1.SelectedDates.Add(New Date(Año,Mes,Dia))
Next

Con esto tendrías las fechas seleccionadas luego le aplicas el estilo a la propiedad que te digo desde el código del diseño:

<SelectedDayStyle BackColor="#C00000" BorderColor="#004040" BorderStyle="Groove"
ForeColor="White" />

Es una idea, espero que te ayude.