北の窓から(芦田っち)

PC関連と私的雑感のブログ。
2015年7月10日、カッコ内に名前を加えました。昔の友だちに気付いてほしくて・・・

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

2017-12-08 11:29:31 | VB.NET
カレンダーを表示して日付を選択するケースは少なくありません。

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 スタイルを有効にする]のチェックを外しておいてください
  

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

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


ここをクリックして、北窓舎のサイトにもお立ち寄りください・・・
ジャンル:
ウェブログ
コメント   この記事についてブログを書く
« インフレ目標は達成できずと... | トップ | 便利ソフト:ALiS のご紹介 »
最近の画像もっと見る

コメントを投稿

VB.NET」カテゴリの最新記事