[R] Gestionnaire d'émoticone.. lister les dossier et les *.

[SagePourpre]

Encore moi ...

J'ai besoin de vos lumières, oh intelligence collective !

J'essaie de faire un gestionnaire d'émoticone.

Pour commencer, je voudrais que mon script détecte tous les dossiers
présent où le script est situé et qu'un onglet soit crée pour chaque dossier.

Ensuite, je voudrais que les *.gif trouvés soit eux affichés dans l'onglet correspondant.


J'ai fait cela

Code : Tout sélectionner

$t = "Recherche expérimentale du Pouf"
$x = 400
$y = 600
$gui = GuiCreate($t, $x,$y,-1,-1,BitOR($WS_EX_TOOLWINDOW,$WS_TILEDWINDOW))
GUISetState (@SW_SHOW)
$result=0

$tab = _FileListToArray(@ScriptDir,"*",2)
GUICtrlCreateTab(0,0,$x,$y)
for $i = 1 to $tab[0]
    $tab[$i] = GUICtrlCreateTabItem($tab[$i])
    $emoticone = _FileListToArray($tab[$i],"*",1)
    For $j = 1 To $emoticone[0]
       Guictrlcreatebutton("",0,0,20,20)    
    Next
        Next
While 1
$msg = GUIGetMsg()
Switch $msg
    Case $GUI_EVENT_CLOSE
        Exit
EndSwitch
Wend

Ça ne fonctionne naturellement pas.

La première partie fonctionne (création d'un onglet par dossier) mais avec les
lignes pour tenter un _filelistoarray() à l'intérieur du _filelistoarray() parent échoue.

Une idée, suggestion, commentaire, méprise, n'importe quoi ? ...



P.s : pour ce qui est de mettre un gif dans un gui, j'ai pigé le code dans un udf

► Afficher le texte

;===============================================================================
;
; Function Name: _GUICtrlCreateGIF()
; Description: Create an Animated GIF control
; Parameter(s): $gif [required] path and filename of the animated GIF
; $x [optional] x pos of the top-left corner
; $y [optional] y pos of the top-left corner
; $border [optional] 0 = no border
; any other = sunken border
; Requirement(s): #include <IE.au3>
; Return Value(s):
; controlID of the control created
; Author(s): elgabionline, gafrost, Ed_Maximized
;
;===============================================================================
Func _GUICtrlCreateGIF($gif,$x=0,$y=0,$border=0)
Local $pwidth,$pheight,$oIE,$GUIActiveX
_GetGifPixWidth_Height($gif, $pwidth, $pheight)
$oIE = ObjCreate("Shell.Explorer.2")
$GUIActiveX = GUICtrlCreateObj($oIE, $x, $y, $pwidth, $pheight)
$oIE.navigate ("about:blank")
While _IEPropertyGet($oIE, "busy")
Sleep(100)
WEnd
$oIE.document.body.background = $gif
$oIE.document.body.scroll = "no"
if $border=0 then $oIE.document.body.style.border = "0px"
Return $oIE
EndFunc

[SagePourpre]

Voilà... directement du forum anglais.

"Enjoy" comme ils diraient :

► Afficher le texte

#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>

Opt("GUIOnEventMode", 1)

GUICreate("Form1", 401, 342)
GUISetOnEvent($GUI_EVENT_CLOSE,"close")

$Dir = @ScriptDir & "\" ; make sure dir ends with \
$Folders = _FileListToArray($Dir,"*", 2)

GUICtrlCreateTab(10,10,380,320)

For $i = 1 To (UBound($Folders) - 1)
GUICtrlCreateTabItem($Folders[$i])
$Files = _FileListToArray($Dir & $Folders[$i],"*.gif",1) ;remove .gif to see ALL files
For $j = 1 To (UBound($files) -1)
GUICtrlCreateButton($j,0+$J*20,49,15,20)
Next


Next

GUICtrlCreateTabItem("") ;important - finishes off the tab controls

GUISetState(@SW_SHOW)
While 1
Sleep(100)
WEnd

Func close()
Exit
EndFunc