Como personalizar um MonthCalendar em VB.NET

VB.NET MonthCalendar de controle permite que os usuários personalizem vistas do calendário.

O controle Microsoft VB.NET MonthCalendar permite aos usuários selecionar uma data usando uma exibição de calendário mensal. Se você precisa para personalizar a aparência do controle MonthCalendar, você pode alterar o tipo de letra do título, cores de fundo e de primeiro plano do calendário. Você também pode limitar a data e horários que você exibir com as propriedades MinDate e MaxDate do controle. Ao definir a "MonthCalendar.BoldedDates" propriedade com a matriz de valores escolhidos você pode atribuir que data será exibido em negrito.

Clique em "Iniciar" do Windows e, em seguida, clique em "Microsoft Visual Studio."
Clique em "Arquivo", selecione "Abrir" e, em seguida, clique duas vezes sobre o programa VB.NET no qual você deseja modificar o controle MonthCalendar.
Digite o seguinte código após a linha "classe principal Pública ()" para mudar a cor do calendário e definir o intervalo de datas para mostrar no controle MonthCalendar:
Sistema de importações
Importações System.Windows.Forms
Class Form1 NotInheritable pública
```
System.Windows.Forms.Form Inherits
Public Shared Sub Main ()
System.Windows.Forms.Application.Run (New Form1)
End Sub `Main
Public Sub New ()MyBase.New ()
```
`Criar o calendário.
```
Me.MonthCalendar1 = Novo 
```
System.Windows.Forms.MonthCalendar
`Definir a localização do calendário.
```
Me.MonthCalendar1.Location = Novo System.Drawing.Point
```
(47, 16)
"Alterar a cor.
```
Me.MonthCalendar1.BackColor = 
```
System.Drawing.SystemColors.Info
```
Me.MonthCalendar1.ForeColor = 
```
System.Drawing.Color.FromArgb (_
`Adicionar datas para matriz MonthlyBoldedDates.
```
Me.MonthCalendar1.MonthlyBoldedDates = Novo 
```
System.DateTime () _ {New System.DateTime (2011, 9, 15, 0, 0, 0,
0), _ Nova System.DateTime (2002, 9, 30, 0, 0, 0, 0)}
`Define a data máxima visível no calendário para 2011/12/31.
```
Me.MonthCalendar1.MaxDate = Novo System.DateTime (2011, 
```
12, 31, 0, 0, 0, 0)
`Definir a data mínima visível no calendário para 01/01/1999.
```
Me.MonthCalendar1.MinDate = Novo System.DateTime (1999, 1, 
```
1, 0, 0, 0, 0)
```
End Sub
```
"Ver as datas de início e fim na caixa de texto.
```
Me.TextBox1.Text = "Data Selecionada: Iniciar =" + _ 
```
e.Start.ToShortDateString (+) ": End =" +
e.End.ToShortDateString ()
```
End Sub
```
End Class
Clique em "Arquivo" e clique em "Salvar" para aplicar a alteração para o controle em seu aplicativo VB.NET.

De esta maneira? Compartilhar em redes sociais: