Combobox And Arrays...

[BrettF]

Hi, Is it possible to set the data in a combo box from an array? I have tried a few things but nothing works. Could someone please help??

What i've Tried:

#include <GUIConstants.au3>
#Include <GuiCombo.au3>
Global $States[7] = ["NSW", "NT", "QLD", "SA", "TAS", "VIC", "WA"]
#Region ### START Koda GUI section ### Form=d:\my documents\My Stuff\BOM AUST\Mainscrn.kxf
$Form1 = GUICreate("Exod-Ar: Australian Beauru of Metorology Weather Radar", 616, 514, 201, 118)
$Pic1 = GUICtrlCreatePic("d:\my documents\My Pictures\australia-radar-map.bmp", 8, 8, 600, 420, BitOR($SS_NOTIFY, $WS_GROUP))
$Group1 = GUICtrlCreateGroup("Step 1:", 8, 432, 193, 73)
$Label1 = GUICtrlCreateLabel("Select a State in Australia:", 16, 448, 179, 17)
$State = GUICtrlCreateCombo($States[0], 16, 472, 177, 25)
$Group2 = GUICtrlCreateGroup("Step 2:", 208, 432, 193, 73)
$Label2 = GUICtrlCreateLabel("Select a radar Location:", 216, 448, 179, 17)
$RadarLoc = GUICtrlCreateCombo("RadarLoc", 216, 472, 177, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Step 3:", 408, 432, 193, 73)
$Label3 = GUICtrlCreateLabel("Click OK!", 414, 451, 179, 17)
$ShowDar = GUICtrlCreateButton("OK!", 472, 472, 83, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_GUICtrlComboAddString($State, $States[1])
_GUICtrlComboAddString($State, $States[2])
_GUICtrlComboAddString($State, $States[3])
_GUICtrlComboAddString($State, $States[4])
_GUICtrlComboAddString($State, $States[5])
_GUICtrlComboAddString($State, $States[6])

The While loop isnt necessary as it's well, empty

I really whant to know if the data in $state can be set in one line??

Thanks

EDIT: I have to set around 15 things in the combo, and i just want to minimise the code length

Edited February 10, 2007 by bert

[tAKTelapis]

Try this out

I changed the way the array is created (according to the helpfile for _arrayCreate)

I also added the While ... WEnd loop to it, along with the check for closing the window

just because it was easier to test that way.

#include <GUIConstants.au3>
#Include <GuiCombo.au3>
#Include <Array.au3>

Global $States
$states = _ArrayCreate("NSW", "NT", "QLD", "SA", "TAS", "VIC", "WA")
#Region ### START Koda GUI section ### Form=d:\my documents\My Stuff\BOM AUST\Mainscrn.kxf
$Form1 = GUICreate("Exod-Ar: Australian Beauru of Metorology Weather Radar", 616, 514, 201, 118)
$Pic1 = GUICtrlCreatePic("d:\my documents\My Pictures\australia-radar-map.bmp", 8, 8, 600, 420, BitOR($SS_NOTIFY, $WS_GROUP))
$Group1 = GUICtrlCreateGroup("Step 1:", 8, 432, 193, 73)
$Label1 = GUICtrlCreateLabel("Select a State in Australia:", 16, 448, 179, 17)
$State = GUICtrlCreateCombo($States[0], 16, 472, 177, 25)
$Group2 = GUICtrlCreateGroup("Step 2:", 208, 432, 193, 73)
$Label2 = GUICtrlCreateLabel("Select a radar Location:", 216, 448, 179, 17)
$RadarLoc = GUICtrlCreateCombo("RadarLoc", 216, 472, 177, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Step 3:", 408, 432, 193, 73)
$Label3 = GUICtrlCreateLabel("Click OK!", 414, 451, 179, 17)
$ShowDar = GUICtrlCreateButton("OK!", 472, 472, 83, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

For $i = 1 to 6 step 1
_GUICtrlComboAddString($State, $States[$i])
Next

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
Wend

[SmOke_N]

I really don't see where you did anything but throw a GUI together in Koda to address the situation you are wanting to rectify.

#include <GUIConstants.au3>
#Include <GuiCombo.au3>
Global $States[7] = ["NSW", "NT", "QLD", "SA", "TAS", "VIC", "WA"]
#Region ### START Koda GUI section ### Form=d:\my documents\My Stuff\BOM AUST\Mainscrn.kxf
$Form1 = GUICreate("Exod-Ar: Australian Beauru of Metorology Weather Radar", 616, 514, 201, 118)
$Pic1 = GUICtrlCreatePic("d:\my documents\My Pictures\australia-radar-map.bmp", 8, 8, 600, 420, BitOR($SS_NOTIFY, $WS_GROUP))
$Group1 = GUICtrlCreateGroup("Step 1:", 8, 432, 193, 73)
$Label1 = GUICtrlCreateLabel("Select a State in Australia:", 16, 448, 179, 17)
$State = GUICtrlCreateCombo($States[0], 16, 472, 177, 25)
$Group2 = GUICtrlCreateGroup("Step 2:", 208, 432, 193, 73)
$Label2 = GUICtrlCreateLabel("Select a radar Location:", 216, 448, 179, 17)
$RadarLoc = GUICtrlCreateCombo("RadarLoc", 216, 472, 177, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Step 3:", 408, 432, 193, 73)
$Label3 = GUICtrlCreateLabel("Click OK!", 414, 451, 179, 17)
$ShowDar = GUICtrlCreateButton("OK!", 472, 472, 83, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

_GUICtrlComboAddArray($State, $States)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While GUIGetMsg() <> -3
WEnd

Func _GUICtrlComboAddArray($nCID, $aArray, $iBase = 0)
    Local $sHold
    For $iCC = $iBase To UBound($aArray) - 1
        $sHold &= $aArray[$iCC] & '|'
    Next
    Return GUICtrlSetData($nCID, $sHold)
EndFunc

[BrettF]

That was my most recent attempt Thanks SmokeN