Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Globalization
 
Namespace Controls
    Public Class MonthCalendarWithWarningDates
        Inherits MonthCalendar
 
        Private _warningDates As New List(Of DateTime)()
 
        ''' <summary>Liste der Datums-Werte, die hervorgehoben dargestellt 
        ' werden</summary>
        ''' <value>Liste der Datums-Werte, die hervorgehoben dargestellt 
        ' werden</value>
        Public Property WarningDates() As DateTime()
            Get
                Return _warningDates.ToArray
            End Get
            Set(value As DateTime())
                _warningDates = New List(Of DateTime)(value)
            End Set
        End Property
 
        Private _WarningBackColor As Drawing.Color = Drawing.Color.FromArgb( _
          240, 240, 0)
 
        ''' <summary>Hintergrundfarbe der hervorgehoben dargestellten 
        ' Datums-Werte</summary>
        Public Property WarningBackColor() As Drawing.Color
            Set(value As Drawing.Color)
                _WarningBackColor = value
            End Set
            Get
                Return _WarningBackColor
            End Get
        End Property
 
        Private _WarningForeColor As Drawing.Color = Color.Red
 
        ''' <summary>Textfarbe der hervorgehoben dargestellten 
        ' Datums-Werte</summary>
        Public Property WarningForeColor() As Drawing.Color
            Set(value As Drawing.Color)
                _WarningForeColor = value
            End Set
            Get
                Return _WarningForeColor
            End Get
        End Property
 
        'Überschreibt WndProc und erzwingt den Aufruf von OnPaint, falls 
        ' WM_PAINT
        Protected Shared WM_PAINT As Integer = &HF
 
        Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
            MyBase.WndProc(m)
            If m.Msg = WM_PAINT Then
                Dim graphics__1 As Graphics = Graphics.FromHwnd(Me.Handle)
                Dim pe As New PaintEventArgs(graphics__1, New Rectangle(0, 0, _
                  Me.Width, Me.Height))
                OnPaint(pe)
            End If
        End Sub