Listbox to set value in label

[pdinillo]

expandcollapse popup

$Form1 = GUICreate("Form1", 394, 197, 192, 124)
GUICtrlCreateInput("", 32, 32, 329, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Button1", 56, 80, 97, 33)
$Button2 = GUICtrlCreateButton("Button2", 216, 80, 113, 33)

$List1 = GUICtrlCreateList("", 24, 120, 337, 58)
GUICtrlSetData(-1, "test|test2|test3|test4|test5")
GUISetState(@SW_SHOW)





While 1

    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Or $msg = $Button2 Then

        Exit
    EndIf

    If $msg = $Button1 Then

Call ("functiontest")

EndIf
WEnd





Func functiontest ()





Local $oIE = _IECreate ("http://www.test.com")



Local $text1 = _IEGetObjByName ($oIE,"Textbox")

_IEFormElementSetValue ($text1, "VALUEINPUTHERE")





EndFunc

here my code,

i have made a basic gui with button and listbox.

 

i would like that when i select the value of listbox and click on the button, the value will appear here

_IEFormElementSetValue ($text1, "VALUEINPUTHERE")

at the moment will not appear one of this 

test|test2|test3|test4|test5

 

but appear this number.....6

 

thank you fot the help

[BrewManNH]

Use GUICtrlRead to read from the list.

[pdinillo]

an example?

im newbie

thx

[BrewManNH]

Help file has plenty of examples, have you looked at it?

[pdinillo]

yup but i don't understand how can i do

 

[Starstar]

expandcollapse popup

#include <IE.au3>
#include <ColorConstants.au3>

$Form1 = GUICreate("Form1", 394, 197, 192, 124)
GUICtrlCreateInput("", 32, 45, 329, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Button1", 56, 80, 97, 33)
$Button2 = GUICtrlCreateButton("Button2", 216, 80, 113, 33)
$label = GUICtrlCreateLabel("Starstar",120,1,150,40)
$List1 = GUICtrlCreateList("", 24, 120, 337, 58)
GUICtrlSetCursor($label, 0)
GUICtrlSetColor($label, $COLOR_White)
GUICtrlSetFont($label,30,100)
GUICtrlSetData($List1, "test|test2|test3|test4|test5")
GUISetState(@SW_SHOW)





While 1

    $msg = GUIGetMsg()

    If $msg = -3 Or $msg = $Button2 Then

        Exit
    EndIf
If $msg = $label Then
        ShellExecute("https://www.autoitscript.com/forum/profile/76662-starstar/")
        EndIf
    If $msg = $Button1 Then

$ListRead = GUICtrlRead($List1)
    Switch $ListRead
        Case "test"
            MsgBox(0,"Starstar","You are selected test")
            Case "test2"
            MsgBox(0,"Starstar","You are selected test2")
            Case "test3"
            MsgBox(0,"Starstar","You are selected test3")
            Case "test4"
            MsgBox(0,"Starstar","You are selected test4")
            Case "test5"
            MsgBox(0,"Starstar","You are selected test5")
    EndSwitch
    Sleep(10)
Call ("functiontest")
EndIf
WEnd





Func functiontest ()





Local $oIE = _IECreate ("http://www.test.com")



Local $text1 = _IEGetObjByName ($oIE,"Textbox")

_IEFormElementSetValue ($text1, "VALUEINPUTHERE")





EndFunc

Here is an example of GuiCtrlRead() in your script.........Select an item from your list and than press Button1 and look......