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 propriedade " MonthCalendar.BoldedDates " com a variedade de valores escolhidos você pode atribuir que data será exibido em negrito. Instruções
1

Clique em "Iniciar " do Windows e , em seguida, clique em " Microsoft Visual Studio. "
2

Clique em "Arquivo ", selecione "Abrir" e , em seguida, clique duas vezes em no programa VB.NET em que você deseja modificar o controle MonthCalendar .
3

Digite o seguinte código após o " Public Class Main () " linha para mudar a cor do calendário e definir o intervalo de datas para exibir no controle MonthCalendar :

System Imports

System.Windows.Forms Imports

Public NotInheritable Class Form1 Inherits

System.Windows.Forms.Form

Public Shared Sub Main ()

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

End Sub 'Main < br >

Public Sub New ()

MyBase.New ()

'Criar o calendário.

Me.MonthCalendar1 = Novo

sistema. 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 array MonthlyBoldedDates .

Me.MonthCalendar1.MonthlyBoldedDates = Novo

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

0 ) , _ New System.DateTime (2002 , 9 , 30 , 0 , 0 , 0 , 0 ) }

' Define a data máxima visível no calendário para 12/31/2011 .

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: Start = " + _

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

e.End.ToShortDateString ()

Fim Sub

End Class
4

Clique em "Arquivo " e clique em "Salvar" para aplicar a alteração para o controle em sua aplicação VB.NET .