Comment obtenir les noms de toutes les ressources dans un fichier de ressources

Question

Dans un projet Visual Basic, j'ai ajouté un fichier de ressources (resx) contenant un tas d'images.

Maintenant, je veux interroger les noms des images. Si j'ouvre le fichier resx dans la vue de concepteur dans l'IDE de Visual Studio et sélectionnez une image, la grille de propriétés me montre une propriété de nom (par défaut "nom de fichier sans extension mais peut être modifié)

J'ai une image créée à l'exécution et remplie avec les images du fichier de ressources.Pour pouvoir accéder à ces images avec la clé, je dois le définir

Mon code ressemble à ceci (tout codé en dur) :

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) 

Et je veux ce achive:

Dim imagelist as new ImageList 

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

où Nom est une chaîne et un ImageFile System.Drawing.Bitmap

Answer 1

Voir si cette partie du code aide. J'ai utilisé l'icône comme exemple, que vous devrez changer si vous utilisez Bitmap.

EDIT: Vous devrez utiliser la référence de dictEntry.Value & voir comment il peut être utilisé pour l'ajouter à imagelist.

Answer 2

Essayez quelque chose comme ceci:

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() 

Vous pouvez trouver d'autres exemples qui pourraient vous aider à this link. Les exemples sont écrits en C#, mais il n'est pas très difficile de les modifier pour vb.net

Answer 3

Ce qui suit est écrit en C#, vous devriez être capable de traduire cela en VB facilement.

Assembly executingAssembly = GetExecutingAssembly(); 

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

Maintenant que vous avez tous les noms de ressources, vous pouvez parcourir la liste et faire quelque chose comme:

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(); 
     } 
    } 
} 

Je ne l'ai pas essayé, mais cela devrait fonctionner.

Answer 4

Alors que les réponses ci-dessus m'a fait dans la bonne direction, j'ajoute une réponse distincte pour clarifier l'utilisation de GetResourceSet et le chargement ultérieur des images:

 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 

Notez les points suivants pour les arguments en My.Resources.ResourceManager. GetResourceSet:

• utilisation de InvariantCulture
• True est requis pour charger les ressources, car à ce stade de ma bibliothèque de classes, je n'ai pas encore accédé à l'ensemble de ressources et cela force le chargement.Cela semble être ce que @ bcrgen-Steinblock signifiait dans son commentaire, mais il a été mal compris dans la modification qui a suivi
• faux est ok pour moi parce que je n'ai pas une ressource fallback/default définie