Dar formato a evento MonthCalendar

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • Dar formato a evento MonthCalendar

    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:
    '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" ¿Puede alguien decirme cómo lo puedo hacer?. Gracias.

  • #2
    Originalmente escrito por solilopi Ver mensaje
    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:
    '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" ¿Puede alguien decirme cómo lo puedo hacer?. Gracias.

    Amigo acomoda mejor tu codigo para poder ayudarte... No nos pongas a descifrar ese desorden.

    Comentario

    Trabajando...
    X