[R] Problème icones

[Tyrael]

Bonjour,

J'ai fais une GUI avec un bouton Actualiser sur lequel j'ai mis une image
Voici mon code :

Code : Tout sélectionner

Global $ButActualiser = GUICtrlCreateButton("", 143, 12, 20, 20, $BS_ICON)
_GUICtrlButton_SetImage($ButActualiser, "shell32.dll", 238)
 

Sur mon Windows 7 x64 aucun problème ça fonctionne par contre sur mon Windows XP Pro x86 (PC du bureau mais je suis en administrateur) je n'ai aucune image.
J'ai aussi mis le chemin "complet" avec comme ceci :
_GUICtrlButton_SetImage($ButActualiser, @WindowsDir & "\system32\shell32.dll", 238)
Ne fonctionne pas non plus.

Si je met une autre icone, 9 par exemple, ça fonctionne.

Voici le début de mon code

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <EditConstants.au3>
#include <Constants.au3>
#include <GuiButton.au3>

;~ ################### Fenêtre principale ###################
Global $GUIGenWidth = 463
Global $GUIGenHeight = 415
Global $GUIGen = GUICreate("Installation d'imprimante(s)", $GUIGenWidth, $GUIGenHeight)
;~ Menu
Global $MenuFichier = GUICtrlCreateMenu("&Fichier")
Global $MenuChoix = GUICtrlCreateMenuItem("&Choix du serveur", $MenuFichier)
GUICtrlCreateMenuItem("", $MenuFichier)
Global $MenuQuitter = GUICtrlCreateMenuItem("&Quitter", $MenuFichier)
;~ Case liste
Global $Label1 = GUICtrlCreateLabel("Imprimante(s) disponible", 16, 16, 116, 17)
Global $List1 = GUICtrlCreateList("", 16, 33, 145, 149, _
        BitOR($GUI_SS_DEFAULT_LIST, $LBS_SORT, $LBS_MULTIPLESEL, $LBS_DISABLENOSCROLL, $WS_HSCROLL))
_GUICtrlListBox_SetHorizontalExtent($List1, 200)
Global $Label2 = GUICtrlCreateLabel("Imprimante(s) à installer", 296, 16, 113, 17)
Global $List2 = GUICtrlCreateList("", 296, 33, 145, 149, _
        BitOR($GUI_SS_DEFAULT_LIST, $LBS_SORT, $LBS_MULTIPLESEL, $LBS_DISABLENOSCROLL, $WS_HSCROLL))
_GUICtrlListBox_SetHorizontalExtent($List2, 200)
Global $Label3 = GUICtrlCreateLabel("Imprimante(s) déjà sur le poste", 296, 190, 146, 17)
Global $List3 = GUICtrlCreateList("", 296, 210, 145, 149)
;~ GUICtrlSetState(-1, $GUI_DISABLE)
;~ Boutons
Global $ButAjouter = GUICtrlCreateButton("Ajouter --->", 177, 62, 105, 25)
Global $ButEnlever = GUICtrlCreateButton("<--- Enlever", 177, 118, 105, 25)
Global $ButActualiser = GUICtrlCreateButton("", 143, 12, 20, 20, $BS_ICON)
_GUICtrlButton_SetImage($ButActualiser, "shell32.dll", 238)
GUICtrlSetTip($ButActualiser, "Acualiser la liste du serveur")
;~  Status bar
Global $StatusBar1 = _GUICtrlStatusBar_Create($GUIGen)
;~ Icone (favicon)
GUISetIcon("ddores.dll", 50)
;~ ##########################################################

J'ai trouvé ce site pour la liste des icones par DLL : http://diymediahome.org/windows-icons-r ... ns-images/
Mais il semblerait que les numéros ne correspondent pas (ou pas toujours). Surtout pour mon XP
Une idée d'où je peux avoir la liste disons "correcte" pour régler mon problème ?

P.S: En ouvrant shell32.dll avec ResHack les numéros sont encore plus foireux.

[Tyrael]

Ok je pense avoir compris en fait.
Il y a moins d'icone dans les DLL de XP que de Seven donc le N° 238 n’existe pas sous XP.
Je vais faire une image perso.

Quelqu'un peut confirmer mes dires avant que je mette résolu svp ?

[mikell]

Sur mon xp j'utilise Scrutico pour afficher les icones et leur numéro
Ensuite je mets le numéro+1 avec un moins, par exemple pour la croix rouge n° 131, je mets -132

Code : Tout sélectionner

GUICtrlSetImage($ButActualiser, "shell32.dll", -132)

Et en cas de doute, j'extrais l'icone et je l'intègre au script ^^

Edit
Mon shell32.dll ne contient que 237 icones

[Tyrael]

Merci pour le logiciel j'en cherchais un justement
Dommage qu'on ne puisse ouvrir que des dossiers et pas un fichier. J'ai fait l'erreur d'ouvrir C:\Windows\System32 (heureusement il s'est limité à 1000 icônes)

Je vais voir si je trouve mon bonheur. Mais le plus simple va être l'icone perso je pense