次の手順があります。
Private Sub btnRptEmployeePayToMarket_MouseDown(ByValsender As Object, ByVal myButton As System.Windows.Forms.MouseEventArgs) Handles btnRptEmployeePayToMarket.MouseDown
Static Toggle As Boolean
If myButton.Button = MouseButtons.Right Then
If Toggle Then
descForm.Hide()
Else
descForm.lblReportTitle.Text = "Ranges to Market"
descForm.txtButtonDescription.Text = "Learn how you are currently paying specific departments or jobs compared to market. "
descForm.Show()
End If
End If
Toggle = Not Toggle
End Sub
同じアクションを実行する約 9 つのボタンがありますが、descForm.lblReportTitle と descForm.txtButtonDescription のテキストを変更するだけなので、どうすればこれを達成できますか?
サブを関数に変えることを考えましたが、それを達成する方法がわかりません。