获取数组中的所有资源

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

看来关键是资源的名称。