AutoIt Français

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