Получить все ресурсы в массиве

Question

У меня есть программа VB.NET с множеством встроенных ресурсов, которые являются изображениями. Есть ли способ получить все ресурсы в массиве, чтобы я мог получить к ним доступ в цикле for?

В настоящее время я должен сделать это следующим образом:

 images(1) = My.Resources.image1
 images(2) = My.Resources.image2
 '...
 images(80) = My.Resources.image80

Answer 1

Что-то вроде этого возможно:

Dim ResourceSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True)
For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)()
    If TypeOf (Dict.Value) Is Drawing.Image Then
        Debug.WriteLine(Dict.Key) 'outputting resource name
       (Do stuff here)
    End If
Next

Похоже, что ключ - это имя ресурса.