[FUNC] _GifAnimatedCreate

[GELDROC]

bonjours voila une nouvel fonction pour crée des gif animé

Script d'exemple :

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.4.0
 Author:        GELDROC

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
Opt("MustDeclareVars", 1)

#include <Gif.au3>
#include <GUIConstantsEx.au3>


Global $PathICO = "Icon"
Global $ICON[999][2]
$ICON[1][0] = $PathICO&"\icon_arrow.gif"
$ICON[2][0] = $PathICO&"\icon_biggrin.gif"
$ICON[3][0] = $PathICO&"\icon_confused.gif"
$ICON[4][0] = $PathICO&"\icon_cool.gif"
$ICON[5][0] = $PathICO&"\icon_cry.gif"
$ICON[6][0] = $PathICO&"\icon_eek.gif"
$ICON[7][0] = $PathICO&"\icon_evil.gif"
$ICON[8][0] = $PathICO&"\icon_exclaim.gif"
$ICON[9][0] = $PathICO&"\icon_idea.gif"
$ICON[10][0] = $PathICO&"\icon_lol.gif"
$ICON[11][0] = $PathICO&"\icon_mad.gif"
$ICON[12][0] = $PathICO&"\icon_mrgreen.gif"
$ICON[13][0] = $PathICO&"\icon_neutral.gif"
$ICON[14][0] = $PathICO&"\icon_question.gif"
$ICON[15][0] = $PathICO&"\icon_razz.gif"
$ICON[16][0] = $PathICO&"\icon_redface.gif"
$ICON[17][0] = $PathICO&"\icon_rolleyes.gif"
$ICON[18][0] = $PathICO&"\icon_sad.gif"
$ICON[19][0] = $PathICO&"\icon_smile.gif"
$ICON[20][0] = $PathICO&"\icon_surprised.gif"
$ICON[21][0] = $PathICO&"\icon_twisted.gif"
$ICON[22][0] = $PathICO&"\icon_wink.gif"
$ICON[0][0] = 22

local $gui = GUICreate("Embedded Web control Test", 460, 40)
GUISetBkColor(0xFFFFFF, $gui)
GUISetState()
Local $GIF[999][3]
Local $pos = 10

For $i = 1 to $ICON[0][0]
    $GIF[$i][0] = _GifAnimatedCreate($gui, "0xffffff", $ICON[$i][0], $pos, 10)
    
    Local $GIFX = StringSplit($GIF[$i][0], ",", 1)
    $GIF[$i][0] = $GIFX[1]
    $GIF[$i][1] = $GIFX[2]
    $GIF[$i][2] = $GIFX[3]
    
    $pos = $pos+$GIF[$i][1]+5
Next

GUISetState()
MsgBox(0, "GIF:11", "CtrlID = "&$GIF[11][0]&@CRLF&"SizeX = "&$GIF[11][1]&@CRLF&"SizeY = "&$GIF[11][2])

While GUIGetMsg() <> -3
WEnd
Exit

La Fonction :

Gif.rar

Gif.au3

(947 Octets) Téléchargé 339 fois

les fichier .gif pour l'exemple :Icon.rar

[Tlem]

Avec un titre, ce serait bien.

[GELDROC]

O LALA vraiment pas réveiller ce matin Merci

[GELDROC]

Il y a un gros problème que je n'arrive pas a résoudre:
impossible de faire fonctionner :

Code : Tout sélectionner

GUICtrlSetEvent($oBJ, "test")  

[Tlem]

Cette section est là pour présenter une fonction ou un UDF et non pour faire du débug.

Donc si votre fonction n'est pas au point, retirez la, ou faites ce qu'il faut pour qu'elle fonctionne. Le cas échéant utilisez le forum d'aide générale pour résoudre votre problème.