我有一个VB.NET程序,其中包含很多嵌入式资源,这些资源都是图像。有没有办法获取数组中的所有资源,以便我可以在for循环中访问它们?
我目前必须这样做:
images(1) = My.Resources.image1
images(2) = My.Resources.image2
'...
images(80) = My.Resources.image80
答案 0 :(得分:2)
或许这样的事情:
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
似乎密钥是资源的名称。