AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 319, 133, 415, 252)
$Combo1 = GUICtrlCreateCombo("Autoit", 16, 24, 177, 25)
GUICtrlSetData(-1, "Image|Vidéo|Musique|Dossier|Exel|Word")
$Icon1 = GUICtrlCreateIcon("C:\Users\Narmeke\Desktop\Icones\Icone-Vista-3.ico", -1, 216, 24, 65, 49, BitOR($SS_NOTIFY,$WS_GROUP))
$Button1 = GUICtrlCreateButton("Changer l'Icone", 104, 96, 113, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

FileInstall( "Icone\Autoit.ico", @TempDir & "\Autoit", 1)
FileInstall( "Icone\Dossier.ico", @TempDir & "\Dossier", 1)
FileInstall( "Icone\Image.ico", @TempDir & "\Image", 1)
FileInstall( "Icone\Video.ico", @TempDir & "\Video", 1)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1
            $Nom = GUICtrlRead( $Combo1)
            If $Nom = "Autoit" Then
            $Icon1 = GUICtrlCreateIcon(@TempDir & "\Autoit", -1, 216, 24, 65, 49, BitOR($SS_NOTIFY,$WS_GROUP))
        ElseIf $Nom = "Image" Then
            $Icon1 = GUICtrlCreateIcon(@TempDir & "\Image", -1, 216, 24, 65, 49, BitOR($SS_NOTIFY,$WS_GROUP))
        ElseIf $Nom = "Word" Then
            $Icon1 = GUICtrlCreateIcon("C:\Users\Narmeke\Desktop\Icones\Icone-Vista-3.ico", -1, 216, 24, 65, 49, BitOR($SS_NOTIFY,$WS_GROUP))
        Else
            MsgBox( 0, "Erreur !", "L'icone n'existe pas")
        EndIf

        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd