AutoIt Français

Code : Tout sélectionner

#include <_GUIResourcePic.au3>
#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>
#include <WindowsConstants.au3>

Global $Form1 = GUICreate("Form1", 560, 100, 10, 10, -1, $WS_EX_ACCEPTFILES)
GUISetBkColor(0xFFFFFF)

GUICtrlCreateLabel("Glissez / Déposer le fichier image à visualiser", 10, 10, 280, 20)
GUICtrlSetFont(-1, 9, 400, 0, "comic sans ms")
Global $mon_image = GUICtrlCreateInput("", 10, 40, 400, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$visualiser = GUICtrlCreateButton("visualiser l'image", 430, 40, 120, 20)
$quitter = GUICtrlCreateButton("quitter le programme", 430, 70, 120, 20)

GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $visualiser
            $image = GUICtrlRead($mon_image)
            If FileExists(GUICtrlRead($mon_image)) Then _Viewer()


    EndSwitch
WEnd

Func _Viewer()

    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($image)
    Global Const $largeur = _GDIPlus_ImageGetWidth($hImage)
    Global Const $hauteur = _GDIPlus_ImageGetHeight($hImage)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()

    Global $Form2 = GUICreate("Form2", $largeur, $hauteur, 10, 10)
    GUISetBkColor(0xFFFFFF)

    _GUICtrlPic_Create($image, 0, 0, $largeur, $hauteur)

    GUISetState(@SW_SHOW, $Form2)

    Do ; "Faire ce qui suit tout le temps"
        $nMsg2 = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
        If $nMsg2 = $GUI_EVENT_CLOSE Then
            GUIDelete($Form2)
            ExitLoop
        EndIf
    Until $nMsg2 = $GUI_EVENT_CLOSE
EndFunc   ;==>_Viewer