(Exemple) Gif Animer

**Ptiteuf** Jeu 10 Mar - 11:38

bonjour voila un petit Script qui permet d’appliquer un Gif Animer sur une GUI .

Spoiler:

Code:: #cs ---------------------------------------------------------------------------- AutoIt Version : 3.3.6.0 Auteur: Ptiteuf #ce ---------------------------------------------------------------------------- #Include <GDIPlus.au3> #include <IE.au3> Global Const $InFileGif = @ScriptDir & "\icon_bounce.gif";ici votre image Gif Global $BkColor = 0xFF00FF;ici ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ==> Préparation des varriable Global $Gui, $IE, $oIE, $hFileTemp, $htmlLine, $BodyBkColor, $hImage Global Const $FileTemp = @ScriptDir & "\TempFile.htm" If $BkColor = "" Then $BkColor = "0xFFFFFF" Global Const $GuiBkColor = "0x" & StringMid(Hex($BkColor), 3, 6) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; <== Préparation des varriable Fin ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ==> Recupération de la taille du Gif _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile($InFileGif) Global Const $InW = _GDIPlus_ImageGetWidth($hImage) Global Const $InH = _GDIPlus_ImageGetHeight($hImage) _GDIPlus_ImageDispose($hImage) _GDIPlus_Shutdown() ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; <== Recupération de la taille du Gif Fin ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ==> Création de la GUI avec un Objet IE $Gui = GUICreate("Gif to png", ($InW + 30), ($InH + 30), -1, -1) GUISetBkColor($GuiBkColor) _IEErrorHandlerRegister() $IE = _IECreateEmbedded() $oIE = GUICtrlCreateObj($IE, 10, 10, $InW + 10, $InH + 10) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; <== Création de la GUI avec un Objet IE Fin ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ==> Création du fichier Html Temporaire avec un gif $BodyBkColor = "#" & StringMid(Hex($GuiBkColor), 3, 6) $htmlLine = "" $htmlLine &= '<HTML>' $htmlLine &= '<BODY bgcolor="' & $BodyBkColor & '" style="border : 0px;" Scroll=no>' $htmlLine &= '<IMG style="position:absolute; left : 5px; top : 5px; width: ' & $InW &'px; height: ' & $InW &'px;" alt="' & $InFileGif & '" src="' & $InFileGif & '"></IMG>' $htmlLine &= '</BODY>' $htmlLine &= '</HTML>' $hFileTemp = FileOpen($FileTemp, 2) FileWrite($hFileTemp, $htmlLine) FileClose($hFileTemp) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; <== Création du fichier Html Temporaire avec un gif Fin _IENavigate($IE, $FileTemp);Aplication du Gif html dans lobjet IE GUISetState() Do Until GUIGetMsg() = -3; On attent levenement du clique sur le boutton Quiitter de la GUI (qui est le CtrlID -3) FileDelete($FileTemp);Suprétion du fichier temporaire Exit

Voila un gif qui vous permettra d’essayer (Faites un clique droit : enregistrer l'image sous pour la récuperer) :