Заполните массив изображениями ресурсов

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), но это может быть не по порядку.