패널을 클릭하면 포함 라벨의 클릭 이벤트가 트리거됩니다.

Question

맞춤 캘린더를 만들었으며 약간 문제가 있습니다. 제목에서 알 수 있듯이 패널을 클릭하면 클릭 이벤트가 발생합니다. 여기 내 코드가있다.

클릭 이벤트 :

Private Sub label_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m1.Click, m2.Click, m3.Click, m4.Click, m5.Click, m6.Click, tu1.Click, tu2.Click, tu3.Click, tu4.Click, tu5.Click, tu6.Click, w1.Click, w2.Click, w3.Click, w4.Click, w5.Click, w6.Click, th1.Click, th2.Click, th3.Click, th4.Click, th5.Click, th6.Click, f1.Click, f2.Click, f3.Click, f4.Click, f5.Click, f6.Click, sa1.Click, sa2.Click, sa3.Click, sa4.Click, sa5.Click, sa6.Click, su1.Click, su2.Click, su3.Click, su4.Click, su5.Click, su6.Click 

    Dim clickedLabel = TryCast(sender, Label) 
    If clickedLabel IsNot Nothing Then 
     If clickedLabel.ForeColor = Color.Black Then Exit Sub 
     clickedLabel.ForeColor = Color.Green 
    End If 
     End Sub 

Answer 1

다음은 예입니다. 레이블을 찾으려면 코드를 조정해야 할 수도 있습니다.

Private Sub panel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    Dim panel = CType(sender, Panel) 
    Dim label = panel.Controls.OfType(Of Label).Single 
    label_Click(label, e) 
End Sub 

다음은 동적으로 핸들러를 연결하는 예입니다. 다시 한번 패널/라벨을 찾으려면 코드를 조정해야하지만 모든 핸들 조항을 추가하지 않아도됩니다.

Private Sub AddHandlers() 
    For Each panel In Me.Controls.OfType(Of Panel)() 
     Dim label = panel.Controls.OfType(Of Label).Single 
     AddHandler panel.Click, AddressOf panel_Click 
     AddHandler label.Click, AddressOf label_click 
    Next 

End Sub 

Answer 2

코드에이 내용을 추가하기 만하면됩니다.

label1_Click(sender, e)