Hola de nuevo, tengo un evento month Calendar al que le doy formato desde unos valores que recojo de una Bd, el problema es que sólo puedo darle formato Bold a la letra y no color, ya que como después le pongo el color general no se queda el color que le puse en el For Each. Mi código es:
¿Puede alguien decirme cómo lo puedo hacer?. Gracias.Código:'CREAMOS EL CALENDARIO DE SALIDAS conector.Open() Dim dias_salidas As New ArrayList Dim salida_dias As String = "SELECT fecha from datos" Dim da_dias As MySqlCommand = New MySqlCommand(salida_dias, conector) Dim dt_dias As MySqlDataReader ' dt_dias = da_dias.ExecuteReader dt_dias.Read() While (dt_dias.Read()) dias_salidas.Add(dt_dias(0)) End While dt_dias.Close() conector.Close() 'DAMOS FORMATO AL CALENDARIO For Each item As Date In dias_salidas Calendario.AddBoldedDate(item) Calendario.ForeColor = Color.White Next Calendario.ShowTodayCircle = False Calendario.BackColor = Color.NavajoWhite Calendario.ForeColor = Color.Maroon Calendario.ScrollChange = 1 Calendario.TitleBackColor = Color.OliveDrab Calendario.TitleForeColor = Color.LemonChiffon Calendario.TrailingForeColor = Color.Tomato Calendario.CalendarDimensions = New System.Drawing.Size(3, 2) Calendario.MinDate = "01/01/2013" Calendario.MaxDate = "31/12/2025"