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