Das  nachfolgende Beispiel fügt beim laden des Formulars zwei "spezielle Tage" in die Kollektion ein. Auf dem Formular kann der Benutzer ein Datum auswählen und anschließend über die Schaltfläche "Test" prüfen lassen, ob das Datum in der Kollektion vorhanden ist. In diesem Fall erscheint eine Messagebox auf dem Bildschirm.

Sub MainFormLoad(ByVal sender As Object, ByVal e As EventArgs)
    Dim myCollection As MonthCalendar.DatesCollection = _
             New MonthCalendar.DatesCollection(Nothing) 
    Dim myItem As MonthCalendar.DateItem = New MonthCalendar.DateItem         

    myItem.Date = New DateTime(DateTime.Now.Date.Ticks)         
    myItem.Text = "Test"         
    myItem.Background.StartColor = Color.LightBlue         
    myItem.Background.EndColor = Color.Blue         
    myItem.Background.TransparencyStartColor = 127         
    myItem.Background.TransparencyEndColor = 127 
    myItem.Background.Style = MonthCalendar.EStyle.esGradient         
    myItem.ForeColor = Color.BlueViolet         
    myItem.Border.Visible = False         
    myItem.Range = New DateTime(DateTime.Now.Date.Ticks)         
    myItem.Reccurence = MonthCalendar.DateItemReccurence.None         
    'einfügen des DateItems in die Collection         
    myCollection.Add(myItem)          

    Dim myItem2 As MonthCalendar.DateItem = New MonthCalendar.DateItem         
    myItem2.Date = New DateTime(DateTime.Now.Date.Ticks - 864000000000)         
    myItem2.Text = "Test2" 
    myItem2.Background.StartColor = Color.DarkRed         
    myItem2.Background.EndColor = Color.LightSalmon         
    myItem2.Background.TransparencyStartColor = 127         
    myItem2.Background.TransparencyEndColor = 127 
    myItem2.Background.Style = MonthCalendar.EStyle.esGradient         
    myItem2.ForeColor = Color.BlueViolet 
    myItem2.Border.Visible = False         
    myItem2.Range = New DateTime(DateTime.Now.Date.Ticks - 864000000000)         
    myItem2.Reccurence = MonthCalendar.DateItemReccurence.None 
    'einfügen des DateItems in die Collection         
    myCollection.Add(myItem2)          
    'die Collection wird dem Kalender hinzugefügt         
    calendar1.Dates.Add(myCollection)         
    calendar1.Refresh()     
End Sub          

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    Dim Items As MonthCalendar.DateItem() = Nothing 
    Items = calendar1.Dates.DateInfo(DateTimePicker1.Value.Date)         

    If (Not Items Is Nothing And Items.Length > 0) Then             
        MessageBox.Show("spezial day exist") 
    End If         
End Sub

Das  nachfolgende Beispiel fügt beim laden des Formulars zwei "spezielle Tage" in die Kollektion ein. Auf dem Formular kann der Benutzer ein Datum auswählen und anschließend über die Schaltfläche "Test" prüfen lassen, ob das Datum in der Kollektion vorhanden ist. In diesem Fall erscheint eine Messagebox auf dem Bildschirm.

private void Form1_Load(object sender, EventArgs e)
{
    MonthCalendar.DatesCollection myCollection = new MonthCalendar.DatesCollection(null);
    MonthCalendar.DateItem myItem = new MonthCalendar.DateItem();             
    myItem.Date = new DateTime(DateTime.Now.Date.Ticks);             
    myItem.Text = "Test";             
    myItem.Background.StartColor = Color.LightBlue; 
    myItem.Background.EndColor = Color.Blue;             
    myItem.Background.TransparencyStartColor = 127;             
    myItem.Background.TransparencyEndColor = 127;             
    myItem.Background.Style = MonthCalendar.EStyle.esGradient;             
    myItem.ForeColor = Color.BlueViolet; 
               myItem.Border.Visible = false;             
    myItem.Range = new DateTime(DateTime.Now.Date.Ticks);             
    myItem.Reccurence = MonthCalendar.DateItemReccurence.None;             
    myCollection.Add(myItem);              

    MonthCalendar.DateItem myItem2 = new MonthCalendar.DateItem(); 
    myItem2.Date = new DateTime(DateTime.Now.Date.Ticks-864000000000);             
    myItem2.Text = "2Test";             
    myItem2.Background.StartColor = Color.DarkRed;             
    myItem2.Background.EndColor = Color.LightSalmon;             
    myItem2.Background.TransparencyStartColor = 127;             
    myItem2.Background.TransparencyEndColor = 127;             
    myItem2.Background.Style = MonthCalendar.EStyle.esGradient; 
    myItem2.ForeColor = Color.BlueViolet;             
    myItem2.Border.Visible = false;             
    myItem2.Range = new DateTime(DateTime.Now.Date.Ticks-864000000000);             
    myItem2.Reccurence = MonthCalendar.DateItemReccurence.None;             
    myCollection.Add(myItem2);                        

    calendar1.Dates.Add(myCollection); 
    calendar1.Refresh(); 
 }                  

private void Button1Click(object sender, EventArgs e)         
{
    MonthCalendar.DateItem[] myitems = null;             
    myitems = calendar1.Dates.DateInfo(dateTimePicker1.Value.Date);             
    if (myitems != null && myitems.Length > 0) 
    {
        MessageBox.Show("spezial day exist");             
    }                          
}

Aufgenommen in Version: 1.0

.NET Framework:

kompatibel mit: 3.5, 3.0, 2.0