My Icon Selector (from Shell32.dll)

[Lakes]

Creates an array of Buttons with all the Shell32 icons, click on any button.

expandcollapse popup

#include<GUIConstants.au3>

$Size = 40

Dim $array[20] [12]

GuiCreate('Icon Select',801,555)
$IconButton = GUICtrlCreateButton("", 616, 496, 81, 41,$BS_ICON)
$Label = GUICtrlCreateLabel ("",  9, 492, 591, 21 ,BitOR($SS_SUNKEN,$WS_BORDER)) 
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel ("", 8, 520, 591, 21 ,BitOR($SS_SUNKEN,$WS_BORDER))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

For $y = 0 to 11
    For $x = 0 To 19
        $Icon = ($y*20)+$x
        If $Icon > 233 then $Icon = 50
        $array[$x][$y] = GuiCtrlCreateButton($Icon ,($x*$Size) ,($y*$Size) ,$Size ,$Size,$BS_ICON)
        GUICtrlSetImage ($array[$x][$y], "shell32.dll", $Icon)
    Next
Next

GuiSetState(@SW_SHOW)

While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
    ;;;;;;;
    EndSelect

For $y = 0 to 11
    For $x = 0 To 19
        $Icon = ($y*20)+$x
        If $Icon > 233 then ExitLoop
    Select
        Case $msg = $array[$x][$y]
        GUICtrlSetImage ($IconButton, "shell32.dll", $Icon)
        GUICtrlCreateIcon ("shell32.dll",$Icon, 730, 496,$size,$size)

        GUICtrlSetData ($Label,  ' GUICtrlSetImage ($ButtonName, "shell32.dll"'&"," &$Icon &")")
        GUICtrlSetData ($Label1, ' GUICtrlCreateIcon ("shell32.dll"'&"," &$Icon &",$x" &",$y" &",$Size" &",$Size"&")")
;   MsgBox (64,"Icon!","You have selected Icon: " &$Icon)
    EndSelect

    Next
Next

Wend
Exit

Icon_Keys.au3

[RazerM]

this is good although you should add the ability to open any dll with icons in it

[SmOke_N]

Nice Job Lakes...

[nitekram]

I have a question on your code in another post - I am sorry if I did something wrong.

I think your code is great. I would like to use it to load other dll files that have icons and then have a on going list of icons. To use your code in my script I have to convert it to OnEvent. So far I have had no trouble (yea right) with changing code to meet my needs. But I have never really used the For loop and am not sure how to use the for loop to create a list of OnEvent rather than stating

$array[$x][$y] = GUICtrlCreateButton($Icon , ($x * $Size) , ($y * $Size), $Size, $Size, $BS_ICON)

$array[$x][$y] = GUISetOnEvent($array[$x][$y], "test")

I am wondering how I can make every OnEvent = the same function call (dummy function) then use that dummy to determine which icon/button was clicked. Your code does a fine job and I am hoping there is some type of conversion. Also I was wondering if there is a help file/beginners document to OnEvent calls. Thanks for any help...

[Lakes]

Thanks SmOke_N, still learning...

nitekram, I have`nt used the GUISetOnEvent command yet, I`ll have a play with it and see what I can do.

How do you know which .dll files have icons?

[nitekram]

Thanks SmOke_N, still learning...

nitekram, I have`nt used the GUISetOnEvent command yet, I`ll have a play with it and see what I can do.

How do you know which .dll files have icons?

There are a few - maybe we can have other people chime in with what they know. I wish that I had kept a list but I really never liked the idea of only being able to see them when changing icons for system files. Anyway one is pifmgr.dll, user32.dll, moricons.dll, Icwdial.dll, Isign32.dll - and others but I have not tested them all. There should be a list of them somewhere I am hoping someone will help us.

[GaryFrost]

C:\Program Files\AutoIt3\Examples\GUI\Advanced\enumicons.au3

[Lakes]

C:\Program Files\AutoIt3\Examples\GUI\Advanced\enumicons.au3

Ah, I did`nt realise that was there...

Oh well, I learned a lot by scripting my own version...

[nitekram]

C:\Program Files\AutoIt3\Examples\GUI\Advanced\enumicons.au3

The code from the help section - GUIGetMsg() is being used, but I am trying to do the samething using GUISetOnEvent() rather than having to call button calls that then call functions. Look at my code and you will see that I want use this type of code to shorten my coding. As with my code I may do it may times i.e. adding buttons.

Here is the link to my code - I am sorry if it is not any good - I am still learning - I hope to post the finished code so others might be able to use it - but who knows - I am still just learning

http://www.autoitscript.com/forum/index.ph...ndpost&p=162188

Thanks for anyones help

[marcgforce]

Hello, just because i was looking for a solution making this script with the GUISetOnEvent() option, i post my solution based on the previous code made.

#include<GUIConstants.au3>
Opt("GUIOnEventMode", 1)
$Size = 40
Dim $array[30] [12]
$GuiIcon = GuiCreate('Sélection icone',1201,555)
$IconButton = GUICtrlCreateButton("", 216, 496, 81, 41,$BS_ICON)
$validerbouton = GUICtrlCreateButton("valider", 916, 496, 81, 41)
GUICtrlSetOnEvent(-1,"validericone")
For $y = 0 to 11
    For $x = 0 To 29
        $Icon = ($y*30)+$x
        If $Icon > 372 then $Icon = -1
        $array[$x][$y] = GuiCtrlCreateButton($Icon ,($x*$Size) ,($y*$Size) ,$Size ,$Size,$BS_ICON)
        GUIctrlSetOnEvent(-1, "clicicone")
        GUICtrlSetImage ($array[$x][$y], "shell32.dll", $Icon)
    Next
Next
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)

func clicicone()
    global $Icon = GUICtrlRead(@GUI_CtrlId)
     GUICtrlSetImage ($IconButton,"shell32.dll", $Icon)
EndFunc

func validericone()
    msgbox(0,"icone", "You have selected icon number : " &  $Icon,3)
EndFunc

Func SpecialEvents()
    Exit
EndFunc
While 1
    Sleep(100)
WEnd