windows - 使用字符串变量作为资源的成员

Question

我有以下代码：

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

我希望将“悬停”附加到发件人姓名的末尾，然后检索图像的正确资源。选择案例不起作用，因为我有很多按钮，示例中只包含 3 个。

Answer 1

像这样做 ..

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

Answer 2

There are a number of ways, but here is a simplistic approach:

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

You cannot then use My.Resources.Name though, it's probably:

My.Resources.ResourceManager.GetObject(Name)

But the object name (of a resource) doesn't include the extension "png", so you probably need:

Name = Name.Replace(".png", "Hover")
sender.Image = My.Resources.ResourceManager.GetObject(Name)