次のコードがあります。
Private Sub HomeButtonHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddClass.MouseEnter, BtnEditClass.MouseEnter, BtnViewClass.MouseEnter
Dim Name As String = sender.Image & "Hover"
sender.Image = My.Resources.Name
End Sub
たとえば、私のリソースにはあります。BtnAddClass.png と BtnAddClassHover.png
送信者名の末尾に「Hover」を追加してから、画像の正しいリソースを取得したいと考えています。多くのボタンがあるため、ケースの選択は機能しません。例には3つしか含まれていません。