Manipuler des images dans une bibliothèque de classes [Résolu]

scottmat 440 Messages postés samedi 24 mai 2003Date d'inscription 23 janvier 2011 Dernière intervention - 8 avril 2009 à 12:48 - Dernière réponse : scottmat 440 Messages postés samedi 24 mai 2003Date d'inscription 23 janvier 2011 Dernière intervention
- 9 avril 2009 à 21:02
Bonjour à tous et à toutes,



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

 





J’ai créé une sorte de petit soft galerie photo. Les photos sont dans une bibliothèque de classe en ressource. J’y accède via l’exécutable sous cette forme : MaBibliotheque.My.Ressources.MonImage



Imaginez le code pour afficher les images les unes après les autres !!! !! !




 





1 - D’abord une boucle avec le nombre d’image afin de toutes les affichées.



2 - Ensuite un Select case pour les affichées les bonne images :




 





Select

Case


[Variable]






Case
"1"





Picture1.Image = MaBibliotheque.My.Ressources.MonImage1





Case
"2"





Picture1.Image = MaBibliotheque.My.Ressources.MonImage2





Case
… etc





End

Select







 





De quoi devenir fou lol



Y’aurait’il une autre manière de traiter les images avec une seule et unique boucle !



En trois lignes par exemple :




  
For i AsInteger = 0 To x






       Picture1.Image = rSoriano.My.Resources & i






   
Next







 






Si quelqu’un à une idée



Merci par avance ;)
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
cs_Willi 2381 Messages postés jeudi 12 juillet 2001Date d'inscription 13 février 2015 Dernière intervention - 8 avril 2009 à 15:48
3
Merci
Bonjour,
Oui tu peux faire plus simple mais pour cela change dans les propriétés de tes ressources images la propriété "Action de génération" avec la valeur "Ressource incorporée". De mémoire sa doit être de cette manière la dans le designer vs peut importe la version.

Voici un exemple de test ou je vais faire défiler dans un contrôle image "Picture1" l'ensemble de mes ressources de type jpeg.

-----------------------------------------------------------------------
dim asm as system.reflection = system.reflection.assembly.GetExecutingAssembly()
dim sAllResources as string() = asm.GetManifestResourceNames()

For each sResource as string in sAllResources
   If sResource.EndsWith(".jpeg") then
      Dim strImg as system.io.stream() = asm.GetManifestResourceStream(sResource)
      If strImg isnot Nothing then
         Picture1.Image = Image.FromStream(strImg)
      End if

      Application.DoEvents()
      System.Threading.Thread.Sleep(1000)
   End if
Next
-------------------------------------------------------------------------

Adapte le suivant ce que tu veux faire je n'ai pas testé pas vs sous la main.
++

Merci cs_Willi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de cs_Willi
scottmat 440 Messages postés samedi 24 mai 2003Date d'inscription 23 janvier 2011 Dernière intervention - 9 avril 2009 à 21:02
0
Merci
impec', je vais l'adapter,

encore merci pour ta réponse willi ;)
Commenter la réponse de scottmat

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.