Visual Basic

m4kannan wrote:

I am entry level prog in vb.net..

jeje0926 wrote:

i saw some activeX but all of them are demo....

Member 2713401 wrote:

However I am not a C# guy, and the custom control is a bit over kill.

    C#:    int n = 0;
           Pen myPen = new Pen(Color.Black);
 
VB.NET:    Dim n As Integer = 0
           Dim myPen As New Pen(Color.Black)

MyBase.Paint(e)
' Your drawing code goes here

Partial Public Class ExtendedMonthCalendar
    Private MyDates As List(Of HighlightedDates)
    Public Sub New()
        InitializeComponent()
        ' Dates would normally be passed in, in a List. For testing purposes I added the next declaration
        'MyDates.Add(New HighlightedDates(Convert.ToDateTime("9/1/2008"), Color.Red, Color.Blue, Color.Pink, True))
        'Dim mCal As New MonCal(MyDates)
        'Me.Controls.Add(mCal)
    End Sub
End Class

Friend Class MonCal
    Inherits MonthCalendar
    Protected Shared WM_PAINT As Integer = 15
    Private dayBox As Rectangle
    Private dayTop As Integer = 0
    Private range As SelectionRange
    Private highlightedDates As New List(Of HighlightedDates)()
    Public Sub New(ByVal HighlightedDates As List(Of HighlightedDates))
        Me.ShowTodayCircle = False
        Me.highlightedDates = HighlightedDates
        range = GetDisplayRange(False)
        SetDayBoxSize()
        SetPosition(Me.highlightedDates)
    End Sub
    ' This method figures out the size of the entire date area portion of the control 
    '   and then divides it up o create a Rectagle for painting to individual dates
    Private Sub SetDayBoxSize()
        Dim bottom As Integer = Me.Height
        While HitTest(1, dayTop).HitArea <> HitArea.[Date] AndAlso HitTest(1, dayTop).HitArea <> HitArea.PrevMonthDate
            dayTop += 1
        End While
        While HitTest(1, bottom).HitArea <> HitArea.[Date] AndAlso HitTest(1, bottom).HitArea <> HitArea.NextMonthDate
            bottom -= 1
        End While
        dayBox = New Rectangle()
        dayBox.Size = New Size(Me.Width / 7, (bottom - dayTop) / 6)
    End Sub
    ' This method determines where in the 7 x 6 array of dates on the control our highlighted dates reside.
    Private Sub SetPosition(ByVal hlDates As List(Of HighlightedDates))
        Dim row As Integer = 0, col As Integer = 0
        hlDates.ForEach(AddressOf ConvertedAnonymousMethod1)
    End Sub
    ' This overrides the message pump and traps the WM_PAINT call
    Protected Overloads Overrides Sub WndProc(ByRef m As Message)
        MyBase.WndProc(m)
        If m.Msg = WM_PAINT Then
            Dim g As Graphics = Graphics.FromHwnd(Me.Handle)
            Dim pea As New PaintEventArgs(g, New Rectangle(0, 0, Me.Width, Me.Height))
            OnPaint(pea)
        End If
    End Sub
    ' Here is where we use our information to selectively draw what we want
    Protected Overloads Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        Dim g As Graphics = e.Graphics
        Dim backgroundRect As Rectangle
        highlightedDates.ForEach(AddressOf ConvertedAnonymousMethod2)
    End Sub
    Private Sub ConvertedAnonymousMethod1(ByVal [date] As HighlightedDates)
        If [date].[Date] >= range.Start AndAlso [date].[Date] <= range.[End] Then
            Dim span As TimeSpan = [date].[Date].Subtract(range.Start)
            Dim row = span.Days / 7
            Dim col = span.Days Mod 7
            [date].Position = New Point(row, col)
        End If
    End Sub
    Private Sub ConvertedAnonymousMethod2(ByVal [date] As HighlightedDates)
        Dim g As Graphics
        Dim backgroundRect = New Rectangle([date].Position.Y * dayBox.Width + 1, [date].Position.X * dayBox.Height + dayTop, dayBox.Width, dayBox.Height)
        If [date].BackgroundColor <> Color.Empty Then
            Using brush As Brush = New SolidBrush([date].BackgroundColor)
                g.FillRectangle(brush, backgroundRect)
            End Using
        End If
        If [date].Bold OrElse [date].DateColor <> Color.Empty Then
            Using textFont As New Font(Font, (IIf([date].Bold, FontStyle.Bold, FontStyle.Regular)))
                TextRenderer.DrawText(g, [date].[Date].Day.ToString(), textFont, backgroundRect, [date].DateColor, TextFormatFlags.HorizontalCenter Or TextFormatFlags.VerticalCenter)
            End Using
        End If
        If [date].BoxColor <> Color.Empty Then
            Using pen As New Pen([date].BoxColor)
                Dim boxRect As New Rectangle([date].Position.Y * dayBox.Width + 1, [date].Position.X * dayBox.Height + dayTop, dayBox.Width, dayBox.Height)
                g.DrawRectangle(pen, boxRect)
            End Using
        End If
    End Sub

End Class

Friend Class HighlightedDates
    Public [Date] As DateTime
    Public Position As New Point(0, 0)
    Public DateColor As Color
    Public BoxColor As Color
    Public BackgroundColor As Color
    Public Bold As Boolean
    ' This constructor is used if you only want to make dates bold. All colors are set to "Empty"(null color)
    Public Sub New(ByVal [date] As DateTime)
        Me.[Date] = [date]
        Me.DateColor = Color.Empty
        Me.BoxColor = Color.Empty
        Me.BackgroundColor = Color.Empty
        Me.Bold = True
    End Sub
    ' This constructor is used if you want colored and/or bolded dates
    Public Sub New(ByVal [date] As DateTime, ByVal dateColor As Color, ByVal bold As Boolean)
        Me.[Date] = [date]
        Me.DateColor = dateColor
        Me.BoxColor = Color.Empty
        Me.BackgroundColor = Color.Empty
        Me.Bold = bold
    End Sub
    ' This constructor is used when you want to control everything
    Public Sub New(ByVal [date] As DateTime, ByVal dateColor As Color, ByVal boxColor As Color, ByVal backgroundColor As Color, ByVal bold As Boolean)
        Me.[Date] = [date]
        Me.DateColor = dateColor
        Me.BoxColor = boxColor
        Me.BackgroundColor = backgroundColor
        Me.Bold = bold
    End Sub
End Class

Private MyDates As List(Of HighlightedDates)

Public Sub New()
    InitializeComponent()
    ' Dates would normally be passed in, in a List. For testing purposes I added the next declaration
    MyDates.Add(New HighlightedDates(Convert.ToDateTime("9/1/2008"), Color.Red, Color.Blue, Color.Pink, True))
    Dim mCal As New MonCal(MyDates)
    Me.Controls.Add(mCal)
End Sub

Private MyDates As New List(Of HighlightedDates)

Private Sub ConvertedAnonymousMethod2(ByVal [date] As HighlightedDates)
    Dim g As Graphics
    Dim backgroundRect = New Rectangle([date].Position.Y * dayBox.Width + 1, [date].Position.X * dayBox.Height + dayTop, dayBox.Width, dayBox.Height)
    If [date].BackgroundColor <> Color.Empty Then
        Using brush As Brush = New SolidBrush([date].BackgroundColor)
            g.FillRectangle(brush, backgroundRect)
        End Using
    End If
    If [date].Bold OrElse [date].DateColor <> Color.Empty Then
        Using textFont As New Font(Font, (IIf([date].Bold, FontStyle.Bold, FontStyle.Regular)))
            TextRenderer.DrawText(g, [date].[Date].Day.ToString(), textFont, backgroundRect, [date].DateColor, TextFormatFlags.HorizontalCenter Or TextFormatFlags.VerticalCenter)
        End Using
    End If
    If [date].BoxColor <> Color.Empty Then
        Using pen As New Pen([date].BoxColor)
            Dim boxRect As New Rectangle([date].Position.Y * dayBox.Width + 1, [date].Position.X * dayBox.Height + dayTop, dayBox.Width, dayBox.Height)
            g.DrawRectangle(pen, boxRect)
        End Using
    End If
End Sub

highlightedDates.ForEach(AddressOf ConvertedAnonymousMethod2)

Protected Overloads Overrides Sub WndProc(ByRef m As Message)
    MyBase.WndProc(m)
    If m.Msg = WM_PAINT Then
        Dim g As Graphics = Graphics.FromHwnd(Me.Handle)
        Dim pea As New PaintEventArgs(g, New Rectangle(0, 0, Me.Width, Me.Height))
        OnPaint(pea)
    End If
End Sub