Microsoft VB.NET MonthCalendar kontroll lar brukerne velge en dato ved hjelp av en månedlig kalendervisning. Hvis du trenger å tilpasse utseendet på MonthCalendar kontroll, kan du endre tittelen skrift, bakgrunn og forgrunn fargene i kalenderen. Du kan også begrense dato og klokkeslett som du viser med MinDate og MaxDate egenskapene til kontroll . Ved å stille " MonthCalendar.BoldedDates " eiendom med rekken av utvalgte verdier du kan tilordne hvilke datoer vil bli vist i fet skrift. Instruksjoner
en

Klikk "Start" i Windows og deretter " Microsoft Visual Studio. "
2

Klikk på " File" og velg " Åpne" og deretter dobbeltklikke på VB.NET programmet du ønsker å endre MonthCalendar kontroll.
3

Skriv inn følgende kode etter " Public Class Main ( )" linjen for å endre farge på kalenderen og angi omfanget av datoer skal vises på MonthCalendar kontroll:

Import System

Importen system.windows.forms

Public NotInheritable Class Form1

arver System.Windows.Forms.Form

Public Delt Sub Main ( )

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

End Sub ' Hoved

Public Sub New ( )

MyBase.New ( )

"Opprett kalenderen .

Me.MonthCalendar1 = Ny

System. Windows.Forms.MonthCalendar

'Sett kalenderen plassering .

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

( 47 , 16 )
< p> 'Endre farge .

Me.MonthCalendar1.BackColor =

System.Drawing.SystemColors.Info

Me.MonthCalendar1.ForeColor =

System.Drawing.Color.FromArgb (_

' Legg datoer til MonthlyBoldedDates tabellen.

Me.MonthCalendar1.MonthlyBoldedDates = Ny

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

0 ) , _ New System.DateTime ( 2002 , 9 , 30, 0 , 0 , 0 , 0 ) }
< p > ' Angir maksimalt synlig dato på kalenderen for å 12/31/2011 .

Me.MonthCalendar1.MaxDate = Ny System.DateTime ( 2011 , etter

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

'Angi minimum synlig dato på kalenderen for å 01/01/1999 .

Me.MonthCalendar1.MinDate = Ny System.DateTime ( 1999 , 1 , etter

1 , 0 , 0 , 0 , 0 )

End Sub

'Vis start-og sluttdato i tekstboksen .

Me.TextBox1.Text = "Date Valgt: start = " + _

e.Start.ToShortDateString ( ) + " : Slutt =" + Online

e.End.ToShortDateString ( )

End sub

End Class
4

Klikk på " File" og deretter " Lagre" for å bruke endringen til kontroll i VB.NET programmet .