Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/c/67.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net net,如何将字符串识别为代码?_Vb.net_Visual Studio - Fatal编程技术网

Vb.net net,如何将字符串识别为代码?

Vb.net net,如何将字符串识别为代码?,vb.net,visual-studio,Vb.net,Visual Studio,我正在制作一个程序,它有一个充满图像的数组,所有的图像都在开始时加载。 为了做到这一点,我一直在使用这个代码 Image(1) = My.Resources._0 Image(2) = My.Resources._5 Image(3) = My.Resources._10 Image(4) = My.Resources._15 Image(5) = My.Resources._20 依此类推,直到图(72)。但我现在想把它增加到360,我更愿意让它自动填

我正在制作一个程序,它有一个充满图像的数组,所有的图像都在开始时加载。 为了做到这一点,我一直在使用这个代码

    Image(1) = My.Resources._0
    Image(2) = My.Resources._5
    Image(3) = My.Resources._10
    Image(4) = My.Resources._15
    Image(5) = My.Resources._20
依此类推,直到图(72)。但我现在想把它增加到360,我更愿意让它自动填补我的空缺。。。所以手动代码是

    Image(1) = My.Resources._1
    Image(2) = My.Resources._2
    Image(3) = My.Resources._3
等等,直到

    Image(360) = My.Resources._360
但这需要一段时间,而且不是很紧凑,也不容易改变。。。所以我想让它重复一次。。。到目前为止我有这个

    Dim Count2 As Integer = 1
    Dim Resource As String

    Do Until Count2 = 361
        Resource = ("My.Resources._" + Text(Count2))
        Image(Count2) = Resource
        Count2 = Count2 + 1
    Loop
所以我对这段代码的唯一问题是,它不能将“Resource”变量识别为代码。。。所以

    Dim Resource As String

    Resource = ("My.Resources._" + Text(1))
    Image = Resource
不将资源视为

    My.Resources._1
    "My.Resources._1"
它将资源视为

    My.Resources._1
    "My.Resources._1"

您应该能够像这样循环:

Dim i As Integer
For i = 1 To 360
    Image(i) = My.Resources.ResourceManager.GetObject("_" + i.ToString)
Next i

这不是vba,而是vb.net任务。行动,现已修复:)@Pᴇʜ我的资源。是告诉程序查看其保存的资源然后_0的代码,是资源中的文件吗?非常感谢!!!!如果这回答了你的问题,请投票/将其标记为已解决:完成:),thanks@PEH我有第二个问题。。。就是你刚才给我的密码。。。我让它在计时器上每隔16毫秒做一次picMyShip.Image=Image(CurrentImage。。。当图像在62到72之间时,就会崩溃