acces aux ressources par une variable?

**lowfee** · 07/11/2010, 10h04

Bonjour,
j'aurais souhaité savoir si il était possible d'accéder aux ressources de mon projet de façon dynamique.
je m'explique, j'ai actuellement environ 200 png (nommées image001, image002,......) stockées dans les ressources de mon projet et je veux accéder à ces png en fonction d'une variable
du style My.Ressources."image" & No
Cela est il possible? Si oui comment?
merci

**Pol63** · 07/11/2010, 13h46

par reflection oui

my.resources.gettype.getproperty("image" & n,instance or public).getvalue(my.resources,nothing)
à caster sur le type voulu

**tomlev** · 07/11/2010, 15h32

Pas besoin de la réflexion pour ça... il faut manipuler directement le ResourceManager. Affiche les fichiers cachés dans ton projet (bouton en haut de l'explorateur de solution) et regarde le code du fichier Resources.Designer.vb, tu verras comment le code généré par Visual Studio accède au ResourceManager. Ensuite il suffit de copier le bout qui t'intéresse et de le modifier selon tes besoins...

**lowfee** · 07/11/2010, 17h42

merci beaucoup de m'avoir mis sur la voie
j'ai utilisé du coup un ResourceManager
"image" & n

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
RM = New ResourceManager("MyResource", System.Reflection.Assembly.GetExecutingAssembly())
            Dim IMG As Bitmap = CType(My.Resources.ResourceManager.GetObject("image" & n), Bitmap)

je ne sais pas si cela est très propre, mais ça marche parfaitement

**lowfee** · 07/11/2010, 17h48

j'avais pas vu la réponse de de tomlev, effectivement encore beaucoup plus simple.
merci a vous deux

**tomlev** · 07/11/2010, 17h49

Juste une petite suggestion d'amélioration : plutôt que de recréer le ResourceManager à chaque fois, crée le une seule fois et garde le dans un champ de ta classe

**lowfee** · 07/11/2010, 17h57

ok, et encore merci

**El Fatos** · 08/11/2010, 19h35

Bonsoir à tous,

J'avais exactement la même question que Lowfee !

Malheureusement pour moi je suis moins doué que Lowfee, et malgré avoir trouvé le code dans Resources.Designer.vb, j'aurais besoin de quelques explications supplémentaires pour savoir quel code exactement mettre en place et où ?

D'avance, je vous remercie pour vos lumières !

Cordialement,

El Fatos.

**tomlev** · 08/11/2010, 20h26

la question est un peu vague... qu'est-ce que tu veux faire exactement, et qu'est-ce qu'il te manque ?

**El Fatos** · 08/11/2010, 20h36

Pour être clair, je vois tout ce code dans Resources.Designer.vb :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Namespace My.Resources
 
    'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder
    'à l'aide d'un outil, tel que ResGen ou Visual Studio.
    'Pour ajouter ou supprimer un membre, modifiez votre fichier .ResX, puis réexécutez ResGen
    'avec l'option /str ou régénérez votre projet VS.
    '''<summary>
    '''  Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
    '''</summary>
    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
    Friend Module Resources
 
        Private resourceMan As Global.System.Resources.ResourceManager
 
        Private resourceCulture As Global.System.Globalization.CultureInfo
 
        '''<summary>
        '''  Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
        '''</summary>
        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
            Get
                If Object.ReferenceEquals(resourceMan, Nothing) Then
                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("WindowsApplication1.Resources", GetType(Resources).Assembly)
                    resourceMan = temp
                End If
                Return resourceMan
            End Get
        End Property
 
        '''<summary>
        '''  Remplace la propriété CurrentUICulture du thread actuel pour toutes
        '''  les recherches de ressources à l'aide de cette classe de ressource fortement typée.
        '''</summary>
        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
        Friend Property Culture() As Global.System.Globalization.CultureInfo
            Get
                Return resourceCulture
            End Get
            Set
                resourceCulture = value
            End Set
        End Property
 
        Friend ReadOnly Property Image1() As System.Drawing.Bitmap
            Get
                Dim obj As Object = ResourceManager.GetObject("Image1", resourceCulture)
                Return CType(obj,System.Drawing.Bitmap)
            End Get
        End Property
 
        Friend ReadOnly Property Image2() As System.Drawing.Bitmap
            Get
                Dim obj As Object = ResourceManager.GetObject("Image2", resourceCulture)
                Return CType(obj,System.Drawing.Bitmap)
            End Get
        End Property
 
        Friend ReadOnly Property Image3() As System.Drawing.Bitmap
            Get
                Dim obj As Object = ResourceManager.GetObject("Image3", resourceCulture)
                Return CType(obj,System.Drawing.Bitmap)
            End Get
        End Property
 
        Friend ReadOnly Property Image4() As System.Drawing.Bitmap
            Get
                Dim obj As Object = ResourceManager.GetObject("Image4", resourceCulture)
                Return CType(obj,System.Drawing.Bitmap)
            End Get
        End Property
 
        Friend ReadOnly Property Image5() As System.Drawing.Bitmap
            Get
                Dim obj As Object = ResourceManager.GetObject("Image5", resourceCulture)
                Return CType(obj,System.Drawing.Bitmap)
            End Get
        End Property
 
        Friend ReadOnly Property Image6() As System.Drawing.Bitmap
            Get
                Dim obj As Object = ResourceManager.GetObject("Image6", resourceCulture)
                Return CType(obj,System.Drawing.Bitmap)
            End Get
        End Property
    End Module
End Namespace

Et j'aimerais savoir quelles lignes de ce code extraire et exploiter pour trouver le code que je cherche, c'est-à-dire un code me permettant lorsque je clique sur un bouton de charger "Image"& i dans ma PictureBox.
Bien sûr, dans mon code se trouve déjà une incrémentation pour qu'à chaque clic, c'est l'image suivante qui se charge.

Il me manque seulement le plus important, à savoir la commande pour charger "Image" & i dans ma PictureBox.

Merci d'avoir répondu si vite à mon MP, je t'en suis vraiment reconnaissant.

**tomlev** · 08/11/2010, 21h44

Ben c'est à peu près pareil que le code que lowfee a trouvé...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim resMan As New Global.System.Resources.ResourceManager("WindowsApplication1.Resources", GetType(Resources).Assembly)
 
pictureBox1.Image = CType(My.Resources.ResourceManager.GetObject("Image" & n), Image)

(n étant le numéro de l'image)

**El Fatos** · 08/11/2010, 21h54

Envoyé par tomlev

Ben c'est à peu près pareil que le code que lowfee a trouvé...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim resMan As New Global.System.Resources.ResourceManager("WindowsApplication1.Resources", GetType(Resources).Assembly)
 
pictureBox1.Image = CType(My.Resources.ResourceManager.GetObject("Image" & n), Image)

(n étant le numéro de l'image)

En effet, il y avait juste une erreur où VB Express 10 m'a proposé de changer GetType(Resources) par GetType(TraceSource), et le code fonctionne à présent !

Merci beaucoup, Tomlev !!!

Bonne soirée à toi, et au plaisir d'une prochaine fois (ce qui risque d'arriver puisque je souhaite débuter le VB).

**tomlev** · 08/11/2010, 22h29

Envoyé par El Fatos

En effet, il y avait juste une erreur où VB Express 10 m'a proposé de changer GetType(Resources) par GetType(TraceSource), et le code fonctionne à présent !

Euh... TraceSource, c'est une classe à toi ? Parce que si c'est la classe TraceSource du framework, je vois pas trop par quel miracle ça pourrait marcher, vu que ça irait chercher les ressources dans l'assembly System.dll...

Remplace plutôt par My.Resources.Resources (ou n'importe quel type déclaré dans ton projet)

**El Fatos** · 09/11/2010, 13h08

Bonjour Tomlev,

Il y avait une erreur avec GetType(Resources), et VB Express 2010 m'a proposé de le modifier en GetType(TraceSource), puis il y a eu une autre erreur où je n'ai pas compris, j'ai cliqué sur créer quelque chose.

En regardant dans ResourceManager.vb, je crois qu'il m'a créé ça en fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Class ResourceManager
 
    Shared Sub GetObject(ByVal p1 As String, ByVal p2 As Object)
        Throw New NotImplementedException
    End Sub
 
End Class

Ceci pourrait expliquer que cela fonctionne ?

**tomlev** · 09/11/2010, 14h07

Envoyé par El Fatos

En regardant dans ResourceManager.vb, je crois qu'il m'a créé ça en fait

Ah ok... comme il trouvait pas la classe ResourceManager, il l'a créée

En fait je réaliser qu'il y a plus simple... y pas besoin de créer toi-même une instance de ResourceManager, il y en a déjà une dans My.Resources. Et en plus je de me rendre compte que le code que j'ai posté utilisait déjà ça, je l'ai copié/collé et modifié et j'ai oublié de changer un truc

Donc normalement le seul code dont tu as besoin est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pictureBox1.Image = CType(My.Resources.ResourceManager.GetObject("Image" & n), Image)

**El Fatos** · 09/11/2010, 18h10

En effet, Tomlev, ton code fonctionne parfaitement !

Peux-tu m'éclairer sur ce que sont une instance et une classe ?

Merci

**tomlev** · 09/11/2010, 18h33

Envoyé par El Fatos

Peux-tu m'éclairer sur ce que sont une instance et une classe ?

Euh... si je me lance là-dedans, on n'est pas sortis de l'auberge

C'est vraiment les bases de la programmation orientée objet, tu ne pourras jamais vraiment progresser sans connaître ça. Je te conseille de lire un bouquin ou un cours, qui t'expliquera ça beaucoup mieux que je ne pourrais le faire. Il y a un cours complet de VB.NET ici :
http://plasserre.developpez.com/cours/vb-net/

**El Fatos** · 09/11/2010, 19h47

D'accord.

Je vais donc me concentrer là-dessus.

Merci encore.

acces aux ressources par une variable?

VB.NET

Discussions similaires

Partager

Partager