Наведите мышь на несколько кнопок

Question

У меня есть 5 кнопок и 5 ярлыков. Я хочу получить значение label.text, когда моя мышь наводится на кнопку и переходит к ней в текстовое поле.

Код

Private Sub btnRoomA_MouseHover(sender As Object, e As EventArgs) Handles btnRoomA.MouseHover 
     notransaksiMouse = lblTransaksiRA.Text 
     textbox1.text = noTransaksiMouse 
    End Sub 

    Private Sub btnRoomB_MouseHover(sender As Object, e As EventArgs) Handles btnRoomB.MouseHover 
     notransaksiMouse = lblTransaksiRB.Text 
     textbox1.text = noTransaksiMouse 
    End Sub 

    Private Sub btnRoomC_MouseHover(sender As Object, e As EventArgs) Handles btnRoomC.MouseHover 
     notransaksiMouse = lblTransaksiRC.Text 
     textbox1.text = noTransaksiMouse 
    End Sub 

    Private Sub btnRoomD_MouseHover(sender As Object, e As EventArgs) Handles btnRoomD.MouseHover 
     notransaksiMouse = lblTransaksiRD.Text 
     textbox1.text = noTransaksiMouse 
    End Sub 

    Private Sub btnRoomE_MouseHover(sender As Object, e As EventArgs) Handles btnRoomE.MouseHover 
     notransaksiMouse = lblTransaksiRE.Text 
     textbox1.text = noTransaksiMouse 
    End Sub 

Проблема Я хотел бы это все частные суб 1 частных суб но я понятия не имею .. я попробовать этот код:

 Private Sub btnRoomE_MouseHover(sender As Object, e As EventArgs) Handles btnRoomA.MouseHover,btnRoomB.MouseHover,btnRoomC.MouseHover,btnRoomD.MouseHover,btnRoomE.MouseHover 
     notransaksiMouse = lblTransaksiRE.Text 
     textbox1.text = noTransaksiMouse 
    End Sub 

Answer 1

Попробуйте это:

Private Sub btn_MouseHover(sender As Object, e As EventArgs) & _ 
Handles btnRoomA.MouseHover, btnRoomB.MouseHover, btnRoomC.MouseHover, btnRoomD.MouseHover, btnRoomE.MouseHover 
    Dim btn As Button = CType(sender, Button) 

    Select Case btn.Name 
     Case "btnRoomA" : noTransaksiMouse = lblTransaksiRA.Text 
     Case "btnRoomB" : noTransaksiMouse = lblTransaksiRB.Text 
     Case "btnRoomC" : noTransaksiMouse = lblTransaksiRC.Text 
     Case "btnRoomD" : noTransaksiMouse = lblTransaksiRD.Text 
     Case "btnRoomE" : noTransaksiMouse = lblTransaksiRE.Text 
    End Select 

    TextBox1.Text = noTransaksiMouse 
End Sub 

Answer 2

Try это ....

Private Sub btnRoomMouseHover(sender As Object, e As EventArgs) Handles btnRoomA.MouseHover, btnRoomB.MouseHover, btnRoomC.MouseHover, btnRoomD.MouseHover, btnRoomE.MouseHover 

    Dim s as String = CType(sender,Button).Name 
    Dim lbl as Label = CType(Me.Controls("lblTransaksiR" & s.Substring(7)), Label) 
    notransaksiMouse = lbl.Text 
    textbox1.text = noTransaksiMouse 
End Sub