使用资源图像填充数组

Question

我正在尝试用VB制作一个二十一点游戏。我想做的是用每个卡填充一个数组，这样我就可以随机生成整数并使用这些整数从数组中提取索引，基本上随机选择一张卡。

我的问题是我似乎无法将资源文件夹中的图像放入数组中。我想使用For / Next循环来填充数组，因为我宁愿不手动将所有52张卡分配给数组。我试着这样做：

Dim CardArray(51) As Image
Dim LoopIndexInteger As Integer

For LoopIndexInteger = 0 To 51
CardArray(LoopIndexInteger) = My.Resources.ResourceManager.GetObject(LoopIndexInteger)
    Next

我哪里错了？

Answer 1

GetObject获取资源名称，而不是索引 您需要构建一个资源的名称。

最简单的方法是将资源Card0命名为Card51并调用GetObject("Card" & CInt(LoopIndexInteger))

编辑：您也可以循环My.Resources.ResourceManager.GetResourceSet(CultureInfo.CurrentCulture, false, true)，但可能不是有序的。