[VB.NET] MonthCalendar の色、フォントを変えたい・・・

カレンダーを表示して日付を選択するケースは少なくありません。

MonthCalendar を使うことも多いと思います。
ただ、残念なのは、初期状態では色やフォントが固定であること。

　　

色やフォントを変えて操作性をアップしましょう。
（フォントサイズを変えると、ヵレンダー自体のサイズも変わります）

　　
　　　（画像に乱れがありますが、色やフォントの変化を分かっていただけると思います）

　　静止画はこんな感じ・・・
　　

各ボタンをクリックした時のコードは次のとおり・・・

　　Windows Form は "frm_Main" です。
　　このフォーム上に "MonthCalendar_P4" を置いています。

　　コードは frm_Main ではなく、別のクラスにあります。

---------------------------------------------------------------------------------------------------------
' --- カレンダー: 色をセット
Public Sub prc_Set_Color_MonthCalendar()
　　' --- カレンダー（MonthCalendar）: XP Visual スタイルを無効にしておく（カレンダーの色を指定するため）
　　With frm_Main.MonthCalendar_P4
　　　　.TitleBackColor = Color.DeepSkyBlue
　　　　.TrailingForeColor = Color.Red
　　　　.TitleForeColor = Color.Yellow
　　　　.BackColor = Color.LemonChiffon
　　End With
End Sub

' --- カレンダー: 色をリセット
Public Sub prc_Reset_Color_MonthCalendar()
　　With frm_Main.MonthCalendar_P4
　　　　.TitleBackColor = Color.White
　　　　.TrailingForeColor = Color.Red
　　　　.TitleForeColor = Color.Black
　　　　.BackColor = Color.White
　　End With
End Sub

' --- カレンダー: フォントをセット
Public Sub prc_Set_Font_MonthCalendar()
　　Dim fontDlg As New FontDialog
　　If (fontDlg.ShowDialog = DialogResult.OK) Then
　　　　With fontDlg
　　　　　　frm_Main.MonthCalendar_P4.Font = New Font(.Font.Name, .Font.Size, .Font.Style)
　　　　End With
　　End If
End Sub

' --- カレンダー: フォントをリセット
Public Sub prc_Reset_Font_MonthCalendar()
　　frm_Main.MonthCalendar_P4.Font = New Font("Meiryo UI", 10, FontStyle.Regular)
End Sub
---------------------------------------------------------------------------------------------------------

なお、上記を動作させるためには次が必要です。
プロジェクトで［XP Visual スタイルを有効にする］のチェックを外しておいてください。
　　

---------------------------------------------------------
ブログ記事についてのお問い合わせは「質疑応答 掲示板」で・・・

　　＃　ご質問にはできる限りお答えしています。
　　　　ただし、お名前（本名）を書いていただいた場合に限らせていただきます。


ここをクリックして、北窓舎のサイトにもお立ち寄りください・・・