如何使用一个子过程为多个标签创建 mousemove 事件？

Question

我在课堂上工作的项目有以下代码，我总共需要复制大约 9 次。每次唯一会改变的是类别编号和标签名称加 1。我是否必须为每个单独创建一个 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

据说这可能是重复的。如果有人能告诉我如何用鼠标移动而不是点击来做同样的事情，那将是完美的。谢谢。

Answer 1

多个控件可以共享同一个事件。您只需检查sender 变量以查看它是哪一个并进行适当处理：

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