AutoIt Français

Code : Tout sélectionner

$lecture=guictrlread($vraiable_de_ta_listbox)
msgbox(4096,"test",$lecture)

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 299, 171, 192, 124)
$List1 = GUICtrlCreateList("", 88, 16, 121, 97)
GUICtrlSetData(-1, "Item1|Item2|Item3")
$Button1 = GUICtrlCreateButton("Button1", 112, 128, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            MsgBox(0,"",GUICtrlRead($List1))

    EndSwitch
WEnd
 

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

; On rajoute 2 Includes nécéssaires
#include <EditConstants.au3> 
#include <UpdownConstants.au3>

; On rajoute 3 variables
$MaxAnimal=5 
Dim $AnimalList[$MaxAnimal]=["","Chat","Cheval","Chien","Lapin"]
$DefaultInput1=0

$GUI_A = GUICreate("Ajout", 402, 297, 193, 123)
$INP_B2 = GUICtrlCreateInput("", 40, 88, 121, 21)
$Label2 = GUICtrlCreateLabel("Nom :", 48, 16, 110, 17)
$INP_B1 = GUICtrlCreateInput("", 40, 56, 121, 21)
$INP_B3 = GUICtrlCreateInput("", 40, 120, 121, 21)
$INP_B4 = GUICtrlCreateInput("", 40, 152, 121, 21)
$BT_Valider2 = GUICtrlCreateButton("Valider", 112, 208, 177, 41, $WS_GROUP)
$L_B1 = GUICtrlCreateList("", 248, 56, 89, 19)
GUICtrlSetData(-1, "||Chat|Cheval|Chien|Lapin")
$L_B2 = GUICtrlCreateList("", 248, 88, 89, 19)
GUICtrlSetData(-1, "||Chat|Cheval|Chien|Lapin")
$L_B4 = GUICtrlCreateList("", 248, 152, 89, 19)
GUICtrlSetData(-1, "||Chat|Cheval|Chien|Lapin")
$L_B3 = GUICtrlCreateList("", 248, 120, 89, 19)
GUICtrlSetData(-1, "||Chat|Cheval|Chien|Lapin")
$Label1 = GUICtrlCreateLabel("Animal", 272, 16, 33, 17)
; on rajoute la pseudo liste déroulante, ainsi que le champs dans lequel sera mise l'info sélectionnée
$Input1 = GUICtrlCreateInput($DefaultInput1, 280, 35, 58, 21)
$Input0 = GUICtrlCreateInput("", 248, 35, 72, 19)
GUICtrlSetState($Input1, $GUI_HIDE)
$Updown1 = GUICtrlCreateUpdown($Input1)
$Input2 = GUICtrlCreateInput("", 40, 35, 121, 19)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    ; on gere la pseudo liste déroulante. Quand on dépasse les bornes en + & en - on revient a l'autre bout, pour que ca tourne en rond
    if GUICtrlRead($Input1) <> $DefaultInput1 Then
        $DefaultInput1=GUICtrlRead($Input1)
        if $DefaultInput1 < 0 then $DefaultInput1 = $MaxAnimal-1
        if $DefaultInput1 >= $MaxAnimal then $DefaultInput1 = 0
        GUICtrlSetData($Input1,$DefaultInput1)
        GUICtrlSetData($Input0,$AnimalList[$DefaultInput1])
        GUICtrlSetData($Input2,$AnimalList[$DefaultInput1])
    EndIf
WEnd