Question

所以我在参考资料中获得了一堆图片，包括猫，狗和鼠标的3张照片。我必须向用户询问他们想要看到的动物，然后显示正确的图片。目前我有类似的东西。

    Dim animal = InputBox("Enter an animal to show a picture of")
    PictureBox1.Image = My.Resources.animal

但我无法将该属性设置为＆＃34;动物＆＃34;字符串。

我该怎么做。

Answer 1

Dim animalResource As Object = System.Resources.ResourceManager.GetObject(animal)    
PictureBox1.Image = TryCast(animalResource, System.Drawing.Image)

Answer 2

您可以使用ResourceManager class：

'Get the resource (it exists).
Dim Resource As Object = My.Resources.ResourceManager.GetObject(animal)

'Verify that the resource exists and that it is an, or derives from Image.
If Resource IsNot Nothing AndAlso GetType(Image).IsAssignableFrom(Resource.GetType()) Then
    PictureBox1.Image = DirectCast(Resource, Image) 'Cast the resource to an image and display it in the picture box.
End If

如何将属性设置为String

2 个答案: