Arrrays

[Vindicator209]

hehe, I've never dealt with arrays, and im trying to continously add to a combo box from arrays the user declares, but im having trouble making a loop that does it until theres no more existing arrays (and yes, I dont have any Idea what im talking about)

Func ComboBox($cTitle,$cText,$cButtonText,$cX,$cY)
GUICreate($cTitle, 193, 167, $cX, $cY)
$cCombo = GUICtrlCreateCombo("", 10, 136, 140, 25)
$cButton = GUICtrlCreateButton($cButtonText, 150, 136, 30, 25)
GUICtrlCreateLabel($cText, 10, 10, 169, 121)
GUISetState(@SW_SHOW)
$i=0
Do ;Problem Area
    GUICtrlSetData($cCombo,$ComboAdd[$i],GUICtrlRead($cCombo))
    $i=$i+1
Until @error = 1 ;erm... this is my try at it
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $cButton
            Return(GUICtrlRead($cCombo))
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd
EndFunc

[Vindicator209]

ok I guess I'll clear i up a bit:

Local $ComboAdd[4];truthfully, I dont know what this does
$ComboAdd[0] = "ONE"
$ComboAdd[1] = "TWO"
$ComboAdd[2] = "1"
$ComboAdd[3] = "2"
ComboBox("Test","Hey!","Ok",-1,-1)

Func ComboBox($cTitle,$cText,$cButtonText,$cX,$cY)
GUICreate($cTitle, 193, 167, $cX, $cY)
$cCombo = GUICtrlCreateCombo("", 10, 136, 140, 25)
$cButton = GUICtrlCreateButton($cButtonText, 150, 136, 30, 25)
GUICtrlCreateLabel($cText, 10, 10, 169, 121)
GUISetState(@SW_SHOW)
$i=0
Do;Problem Area
    GUICtrlSetData($cCombo,$ComboAdd[$i],GUICtrlRead($cCombo))
    $i=$i+1
Until @error = 1;erm... this is my try at it
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $cButton
            Return(GUICtrlRead($cCombo))
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd
EndFunc

Array variable has incorrect number of subscripts or subscript dimension range exceeded

[McGod]

Local $ComboAdd[4];truthfully, I dont know what this does

This declares an array, the [4] is the number of subscripts it has.

[0]

[1]

[2]

[3]

Theres your 4.

When you add to it you need to do a

ReDim $Vari[uBound($Vari)+1]

In your case

ReDim $ComboAdd[uBound($ComboAdd)+1]

[Vindicator209]

now how do I stop it after the arrays dont exist anymore?

Do

Sleep(100)

GUICtrlSetData($cCombo,$ComboAdd[$i])

ReDim $ComboAdd[uBound($ComboAdd)+1]

Until <===============I don't know how to stop it

I tried @error = 1 but there appearently no error when it tries to use a non existant array...

Edited June 8, 2007 by MethodZero

[randallc]

now how do I stop it after the arrays dont exist anymore?

Do

Sleep(100)

GUICtrlSetData($cCombo,$ComboAdd[$i])

ReDim $ComboAdd[uBound($ComboAdd)+1]

Until <===============I don't know how to stop it

I tried @error = 1 but there appearently no error when it tries to use a non existant array...

Hi, try

;ComboAdd.au3
#include <GUIConstants.au3>
Local $ComboAdd[4];dimension of the array (number of elements)
$ComboAdd[0] = "ONE"
$ComboAdd[1] = "TWO"
$ComboAdd[2] = "1"
$ComboAdd[3] = "2"
ComboBox("Test", "Hey!", "Ok", -1, -1)

Func ComboBox($cTitle, $cText, $cButtonText, $cX, $cY)
    GUICreate($cTitle, 193, 167, $cX, $cY)
    $cCombo = GUICtrlCreateCombo($ComboAdd[0], 10, 136, 140, 25)
    $cButton = GUICtrlCreateButton($cButtonText, 150, 136, 30, 25)
    GUICtrlCreateLabel($cText, 10, 10, 169, 121)
    GUISetState(@SW_SHOW)
    $i = 0
    For $sArrayElement In $ComboAdd
        GUICtrlSetData($cCombo, $sArrayElement, GUICtrlRead($cCombo))
    Next
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $cButton
                Return (GUICtrlRead($cCombo))
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>ComboBox

Randall Edited June 8, 2007 by randallc

[Vindicator209]

thanks very very very very much!

Both of you, thank you!