VB.NETのVisibleChangedイベントをButtonをクリックするたびに発動させたい。

Question

前提・実現したいこと

VB.NETで自作のカレンダーを作成しています。
BtnPrevMonthを押すと1か月前のカレンダーを表示させるのですが、その際にVisibleChangeのイベントを発動させたいです。

発生している問題・エラーメッセージ

VisibleChangeイベントが発動しない。

該当のソースコード

VisibleChangeイベントはAddHandlerで発動させています。

 Private Sub Addlabel1DayToF1Day(ByVal startDayAtF1Number As Integer, ByVal totalDaysInMonth As Integer)
        For Each f1 As Button In listF1Day
            f1.Controls.Clear()
        Next
        '//1日から月の最終日まで
        For i As Integer = 1 To totalDaysInMonth
            Dim lbl As New Label
            lbl.Name = $"lblDay{i}"
            lbl.AutoSize = False
            lbl.TextAlign = ContentAlignment.TopLeft
            lbl.Size = New Size(19, 18)
            lbl.Tag = New Date(currentDate.Year, currentDate.Month, i)
            lbl.Text = i
            lbl.Font = New Font("Microsoft Sans Serif", 8)
            listF1Day((i - 1) + (startDayAtF1Number - 1)).Controls.Add(lbl)
            'listF1Day((i)).BackColor = SystemColors.Control
            listF1Day((i - 1) + (startDayAtF1Number - 1)).Tag = New Date(currentDate.Year, currentDate.Month, i)                   'パネルのTagプロパティに日付を入れる

            '//選択中の日付パネル処理
            If Not listF1Day((i - 1) + (startDayAtF1Number - 1)).BackColor = Color.Yellow And Not GNNO.Text = "" Then
                listF1Day(New Date(currentDate.Year, currentDate.Month, 1).DayOfWeek + currentDate.Day - 1).BackColor = Color.Yellow    '今日の日付パネルを取得
            ElseIf listF1Day((i - 1) + (startDayAtF1Number - 1)).BackColor = Color.Yellow And GNNO.Text = "" Then
                listF1Day((i - 1) + (startDayAtF1Number - 1)).BackColor = Color.White
                'AddHandler lbl.Leave, AddressOf lbl_Leave
            End If
            AddHandler lbl.Enter, AddressOf lbl_Click
            AddHandler lbl.Leave, AddressOf lbl_Leave
        Next
        If DateLabel.Text = Today Or Not DateLabel.Text = Today Then
            '入力があれば日報データ表示
            Me.DateValue()
        Else
        End If

    End Sub

試したこと

補足情報（FW/ツールのバージョンなど）

VisualStudio2017,SQLServer

Comments

[Zuishin]

> VisibleChangeイベントはAddHandlerで発動させています。

発動してないんでしょう？

[yurika_21]

Load時には発動しています。
ボタンを押すと同じように発動させたいのですが、ボタンクリックでは発動しません。。

[Zuishin]

AddHandler はイベントの登録なので、「発動」が「イベントの発行」もしくは「イベントの処理」を示すならそこでは「発動」しません。

[Zuishin]

VisibleChanged はその名の通り Visible が変化したときに発行されます。

Visible 無関係に何か処理をしたいのであれば、その「したい処理」をメソッドとして独立させ、VisibleChanged の時、およびボタンクリックの時に呼び出せばいいでしょう。

[yurika_21]

Dim dayf = DirectCast(sender, Button)
Dim ClickDate As Date = dayf.Tag
Dim dread As SqlClient.SqlDataReader
Dim str As String = String.Empty
Try
Using conn As New SqlClient.SqlConnection(pubSqlConnectionString)
conn.Open()
Using cmd As New SqlClient.SqlCommand()
cmd.Connection = conn
cmd.CommandText =
"SELECT TGNSHIDUKE " & ControlChars.NewLine &
"FROM Gyomu_Body " & ControlChars.NewLine &
"WHERE TGNCRTTN = '" & CM0000.login_Pass & "' " & ControlChars.NewLine
dread = cmd.ExecuteReader()

Do While dread.Read()
Dim iIdx As Integer
Dim hiduke As String
iIdx = dread.GetOrdinal("TGNSHIDUKE")
hiduke = dread(iIdx)

If ClickDate.ToString("yyyy/MM/dd") = hiduke Then
dayf.BackColor = Color.Aquamarine
End If

Loop
End Using
End Using
Catch

End Try

こちらのsenderの部分で苦戦しております。
以上のソースの場合、メソッドとして独立させるにはどのようにすればよろしいでしょうか？

[Zuishin]

Button を引数とするメソッドを新しく作り、イベントハンドラの中で Sender を Button にキャストしてからそれを呼び出せばいいと思います。

Answer 1

ボタンクリックベントに、その実行したい処理を書いていけばいいです。

ボタンのクリック時にはVisibleChangedイベントは発動しません（ｱﾀﾘﾏｴ

Comments

[yurika_21]

Dim dayf = DirectCast(sender, Button)
Dim ClickDate As Date = dayf.Tag
Dim dread As SqlClient.SqlDataReader
Dim str As String = String.Empty
Try
Using conn As New SqlClient.SqlConnection(pubSqlConnectionString)
conn.Open()
Using cmd As New SqlClient.SqlCommand()
cmd.Connection = conn
cmd.CommandText =
"SELECT TGNSHIDUKE " & ControlChars.NewLine &
"FROM Gyomu_Body " & ControlChars.NewLine &
"WHERE TGNCRTTN = '" & CM0000.login_Pass & "' " & ControlChars.NewLine
dread = cmd.ExecuteReader()

Do While dread.Read()
Dim iIdx As Integer
Dim hiduke As String
iIdx = dread.GetOrdinal("TGNSHIDUKE")
hiduke = dread(iIdx)

If ClickDate.ToString("yyyy/MM/dd") = hiduke Then
dayf.BackColor = Color.Aquamarine
End If

Loop
End Using
End Using
Catch

End Try

以上のソースはクリックイベントで発動させる場合、どのようにすればTagを取得することが出来ますでしょうか？

[y_waiwai]

Tagとは？？
そもそも、なにをどうしたいってはなしなんでしょうか。