Die Microsoft VB.NET MonthCalendar -Steuerelement können Benutzer ein Datum mit einem Monatskalenderansicht wählen . Wenn Sie das Aussehen des MonthCalendar-Steuerelement anpassen müssen , können Sie den Titel ändern Schriftart, Vorder-und Hintergrundfarbe des Kalenders. Sie können auch die Datum und Zeiten, die Sie mit den Anzeigen und MinDate MaxDate Eigenschaften der Steuerung. Durch die Einstellung der " MonthCalendar.BoldedDates "-Eigenschaft mit dem Array von ausgewählten Werten ordnen Sie die Daten in Fettdruck angezeigt werden kann . Anleitung
1
Klicken Sie auf " Start" in Windows und klicken Sie dann auf "Microsoft Visual Studio. "
2
Klicken Sie auf " Datei", wählen Sie "Öffnen " und doppelklicken Sie dann auf auf der VB.NET -Programm , in dem Sie auf das MonthCalendar-Steuerelement ändern.
3
Geben Sie den folgenden Code nach dem " Public Class Main () " Linie, um die Farbe des Kalenders ändern und setzen Sie die Reihe von Terminen auf dem MonthCalendar -Steuerelement anzuzeigen :
Imports System Imports System.Windows.Forms
public sealed class Form1 Inherits
System.Windows.Forms.Form
Public Shared Sub Main ()
System.Windows.Forms.Application.Run (New Form1)
End Sub 'Main
Public Sub New ()
MyBase.New ()
'Erstellen des Kalenders.
Me.MonthCalendar1 = Neue und
Systems. Windows.Forms.MonthCalendar
' Stellen Sie den Kalender Lage.
Me.MonthCalendar1.Location = New System.Drawing.Point
(47, 16)
< p> ' ändern der Farbe .
Me.MonthCalendar1.BackColor =
System.Drawing.SystemColors.Info
Me.MonthCalendar1.ForeColor =
System.Drawing.Color.FromArgb (_
'Add Termine MonthlyBoldedDates Array.
Me.MonthCalendar1.MonthlyBoldedDates = Neue und
System.DateTime () _ { Neues System . DateTime (2011 , 9, 15 , 0, 0 , 0,
0) , _ New System.DateTime (2002, 9, 30 , 0, 0 , 0, 0 ) }
< p > ' Legt die maximale sichtbare Datum in dem Kalender auf 12/31/2011 .
Me.MonthCalendar1.MaxDate = New System.DateTime (2011 ,
12 , 31, 0, 0, 0, 0)
' Stellen Sie die minimale sichtbare Datum in dem Kalender auf 01/01/1999 .
Me.MonthCalendar1.MinDate = New System.DateTime (1999 , 1,
1 , 0, 0 , 0, 0 ) End Sub
'Die Start-und Enddatum in das Textfeld ein.
Me.TextBox1.Text = " Datum ausgewählt: Start = " + _
e.Start.ToShortDateString ( ) + " : Ende =" +
e.End.ToShortDateString ()
End Sub
