Cómo personalizar un MonthCalendar en VB.NET

El control MonthCalendar Microsoft VB.NET permite a los usuarios seleccionar una fecha con una vista de calendario mensual . Si necesita personalizar la apariencia del control MonthCalendar , puede cambiar el tipo de letra del título , colores de fondo y primer plano de la agenda. También puede limitar la fecha y hora que se muestra con las propiedades MinDate y MaxDate del control. Al establecer la propiedad " MonthCalendar.BoldedDates " con el conjunto de valores seleccionados se pueden asignar las que se muestran las fechas en negrita. Instrucciones
1

clic en "Inicio " de Windows y haga clic en " Microsoft Visual Studio ".

2 Haga clic en " Archivo", seleccione " Abrir" y luego haga doble clic en en el programa de VB.NET en el que desea modificar el control MonthCalendar .
3

Introduzca el código siguiente después de la "Public Class principal ( )" La línea para cambiar el color del calendario y establecer el rango de fechas para mostrar en el control MonthCalendar :

Imports System Imports System.Windows.Forms

Public Class Form1 NotInheritable
Hereda

System.Windows.Forms.Form

Public Shared Sub Main ()

System.Windows.Forms.Application.Run (New Form1)

End ' Sub Main

Public Sub New ()

MyBase.New ()

'Crear el calendario.

Me.MonthCalendar1 = New

sistema. Windows.Forms.MonthCalendar

' Establecer la ubicación del calendario.

Me.MonthCalendar1.Location = New System.Drawing.Point

(47, 16 )
< p > ' Cambiar el color.

Me.MonthCalendar1.BackColor =

System.Drawing.SystemColors.Info

Me.MonthCalendar1.ForeColor =

System.Drawing.Color.FromArgb (_

' agregar fechas a MonthlyBoldedDates matriz.

Me.MonthCalendar1.MonthlyBoldedDates = New

System.DateTime () _ { Nuevo Sistema . DateTime ( 2011 , 9 , 15 , 0 , 0 , 0 , 0

) , _ Nueva System.DateTime ( 2002 , 9 , 30 , 0 , 0 , 0 , 0 ) }
< p > ' Define la fecha máxima visible en el calendario para 12/31/2011 .

Me.MonthCalendar1.MaxDate = New System.DateTime (2011,

12 , 31 , 0 , 0, 0 , 0 )

' Configuración de la fecha mínima visible en el calendario para 01/01/1999 .

Me.MonthCalendar1.MinDate = New System.DateTime ( 1999 , 1 ,

1 , 0, 0 , 0, 0 ) End Sub

' Mostrar las fechas de inicio y fin en el cuadro de texto.

Me.TextBox1.Text = "Fecha seleccionada: Start = " + _

e.Start.ToShortDateString () + ": Fin = " +

e.End.ToShortDateString ()

End Sub

End Class

4 Haga clic en " archivo" y luego haga clic en " Guardar" para aplicar los cambios al control de su aplicación VB.NET .