레이블의 클릭 이벤트

Question

약 50 개의 레이블이있는 응용 프로그램이 있습니다. 이 레이블에는 숫자가 표시됩니다. 사용자가 라벨을 클릭하면 번호를 입력란에 기록해야합니다. 괜찮습니다. 유일한 문제는 아래와 같이 50 개 기능을 추가했으며 매번 동일합니다. 이 공통 기능이 있는지 궁금합니다. 참고 : 레이블의 이름이 다릅니다. 그래서 이것이 가능한 경우 폼의 모든 레이블에 대해 작동합니다.

Private Sub LI_L_Click(sender As Object, e As EventArgs) Handles LI_L.Click 
    cmbOBJID.Text = LI_L.Text 
End Sub 

Answer 1

폼 디자이너에서 모든 레이블의 처리기를 동일한 기능으로 설정할 수 있어야합니다. 그런 다음 "발신자"매개 변수를 사용하여 어떤 라벨이 이벤트를 발생시키고 있는지 확인할 수 있습니다. 함수에 연결된 모든 컨트롤이 "핸들"키워드 다음에 나와있는 방법도

알 수 있습니다. 이는 Visual Studio UI 속성 표를 사용하여 모든 레이블에 코드를 연결할 수있는 또 다른 방법입니다.

Private Sub LI_Click(sender As Object, e As EventArgs) Handles Label1.Click, Label2.Click, Label3.Click 
    cmdOBJID.Text = DirectCast(sender, Label).Text 
End Sub 

Answer 2

그것은 단지 몇 라벨 이상 지루한 것

Private Sub LI_Click(sender As Object, e As EventArgs) Handles Label1.Click, Label2.Click, Label3.Click 

의 스타일로 하나의 핸들러에 여러 이벤트를 쉽게 추가 할 수 있지만.

핸들러를 추가해야하는 레이블을 참조 할 수있는 방법을 찾을 수 있으면 프로그램 방식으로 핸들러를 추가 할 수 있습니다. 당신은 핸들러를 사용하는 라벨을 선택하는 다른 방법이있을 수 있습니다

Option Infer On 
Option Strict On 

Public Class Form1 

    Sub TransferDataToEditBox(sender As Object, e As EventArgs) 
     Dim lbl = DirectCast(sender, Label) 
     tbEditThis.Text = lbl.Text 

    End Sub 

    Sub InitLabelHandlers() 
     For Each lbl In GroupBoxOptions.Controls.OfType(Of Label) 
      AddHandler lbl.Click, AddressOf TransferDataToEditBox 
     Next 

    End Sub 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     InitLabelHandlers() 

    End Sub 

End Class 

:이 예제에서, 나는 그룹 상자에 이름이 "GroupBoxOptions을"모든 레이블을 넣어.

Answer 3

꽤 빠르고 멋진 솔루션은 폼의 모든 레이블 컨트롤을 트래버스하여 AddHandler 함수를 통해 사용자가 레이블을 클릭 할 때 실행할 이벤트를 할당하는 것입니다. 코드에서

다음 prevous 조각으로

For Each c As Control In Me.Controls.OfType(Of Label) 
     AddHandler c.Click, AddressOf myLabelClick 
    Next 

, 타입 라벨의 모든의 WinForm 컨트롤 위에 우리가 루프. 이와 같은 루프는 이벤트를 할당해야하는 많은 레이블이있는 경우에 유용합니다. 각각에 대해 우리는 이벤트의 Click with myLabelClick이라는 사용자 정의 된 Sub와 컨트롤을 연관시킵니다. 즉, 서브 루틴은 다음과 같이 표시됩니다

Private Sub myLabelClick(sender As Object, e As EventArgs) 
    cmdObjId.Text = DirectCast(sender, Label).Text 
End Sub 

가 여기에 우리가 Text 속성에 액세스하기 (클릭이 완료되었습니다있는 컨트롤을 나타냅니다) 발신자 변수를 사용하고 그에 따라 cmdObjId.Text을 변경합니다.