Bonjour,
Je souhaite une manière d'accéder a mes ressources de la dll. En effet, dans cette dll j'ai deux contrôle utilisateur : pictureBox et Button . Pour récupérer ces ressources j'utilise actuellement une énumération comme ceci :
J'utilise ensuite un select case pour récuperer la bonne ressource comme ceci :
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 Public Enum EnumImage ALERTS = 0 ALIGNTABLECELLMIDDLECENTER = 1 ALIGNTABLECELLMIDDLELEFTJUST = 2 ALIGNTABLECELLMIDDLERIGHT = 3 APPWINDOW = 4 ATTACHMENT = 5 AUDIO = 6 BARCODE = 7 BOLD = 8 BOOK_ADDRES = 9 BREAKPOINT = 10 BRINGFORWARD = 11 BRINGTOFRONT = 12 CALCULATOR = 13 CALENDAR_SCHEDULE = 14 CHECKBOX = 15 CHECKGRAMMAR = 16 CHOOSECOLOR = 17 COLOR_FONT = 18 COLOR_LINECOLOR = 19 COMMENT = 20 COPY = 21 CUT = 22 DELETE = 23 end enum Public Enum EnumImageSize PETITE = 16 'Taille 16x16 MOYENNE = 32 'Taille 32x32 GRANDE = 48 'Taille 48x48 End Enum
Donc je veux récuperer ces ressources sans passer par ce select case car il s'agit en réalité des icônes en 16*16. Or je dois rajouter les mêmes icone en 32*32 et 48*48. De ce fait, cette méthode n'est pas optimal et je suis sur qu'il y a beaucoup plus rapide et simple.
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 Public Function SelectedRessources(ByVal values As EnumImage) As System.Drawing.Bitmap Dim t t = 0 Select Case values Case 0 t = My.Resources.ALERTS Case 1 t = My.Resources.ALIGNTABLECELLMIDDLECENTER Case 2 t = My.Resources.ALIGNTABLECELLMIDDLELEFTJUST Case 3 t = My.Resources.ALIGNTABLECELLMIDDLERIGHT Case 4 t = My.Resources.APPWINDOW Case 5 t = My.Resources.ATTACHMENT Case 6 t = My.Resources.AUDIO Case 7 t = My.Resources.BARCODE Case 8 t = My.Resources.BOLD Case 9 t = My.Resources.BOOK_ADDRESS Case 10 t = My.Resources.BREAKPOINT Case 11 t = My.Resources.BRINGFORWARD Case 12 t = My.Resources.BRINGTOFRONT Case 13 t = My.Resources.CALCULATOR Case 14 t = My.Resources.CALENDAR_SCHEDULE Case 15 t = My.Resources.CHECKBOX Case 16 t = My.Resources.CHECKGRAMMAR Case 17 t = My.Resources.CHOOSECOLOR Case 18 t = My.Resources.COLOR_FONT Case 19 t = My.Resources.COLOR_LINECOLOR Case 20 t = My.Resources.COMMENT Case 21 t = My.Resources.COPY Case 22 t = My.Resources.CUT Case 23 t = My.Resources.DELETE End Select Return t End Function
J'ai essayer ceci :
Mais ceci ne fonctionne pas. Avez vous une idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Me.Image = New Bitmap(Convert.ToString(My.Resources.Culture)) Me.Image = New Bitmap(Convert.ToString((New Uri("Resources/PETITE/AUDIO.png", UriKind.Relative))))
Cordialement
Partager