Il controllo di Microsoft VB.NET MonthCalendar permette agli utenti di selezionare una data utilizzando una visualizzazione mensile del calendario. Se è necessario per personalizzare l'aspetto del controllo MonthCalendar, è possibile cambiare il carattere del titolo, colori di sfondo e di primo piano del calendario. È inoltre possibile limitare la data e gli orari che si visualizzano con le proprietà MinDate e MaxDate del controllo. Impostando il "MonthCalendar.BoldedDates" proprietà con l'array di valori scelti è possibile assegnare le cui origini viene visualizzato in grassetto.

istruzione

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

2 Fai clic su "File", selezionare "Apri" e quindi fare doppio clic sul programma VB.NET in cui si desidera modificare il controllo MonthCalendar.

3 Inserire il codice seguente dopo la riga "Public Class Main ()" per cambiare il colore del calendario e impostare l'intervallo di date da visualizzare sul controllo MonthCalendar:

Imports System

Imports System.Windows.Forms

Pubblico NotInheritable classe Form1

Inherits System.Windows.Forms.Form

Public Shared Sub Main ()

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

End Sub 'principale

Public Sub New ()

MyBase.New ()

'Crea il calendario.

Me.MonthCalendar1 = New

System.Windows.Forms.MonthCalendar

'Imposta la posizione del calendario.

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

(47, 16)

'Cambiare il colore.

Me.MonthCalendar1.BackColor =

System.Drawing.SystemColors.Info

Me.MonthCalendar1.ForeColor =

System.Drawing.Color.FromArgb (_

'Aggiungere le date per serie MonthlyBoldedDates.

Me.MonthCalendar1.MonthlyBoldedDates = New

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

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

'Imposta la data visibile massima sul calendario per 2011/12/31.

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

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

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

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

1, 0, 0, 0, 0)

End Sub

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

Me.TextBox1.Text = "Date Selected: Start = " + _

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

e.End.ToShortDateString ()

End Sub

End Class

4 Fai clic su "File" e poi su "Save" per applicare la modifica al controllo nell'applicazione VB.NET.