2014-11-08 144 views
0

我的资源1包含名为dot1,dot2,dot3等的图形文件,每个图像文件都代表骰子墙的图像。 我的游戏类有方法的UpdateView()无法从资源中获取图像

Public Sub updateView() 
    Dim imageName As String 

    image = "dot" & ToString(dice1.getDots()) 
    Form1.PictureBox1.Image = CType(My.Resources.ResourceManager.GetObject(imageName), Image) 

    image = "dot" & ToString(dice2.getDots()) 
    Form1.PictureBox2.Image = CType(My.Resources.ResourceManager.GetObject(imageName), Image) 

    ... etc. 
End Sub 

我想与图片来自reasource箱取决于轧号更新Form1上5个pictureboxes。此代码不工作,我不知道为什么。

ps。对不起英文不好

回答

0

看来你试图GetObject(imageName),其中imageName被声明为空字符串。你可以解决这个问题的方式有两种定义imageName,或搜索您在image变量创建的字符串:

Dim imageName As String 

imageName = "dot" & ToString(dice1.getDots()) 
Form1.PictureBox1.Image = CType(My.Resources.ResourceManager.GetObject(imageName), Image) 

,或者

image = "dot" & ToString(dice1.getDots()) 
Form1.PictureBox1.Image = CType(My.Resources.ResourceManager.GetObject(image), Image) 

在这两种情况下,使用Option Strict将有助于解决问题像这些。