0

次のコードがあります。

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つしか含まれていません。

4

2 に答える 2

0

このようにしてください..

Private Sub HomeButtonHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddClass.MouseEnter, BtnEditClass.MouseEnter, BtnViewClass.MouseEnter
    Dim btn As Button = CType(Sender,Button)
    Dim Name As String = btn.Image.ToString & "Hover"
    btn.Image = My.Resources.ResourceManager.GetObject(Name)
End Sub
于 2013-07-03T23:33:13.590 に答える
0

いくつかの方法がありますが、ここでは単純なアプローチを示します。

Dim Name As String = sender.Image
Name = Name.Replace(".png", "Hover.png")

ただし、使用することはできませんMy.Resources.Name。おそらく次のとおりです。

My.Resources.ResourceManager.GetObject(Name)

ただし、(リソースの) オブジェクト名には拡張子「png」が含まれていないため、おそらく次のものが必要です。

Name = Name.Replace(".png", "Hover")
sender.Image = My.Resources.ResourceManager.GetObject(Name)
于 2013-07-03T20:53:35.063 に答える