如何获取资源文件中所有资源的名称

Question

在 Visual Basic 项目中，我添加了一个包含一堆图像的资源文件 (resx)。

现在我想查询图像的名称。 如果我在 Visual Studio IDE 的设计器视图中打开 resx 文件并选择一个图像，属性网格会显示一个名称属性（默认为“没有扩展名的文件名，但可以更改）。

背景是我有一个图像列表，是在运行时创建的，并填充了资源文件中的图像，为了能够通过密钥访问这些图像，我必须将其设置

为如下（所有内容都是硬编码的）：

Dim imagelist as new Imagelist
imageList.Images.Add("A", My.Resources.MyImages.A)
imageList.Images.Add("B", My.Resources.MyImages.B)
imageList.Images.Add("C", My.Resources.MyImages.C)
imageList.Images.Add("D", My.Resources.MyImages.D)
imageList.Images.Add("E", My.Resources.MyImages.E)
....
imageList.Images.Add("XYZ", My.Resources.MyImages.XYZ)

我想实现这一点

Dim imagelist as new ImageList

For Each img in GetMeAllImagesWithNameFromMyResourceFile
    imageList.Images.Add(img.Name, img.ImageFile)
Next

： Name 是一个字符串，ImageFile 是一个 System.Drawing.Bitmap

Answer 1

看看这段代码是否有帮助。

    Dim runTimeResourceSet As Object
    Dim dictEntry As DictionaryEntry

    runTimeResourceSet = My.Resources.ResourceManager.GetResourceSet(System.Globalization.CultureInfo.CurrentCulture, False, True)
    For Each dictEntry In runTimeResourceSet
        If (dictEntry.Value.GetType() Is GetType(Icon)) Then
            Console.WriteLine(dictEntry.Key)
        End If
    Next

我以 Icon 为例，如果您使用 Bitmap，则必须更改它。

编辑：您必须使用 dictEntry.Value & 的引用 看看如何使用它来将其添加到图像列表中。

Answer 2

以下是用 C# 编写的，您应该能够轻松地将其转换为 VB。

Assembly executingAssembly = GetExecutingAssembly();

foreach (string resourceName in executingAssembly.GetManifestResourceNames())
{
    Console.WriteLine( resourceName );
}

现在您已经拥有了所有资源名称，您可以迭代列表并执行以下操作：

foreach(string s in executingAssembly.GetManifestResourceNames())
{
    if (s.EndsWith(".bmp"))
    {
        imgStream = a.GetManifestResourceStream(s);
        if (imgStream != null)
        {                    
            bmp = Bitmap.FromStream(imgStream) as Bitmap;
            imgStream.Close();
        }   
    }
}

我还没有尝试过此操作，但它应该可以工作。

Answer 3

尝试这样的操作：

Dim reader As New ResXResourceReader(resxFilePath)

Dim en As IDictionaryEnumerator
en = reader.GetEnumerator()

While en.MoveNext()
    Console.WriteLine("Resource Name: [{0}] = {1}", en.Key, en.Value)
End While

reader.Close()

您可以在 此链接。 这些示例是用 C# 编写的，但是针对 vb.net 修改它们并不难

Answer 4

虽然上面的答案为我指明了正确的方向，但我添加了一个单独的答案来阐明 GetResourceSet 的使用以及随后的图像加载：

        Dim resSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.InvariantCulture, True, False)
        For Each de As DictionaryEntry In resSet
            If (de.Value.GetType() Is GetType(Bitmap)) Then
                m_Icons.Add(de.Key, My.Resources.ResourceManager.GetObject(de.Key))
            End If
        Next

请注意 My.Resources.ResourceManager.GetResourceSet 中的参数的以下内容：

• 使用
  加载资源需要InvariantCulture
• True ，因为此时在我的类库中我还没有访问资源集，这会强制加载它。 这似乎是 @bcrgen-steinblock 在他的评论中的意思，但在随后的编辑中被误解
• false 对我来说没问题，因为我没有后备/默认资源集