VS2015 using VB - Month Calendar

Question

I can not make the Month Calendar larger or change colors in the Month Calendar.  The size parameter does not change the size and changing the Background and forecolor does not change.

---

Edcal

Answer 1

You must disable Visual Styles for the control to change colors (with SetWindowTheme() for example):

<DllImport("Uxtheme.dll", SetLastError:=True)>
Public Shared Function SetWindowTheme(ByVal hWnd As IntPtr, ByVal pszSubAppName As String, ByVal pszSubIdList As String) As Integer    
End Function

Answer 2

I don't think you can resize it.

Answer 3

Set Max and Min sizes, that will get you started.

---

Please remember to mark the replies as answers if they help and unmark them if they provide no help, this will help others who are looking for solutions to the same or similar problem. Contact via my Twitter (Karen Payne) or Facebook (Karen Payne) via my MSDN profile but will not answer coding question on either.
VB Forums - moderator

Answer 4

 If you have not changed the MaximumSize from the default of (0,0),  then you can resize it in the designer window.  Just be aware that it's size will snap the size to fit 1 month more after you have resized it enough.  For example, notice how jumps to the next size that fits another full month...

 

  You can also set the CalendarDimensions property to set the columns/rows of months to display in the designer window.  If doing it in code then use the SetCalendarDimensions method to set it as shown in the example below.  As far as changing the colors and the Font size,  you will need to disable the control from using visual styles as Castorix31 mentioned.  That is also shown in the example below.

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("uxtheme.dll")>
    Private Shared Function SetWindowTheme(ByVal hwnd As IntPtr, <MarshalAs(UnmanagedType.LPWStr)> ByVal pszSubAppName As String, <MarshalAs(UnmanagedType.LPWStr)> ByVal pszSubIdList As String) As Integer
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SetWindowTheme(MonthCalendar1.Handle, "", "") 'disable the visual style for the MonthCalandar control
        MonthCalendar1.SetCalendarDimensions(3, 2) 'display 3 months horizontally and 2 months vertically
        MonthCalendar1.ScrollChange = 3 'scroll 3 months at a time when the user clicks the left or right scroll arrows
        MonthCalendar1.BackColor = Color.Blue
        MonthCalendar1.ForeColor = Color.White
        MonthCalendar1.TitleBackColor = Color.WhiteSmoke
        MonthCalendar1.TitleForeColor = Color.Black
        MonthCalendar1.TrailingForeColor = Color.Red
        MonthCalendar1.Font = New Font(MonthCalendar1.Font.FontFamily, 10, FontStyle.Bold) 'make the font bigger to make each month of the calendar bigger.
    End Sub
End Class

 

 Here is what the above example looks...

 If you want just one month shown and just want the month to be larger,  then you can just disable it from using visual styles and set it's font larger....

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("uxtheme.dll")>
    Private Shared Function SetWindowTheme(ByVal hwnd As IntPtr, <MarshalAs(UnmanagedType.LPWStr)> ByVal pszSubAppName As String, <MarshalAs(UnmanagedType.LPWStr)> ByVal pszSubIdList As String) As Integer
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SetWindowTheme(MonthCalendar1.Handle, "", "") 'disable the visual style for the MonthCalandar control
        MonthCalendar1.BackColor = Color.Blue
        MonthCalendar1.ForeColor = Color.White
        MonthCalendar1.TitleBackColor = Color.WhiteSmoke
        MonthCalendar1.TitleForeColor = Color.Black
        MonthCalendar1.TrailingForeColor = Color.Red
        MonthCalendar1.Font = New Font(MonthCalendar1.Font.FontFamily, 24, FontStyle.Bold) 'make the font bigger to make each month of the calendar bigger.
    End Sub
End Class

 

 That example looks like this...

---

If you say it can`t be done then i`ll try it