VB.NETでカレンダーで現在の日にちに印または色を変えたい

Question

前提・実現したいこと

Visual Studio2017のVB.NETでカレンダーを制作しております。
現在の日にちに印またはパネルの色を変えたいです。

また日にちをクリックすると別ページのForm1に画面遷移させたです。

利用環境：Visual Studio2017
WindowsFormで作成しています。

こちらが現在のソースコードになります。

Public Class Form2
    '--------------------------------------------------------------------------------------------------------
    '今日の日付・曜日を取得する
    '--------------------------------------------------------------------------------------------------------
    Private listF1Day As New List(Of FlowLayoutPanel)
    Private currentDate As DateTime = DateTime.Today
    '--------------------------------------------------------------------------------------------------------
    'Panelの設定
    '--------------------------------------------------------------------------------------------------------
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        GenerateDayPanel(42)
        DisplayCurrentDate()
    End Sub
    '--------------------------------------------------------------------------------------------------------
    '月初めの日にちの設定
    '--------------------------------------------------------------------------------------------------------
    Private Function GetFirstDayOfWeekOfCurrentDate() As Integer
        Dim firstDayOfMonth As DateTime = New Date(currentDate.Year, currentDate.Month, 1)
        Return firstDayOfMonth.DayOfWeek + 1
    End Function
    '--------------------------------------------------------------------------------------------------------
    '月終わりの日にちの設定
    '--------------------------------------------------------------------------------------------------------
    Private Function GetTotalDaysOfCurrentDate() As Integer
        Dim firstDayOfCurrentDate As DateTime = New Date(currentDate.Year, currentDate.Month, 1)
        Return firstDayOfCurrentDate.AddMonths(1).AddDays(-1).Day
    End Function
    '--------------------------------------------------------------------------------------------------------
    '左上年月設定
    '--------------------------------------------------------------------------------------------------------
    Private Sub DisplayCurrentDate()
        lblMonth.Text = currentDate.ToString("yyyy.MMMM")
        Addlabel1DayToF1Day(GetFirstDayOfWeekOfCurrentDate(), GetTotalDaysOfCurrentDate())
    End Sub
    '--------------------------------------------------------------------------------------------------------
    '右上ボタン
    '--------------------------------------------------------------------------------------------------------
    Private Sub PrevMonth()
        currentDate = currentDate.AddMonths(-1)
        DisplayCurrentDate()
    End Sub

    Private Sub NextMonth()
        currentDate = currentDate.AddMonths(1)
        DisplayCurrentDate()
    End Sub

    Private Sub Today()
        currentDate = DateTime.Today
        DisplayCurrentDate()
    End Sub
    '--------------------------------------------------------------------------------------------------------
    '日付のPanel設定
    '--------------------------------------------------------------------------------------------------------
    Private Sub GenerateDayPanel(ByVal totalDays As Integer)
        f1Days.Controls.Clear()
        listF1Day.Clear()

        For i As Integer = 1 To totalDays
            Dim f1 As New FlowLayoutPanel
            f1.Name = $"f1Day{i}"
            f1.Size = New Size(144, 79)
            f1.BackColor = Color.White
            f1Days.Controls.Add(f1)
            f1.BorderStyle = BorderStyle.FixedSingle
            listF1Day.Add(f1)
        Next
    End Sub
    '--------------------------------------------------------------------------------------------------------
    '日付Panelの日にち設定
    '--------------------------------------------------------------------------------------------------------
    Private Sub Addlabel1DayToF1Day(ByVal startDayAtF1Number As Integer, ByVal totalDaysInMonth As Integer)
        For Each f1 As FlowLayoutPanel In listF1Day
            f1.Controls.Clear()
        Next

        For i As Integer = 1 To totalDaysInMonth
            Dim lbl As New Label
            lbl.Name = $"lblDay{i}"
            lbl.AutoSize = False
            lbl.TextAlign = ContentAlignment.MiddleRight
            lbl.Size = New Size(122, 22)
            lbl.Text = i
            lbl.Font = New Font("Microsoft Sans Serif", 12)
            listF1Day((i - 1) + (startDayAtF1Number - 1)).Controls.Add(lbl)
        Next
    End Sub
    '--------------------------------------------------------------------------------------------------------
    'ボタンの設定
    '--------------------------------------------------------------------------------------------------------
    Private Sub btnPrevMonth_Click(sender As Object, e As EventArgs) Handles btnPrevMonth.Click
        PrevMonth()
    End Sub

    Private Sub btnNextMonth_Click(sender As Object, e As EventArgs) Handles btnNextMonth.Click
        NextMonth()
    End Sub

    Private Sub btnToday_Click(sender As Object, e As EventArgs) Handles btnToday.Click
        Today()
    End Sub
End Class

!明](ffcbf1edd50d013f6f2b614f4971be15.jpeg)

Comments

[YAmaGNZ]

具体的にどの部分が分からないのでしょうか？

[退会済みユーザー]

無知で大変お恥ずかしい限りですが、何がわからないかもわかっていないのが現状です。。

実装したいイメージはあるのですがコードそのものの書き方があまりわかりません。。

[YAmaGNZ]

例えば、「本日の色を変更したい」という機能を実装する場合
１．「本日」の月日を求める
２．その月日のパネルがどれか調べる
３．該当のパネルの色を変える
といったことをしなくてはなりません。
このうち何が分からないのでしょうか？ということです。
機能を一気に言葉にせず、段階を追って考えて、それのどこが分からないのか考えてみましょう。

また、質問にコードを書く際にはマークダウンを利用しましょう。
https://teratail.com/help/question-tips#questionTips3-7

[退会済みユーザー]

丁寧にアドバイス頂き誠にありがとうございます。
現時点では
1.本日の月日を求める
2.その月日のパネルがどれか調べる

がわからない部分になります。

[YAmaGNZ]

落ち着いて編集してください。
ソースコードの部分ではなく、本文の部分がcodeとして囲まれています。
PCであれば、プレビューが見れると思いますので、そちらで表示の確認をしてください。

[退会済みユーザー]

大変申し訳ございません。
修正いたしました。

Answer 1

本日が何月何日か得る方法ですが
currentDateの年や月を取得していたりするので、年、月、日を取得する方法は分かるのではないかと思います。

また、本日にあたるパネルの求め方ですが、
左上から右にlistF1Day(0)、listF1Day(1)となっているのは分かるかと思います。
そうなれば、その月の1日のインデックスは分かるのですから、それに本日の日を足してやれば、該当のパネルを求めることができます。
例えば、2020/05の場合の1日はlistF1Day(5)となっているのが分かるはずです。
（これは、実際に日付の数字のラベルを設定しているので求め方は分かるはずです）

このように本日のパネルを求める時に使うものに関しては現在のソースにちりばめられていますので、しっかり理解し考えてみてください。

また、日にちをクリックすると別ページのForm1に画面遷移させたいとのことですが、
これに関しては、各パネルにClickイベントのイベントハンドラを追加する必要があります。

Private Sub GenerateDayPanel(ByVal totalDays As Integer)
    f1Days.Controls.Clear()
    listF1Day.Clear()

    For i As Integer = 1 To totalDays
        Dim f1 As New FlowLayoutPanel
        f1.Name = $"f1Day{i}"
        f1.Size = New Size(144, 79)
        f1.BackColor = Color.White
        f1Days.Controls.Add(f1)
        f1.BorderStyle = BorderStyle.FixedSingle
        
        'クリックイベントのイベントハンドラを追加する
        AddHandler f1.Click, AddressOf Day_Click

        listF1Day.Add(f1)
    Next
End Sub

Private Sub Day_Click(sender As Object, e As EventArgs)
    'クリックされたオブジェクトをFlowLayoutPanel型にキャストする
    Dim dayf = DirectCast(sender, FlowLayoutPanel)

    Debug.WriteLine($"{dayf.Name}")

    'ここで日付を求めて、Form1を開く
End Sub

あとは、クリックされたものから日付を求めればよろしいかと思います。

各パネルのTagプロパティに、そのパネルが表示している日を格納しておくと
各処理が楽になるかもしれません。

Comments

[退会済みユーザー]

丁寧にありがとうございます。
大変助かりました。

[退会済みユーザー]

お世話になります。

回答いただいたのちに自分自身で試してみたのですが、上手くいきません。
もしよろしければソース例を見せていただく事は可能でしょうか？

[YAmaGNZ]

試してみたソースを提示していただければ、何が原因でうまくいかないのか指摘することは可能だと思います。

[退会済みユーザー]

かなり前に書いたソースということもあって、どのコードがどのような機能を実装しているのか理解できてない状況になります。
ですので、ソースの意味自体がわかっていないのでソース例が戴きたいです。

[YAmaGNZ]

すみません。状況が今一理解できていないのですが、
5/18に質問に提示されたコードに対して、私の回答を見て試された結果思った動作をしなかったのですよね？
その試されたコードはどうなっていますか？という問いだったのですが、かなり前に書いたとはどういうことなのでしょうか？

[退会済みユーザー]

申し訳ございません。
試したコードに関しては上手くいかず削除してしまいました。

「かなり前に書いたコード」の意味に関しては質問に提示したコードになります。

[YAmaGNZ]

listF1Day(New Date(年, 月, 1).DayOfWeek)
これで指定の年月の1日のパネルが分かります。これを元に当日の日の分（例えば20日なら+19）加算すれば当日のパネルが分かりますよね

回答したことのどこが理解出来ていないのかこちらも分かりませんので、そのあたりを教えていただければ、アドバイスできるかと思います。

[退会済みユーザー]

そちらのコードをどちらに入力すればよいのでしょうか？

[YAmaGNZ]

当月を表示する時に処理すればいいのではないですか？

まずは、ご自身の書いたコードを理解されることをお勧めします。
このままですと、少し手を加えたいなど修正が発生した場合に何も出来ませんよ

[退会済みユーザー]

度々申し訳ございません。
当日の日の分を加算するとのことですが当日の日を足すソースがいまいちわかりません。

[YAmaGNZ]

New Date(年, 月, 1).DayOfWeek
これで指定年月の1日の曜日を0～6であらわすことになります。
それに指定日の日-1を足せばいいことになります。

[退会済みユーザー]

Private Sub DisplayCurrentDate()
lblMonth.Text = currentDate.ToString("yyyy.MMMM")
Addlabel1DayToF1Day(GetFirstDayOfWeekOfCurrentDate(), GetTotalDaysOfCurrentDate())
End Sub

の中で処理すればよいのでしょうか？

[YAmaGNZ]

そこでも出来るでしょうし、そこじゃなくても出来るでしょう。
大事なのは、ご自身がソースを理解して納得して手を入れるということです。

[退会済みユーザー]

ありがとうございます。

あとクリックされたパネルの日付の求め方がわかりません。
度々申し訳ございません。

[YAmaGNZ]

どのパネルがクリックされたかというのは分かりますか？

[退会済みユーザー]

FlowLayoutPanelでしょうか？

[退会済みユーザー]

現在ですが、わかりやすくするためにクリックするとメッセージボックスを出すようにしています。
ですが、日付ではなくパネルの番号が入ってしまいので日付に変更したいです。
Private Sub GenerateDayPanel(ByVal totalDays As Integer)
f1Days.Controls.Clear()
listF1Day.Clear()

For i As Integer = 1 To totalDays
Dim f1 As New FlowLayoutPanel
f1.Name = $"Day{i}"
f1.Size = New Size(144, 69)
f1.BackColor = Color.White
f1Days.Controls.Add(f1)
f1.BorderStyle = BorderStyle.FixedSingle

AddHandler f1.Click, AddressOf Day_Click
listF1Day.Add(f1)
Next
End Sub
Private Sub Day_Click(sender As Object, e As EventArgs)
'クリックされたオブジェクトをFlowLayoutPanel型にキャストする
Dim dayf = DirectCast(sender, FlowLayoutPanel)

MessageBox.Show($"{dayf.Name}")

'ここで日付を求めて、Form1を開く
Dim lbl As New Label

End Sub

[YAmaGNZ]

クリックされたパネルを取得できているのであれば、listF1Dayの中から名前が同じものを探すなどして、listF1Dayの何番目のパネルか取得できるはずです。
クリックされたパネルのインデックス（listF1Dayの何番目）が分かれば、1日が格納されているパネルのインデックスを引けば、そのパネルが何日のパネルなのか分かります。
例えば、クリックされたパネルが12番目のパネルで1日のパネルが5番目だった場合
12-5+1で8日となります。

表示している年月は分かるので、それらと組み合わせれば、クリックしたパネルが示す日付を求めることが出来ます。

[YAmaGNZ]

ただ、Addlabel1DayToF1Dayにてそのパネルにいつの日付を表示するのかわかるので
listF1Day((i - 1) + (startDayAtF1Number - 1)).Tag = New Date(currentDate.Year, currentDate.Month, i)
といった感じでTagプロパティに日付を入れてやれば、
クリックイベントにて
Dim ClickDate = dayf.Tag
とすれば、クリックしたパネルの日付をすぐに取得できます。
こういう意味で、回答に

各パネルのTagプロパティに、そのパネルが表示している日を格納しておくと
各処理が楽になるかもしれません。

と書きました。

[退会済みユーザー]

ありがとうございます。
無事にできました！

あとは

Private Sub Day_Click(sender As Object, e As EventArgs)
'クリックされたオブジェクトをFlowLayoutPanel型にキャストする
Dim dayf = DirectCast(sender, FlowLayoutPanel)
Dim ClickDate = dayf.Tag
MessageBox.Show($"{ClickDate}")
End Sub

にしたときに時間まで表記されるのですがどうすれば消せますでしょうか？
ToStringを使用したところエラーが出てしまいました。

[YAmaGNZ]

どのように記述して、どのようなエラーが出たのでしょうか？

[退会済みユーザー]

Private Sub Day_Click(sender As Object, e As EventArgs)
'クリックされたオブジェクトをFlowLayoutPanel型にキャストする
Dim dayf = DirectCast(sender, FlowLayoutPanel)

'ここで日付を求めて、Form1を開く
Dim ClickDate = dayf.Tag
MessageBox.Show($"{ClickDate.ToString("yyyy.MMMM")}")

End Sub

このようにしたところエラーが”正しくない形式です”と出ました。

[YAmaGNZ]

Dim ClickDate As Date = dayf.Tag
と型を指定すればよろしいかと思います。
また、日付を確認するのに何故月までしか表示しないのでしょうか？

あと注意点としては、
表示月を変更した時の空白部分のTagプロパティをどうするか
空白部分をクリックした時の対応
を考える必要があります。
これについては、Tagプロパティに空白と分かる値を入れて、クリック時に空白を示す値であれば無視をするという対応を行えばよろしいかと思います。

[退会済みユーザー]

If文はわかるのですが、何もしない処理の時はThenの後に何を入れるべきでしょうか？

[YAmaGNZ]

何かする場合にIf文内に入るようにすれば、何かしない場合は実行されませんよ

[退会済みユーザー]

度々申し訳ございません。

現在の日にちパネルの背景色を変えるコードについてですが
listF1Day(New Date(currentDate.Year, currentDate.Month, i).DayOfWeek).BackColor =Color.Yellow
で最初の週を0～6であらわすのはわかったのですが、そこから現在の日を表すコードがわかりません。

[YAmaGNZ]

前にコメントした
---
listF1Day(New Date(年, 月, 1).DayOfWeek)
これで指定の年月の1日のパネルが分かります。これを元に当日の日の分（例えば20日なら+19）加算すれば当日のパネルが分かりますよね
---
これを良く考えてください。

[退会済みユーザー]

listF1Day(New Date(年, 月, 1).DayOfWeek+(i-1))
＋当日の日ー１という認識でこのコードになるのですがうまく動かないです。。

[YAmaGNZ]

私には
先ほどのコメントの
listF1Day(New Date(currentDate.Year, currentDate.Month, i).DayOfWeek)
と今のコメントの
listF1Day(New Date(年, 月, 1).DayOfWeek+(i-1))
は違った意味のコードに見えますがどういうことですか？
また、うまく動かないとはどういう動きをすることですか？
ここでいう「i」とは何を指す変数ですか？

VisualStudioを使用してのデバッグしていますか？
ステップ実行するなどして、自分で作ったプログラムがどう動くか確認するのは必須です

[退会済みユーザー]

最初のiは間違っておりました。
listF1Day(New Date(currentDate.Year, currentDate.Month, 1).DayOfWeek+(i-1))

iは1日から月終わりのまでのパネルを指す変数です。
上記のソースですと日にちが入っているパネル全ての色が変わってしまいます。。

[YAmaGNZ]

iが1日～月末までを指す（多分ループで回しているのだとは思いますが）のであれば、1日～月末まで色が変わるのは当たり前じゃないですか？
私が書いたのは「当日の日」であって、「当日の日」以外を処理するようには書いてないのですが・・・
ご自身が手を入れたコードを理解していないということですよね？

[退会済みユーザー]

お恥ずかしい話ですが自分で書いたコードがあまり理解できておりません。
当日の日と当日の日以外の区別もあいまいなのが現状です。

ご迷惑をおかけし大変申し訳ございません。