하나의 하위 프로 시저로 여러 레이블에 대해 mousemove 이벤트를 만드는 방법은 무엇입니까?

Question

나는 수업에서 일하고있는 프로젝트에 대해 다음과 같은 코드를 가지고 있으며 합계 약 9 번 복사해야합니다. 매번 변경 될 유일한 것은 범주 번호와 레이블 이름입니다. 각각에 대해 mousemove 이벤트를 개별적으로 생성해야합니까? 아니면 하나의 하위 절차에서이를 수행 할 수있는 방법이 있습니까? 나는 그것이 더 어렵거나 덜 효율적이라면 그것이 가능하고 어떻게되는지를보고 싶습니다. 고맙습니다.

Private Sub lbl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbl1.MouseMove 
    category = 1 
    scoreRoll() 
    lbl1.Text = score 
End Sub 

이것은 중복 될 수있다. 누군가가 mousemove를 클릭하는 대신에 똑같은 일을하는 방법을 말해 줄 수 있다면 완벽 할 것입니다. 고맙습니다.

Answer 1

여러 컨트롤이 동일한 이벤트를 공유 할 수 있습니다.

Private Sub lbl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbl1.MouseMove, lbl2.MouseMove, lbl3.MouseMove, lbl4.MouseMove, lbl5.MouseMove, lbl6.MouseMove, lbl7.MouseMove, lbl8.MouseMove, lbl9.MouseMove 
    Dim lbl As Label = CType(sender, Label) 

    category = CInt(lbl.Name.Replace("lbl", "")) 
    scoreRoll() 
    lbl.Text = score 
End Sub 

의