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
,
.
)
