AutoIt Français

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <GUIListBox.au3>


HotKeySet("{F1}", "quitter")
func quitter()
    Exit
EndFunc
;définition de la GUI
GUICreate("Transfert d'éléments de listes",420,270)
$liste = GUICtrlCreateList("", 10, 10, 124, 250)
GUICtrlSetData($liste, "a|b|c|t|u|z")
$listechoisie = GUICtrlCreateList("", 250, 10, 145, 250)
$ajouter = GUICtrlCreateButton("Ajouter",150,50,80, 20)
$retirer = GUICtrlCreateButton("Retirer",150,100,80, 20)
$Toutsupprimer = GUICtrlCreateButton("Tout supprimer",150,150,80,20)
$lancer = GUICtrlCreateButton("Info", 150,200,80,50)

GUISetState()



    $msg = 0
    While 1
        sleep(20)
        if $msg = $GUI_EVENT_CLOSE Then
            Exit
        EndIf

        $msg = GUIGetMsg()
        Switch $msg
            Case $ajouter;tranférer de gauche à droite
                Local $selection
                $selection = GUICtrlRead($liste)
                GUICtrlSetData($listechoisie,$selection)
                $index_list_box=_GUICtrlListBox_GetCurSel($liste)
                $verif=_GUICtrlListBox_ReplaceString($liste, $index_list_box, "")
            Case $retirer;inversement
                Local $selection
                $selection = GUICtrlRead($listechoisie)
                GUICtrlSetData($liste,$selection)
                $index_list_box=_GUICtrlListBox_GetCurSel($listechoisie)
                $verif=_GUICtrlListBox_ReplaceString($listechoisie, $index_list_box, "")
            Case $Toutsupprimer;revenir au point de départ
                 GUICtrlSetData($listechoisie,"")
                 GUICtrlSetData($liste,"")
                 GUICtrlSetData($liste, "a|b|c|t|u|z")
             Case $lancer
                 MsgBox(0,"0",GUICtrlRead($listechoisie)) ;Vérification ... <= la variable n'a de valeur que lorsque je sélectionne un élément de la liste :s
        EndSwitch
    WEnd