Microsoft VB.NET MonthCalendar kontrol giver brugerne mulighed for at vælge en dato ved hjælp af en månedlig kalendervisning. Hvis du har brug for at tilpasse udseendet af MonthCalendar kontrol, kan du ændre titlen skrifttype , baggrund og forgrund farver kalenderen. Du kan også begrænse dato og tidspunkter , at du viser med MinDate og MaxDate egenskaber af kontrollen . Ved at indstille " MonthCalendar.BoldedDates " ejendom med den vifte af udvalgte værdier, du kan tildele som datoer vil blive vist med fed skrift. Instruktioner
1
Klik på " Start" i Windows og derefter klikke på "Microsoft Visual Studio ".
2
Klik på "File ", vælge "Åbn " og derefter dobbeltklikke på på VB.NET program, hvor du ønsker at ændre MonthCalendar kontrol.
3
Indtast følgende kode efter "Public Class Main ( )" linje for at ændre farven på kalenderen og indstille den række af datoer for at vise på MonthCalendar kontrol :
Imports System
Import System.Windows.Forms
Public NotInheritable Class Form1
arver System.Windows.Forms.Form
Public Shared Sub Main ( )
System.Windows.Forms.Application.Run (New Form1 )
End Sub ' Main < br >
Public Sub New ()
MyBase.New ()
'Opret kalenderen.
Me.MonthCalendar1 = Ny
System . Windows.Forms.MonthCalendar
' Indstil kalenderen placering.
Me.MonthCalendar1.Location = Ny System.Drawing.Point
(47 , 16)
< p > ' Ændre farven .
Me.MonthCalendar1.BackColor =
System.Drawing.SystemColors.Info
Me.MonthCalendar1.ForeColor =
System.Drawing.Color.FromArgb (_
' Add datoer til MonthlyBoldedDates array.
Me.MonthCalendar1.MonthlyBoldedDates = Ny
System.DateTime () _ { Nyt system . DateTime (2011 , 9, 15 , 0, 0, 0 , Amerikas
0), _ New System.DateTime (2002 , 9, 30 , 0, 0 , 0, 0 ) }
< p > ' Indstiller den maksimale synlige dato i kalenderen for at 12/31/2011 .
Me.MonthCalendar1.MaxDate = Ny System.DateTime (2011 ,
12 , 31, 0, 0, 0, 0)
'Sæt den mindste synlige dato i kalenderen for at 01/01/1999 .
Me.MonthCalendar1.MinDate = Ny System.DateTime (1999 , 1,
1, 0 , 0, 0 , 0)
End Sub
' Vis start-og slutdatoer i tekstboksen .
Me.TextBox1.Text = " Valgte Dato: Start = " + _
e.Start.ToShortDateString () + " : End =" + Online
e.End.ToShortDateString ()
End sub
End Class
4
Klik på " File" og klik derefter på "Gem " for at anvende ændringen på kontrol i din VB.NET program.
< br >