Il VB.NET MonthCalendar controllo Microsoft consente agli utenti di selezionare una data utilizzando un calendario mensile . Se avete bisogno di personalizzare l'aspetto del controllo MonthCalendar , è possibile modificare il tipo di carattere del titolo , colori di sfondo e primo piano del calendario . È inoltre possibile limitare la data e gli orari che si visualizzano con le proprietà MinDate e MaxDate del controllo. Impostando la proprietà " MonthCalendar.BoldedDates " con l'array di valori scelti è possibile assegnare quali date verranno visualizzate in grassetto . Istruzioni
1

Fare clic su " Start" di Windows e quindi fare clic su "Microsoft Visual Studio ".
2

Fare clic su " File ", selezionare " Apri" e quindi fare doppio clic sul programma VB.NET nel quale si desidera modificare il controllo MonthCalendar .
3

Inserisci il seguente codice dopo il " Public Class Main () " linea per cambiare il colore del calendario e impostare l'intervallo di date per visualizzare sul controllo MonthCalendar :

Imports System

Imports System.Windows.Forms

Public NotInheritable Class Form1 Inherits

System.Windows.Forms.Form

Public Shared Sub Main ( ) per

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

' Sub Main < br >

Public Sub New ( ) per

MyBase.New ( ) per

'Crea il calendario .

Me.MonthCalendar1 = New

sistema . Windows.Forms.MonthCalendar

'Imposta la posizione del calendario .

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

( 47 , 16 ) per < p > ' Cambia il colore .

Me.MonthCalendar1.BackColor =

System.Drawing.SystemColors.Info

Me.MonthCalendar1.ForeColor =

System.Drawing.Color.FromArgb ( _

' aggiungere date a schiera MonthlyBoldedDates .

Me.MonthCalendar1.MonthlyBoldedDates = New

System.DataTime ( ) _ { Nuovo Sistema . DateTime ( 2011 , 9 , 15 , 0 , 0 , 0 , Stati

0 ) , _ New System.DateTime ( 2002 , 9 , 30 , 0 , 0 , 0 , 0 ) }
< p > ' Imposta la data massima visibile sul calendario per 12/31/2011 .

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

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

' Impostare la data minima visibile sul calendario per 01/01/1999 .

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

1 , 0 , 0 , 0 , 0 ) per

End Sub

'Mostra la date di inizio e di fine nella casella di testo .

Me.TextBox1.Text = " Data selezionata: inizio = " + _

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

e.End.ToShortDateString ( ) per

End sub