vb.net – 如何获取资源文件中所有资源的名称

发布时间：2020-12-17 00:07:46 所属栏目：大数据来源：网络整理

导读：在Visual Basic项目中,我添加了一个包含一堆图像的资源文件(resx). 现在我想查询图像的名称. 如果我在Visual Studio IDE的设计器视图中打开resx文件并选择一个图像,属性网格会显示一个名称属性(默认为“没有扩展名但可以更改的文件名”). 背景是我有一个在运

在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

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

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& amp;看看它如何用于将其添加到图像列表.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!