Tricky Question....

[Azothoras]

I am sorry for my bad english/phrasing but I am swedish and I am tired hehe.

I am making a program for work that will make the schedule for alot of people. Anyways my problem is in the GUI (as always I suck at GUI's).

The bottom of my problem is that I need to create x number of buttons / labels / whatever. They also needs to be resised to fit the window (This is not a problem)

After all the buttons are created I need to access them in a loop (change the text of them.)

If this is not possible my script will be like 10000000000000000 lines

Example of how I want to change them.

For $x=1 to $nrbuttons
      GUICtrlSetData($button$x, "New info")
Next

Don't really have to be buttons can be labels or whatever. All I want is for this to be possible hehe.

I really need this because they (the crappy guys at the office) needs to be able to add or remove labels/buttons themselves. Also there will be different ammounts of buttons/labels from day to day. The info on the buttons/labels will also change from day to day.

I hope this is readable and understandable. Please help me out guys.

//Azothoras

Edited May 18, 2010 by Azothoras

[PsaltyDS]

This is a very common question and has been answered many times: Arrays.

Keep the control IDs and/or handles in an array. You can easily loop through an array to perform actions on the controls.

[AdmiralAlkex]

And since you probably suck at arrays (or this thread wouldn't have existed), go look at the Array tutorial.

[AndyG]

Hi, 

could be done this way...

expandcollapse popup

$numberofbuttons = 24   ;number from 1 to 30
Dim $buttoncontrolID[$numberofbuttons + 1]

GUICreate("test")
For $i = 1 To $numberofbuttons ;we make an array of buttons
    $buttoncontrolID[$i] = GUICtrlCreateButton("  Button  " & $i, 10 + ((($i > 10) + ($i > 20)) * 100), 30 + ($i - (($i > (($i > 20) + 1) * 10) * (($i > 20) + 1) * 10)) * 30,85,30)
Next
$somethingbutton=guictrlcreatebutton("do something ",310,30,80,30 )

;here you could give the buttons an other text or color
guictrlsetdata($buttoncontrolID[1] ,"Push!")
GUICtrlSetColor($buttoncontrolID[1],0xFF00FF)
guictrlsetdata($buttoncontrolID[13],"Push ME!")
GUICtrlSetColor($buttoncontrolID[13],0x000FFF)
guictrlsetdata($buttoncontrolID[17],"Push ME TOO!")
GUICtrlSetColor($buttoncontrolID[17],0xFF0000)

GUISetState()



While 1
    $msg = GUIGetMsg()
    ;ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $msg = ' & $msg & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    Switch $msg
        Case -3  ;exit is pressed
            Exit
        case $somethingbutton
            Msgbox (0,"","Button ""do something"" is pressed")

        Case $buttoncontrolID[1] To $buttoncontrolID[$numberofbuttons]   ;one of the "array"-Buttons is pressed
           call ("_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg)))  ;names oft the functions are _arraybutton_1() _arraybutton_2().....
            If @error = 0xDEAD And @extended = 0xBEEF Then MsgBox(4096, "ERROR", "Function "&"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg))&" does not exist!")
    EndSwitch
WEnd



;*******************functions********************************
func _arraybutton_1()

    msgbox(0,"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg)),"arraybutton pressed: "&GUICtrlRead($msg))
endfunc
;
; here are the funcs of the buttons
;
;
func _arraybutton_13()
    msgbox(0,"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg)),"arraybutton pressed: "&GUICtrlRead($msg))
endfunc

func _arraybutton_17()
    msgbox(0,"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg)),"arraybutton pressed: "&GUICtrlRead($msg))
endfunc

/EDIT/ @gui_ctrlid and @gui_ctrlhandle are also worth to take a look at

Edited May 19, 2010 by AndyG

[Azothoras]

lol now I remember why I don't come to this forum much... Such assholes

Ty PsaltyDS and AndyG

Edited May 19, 2010 by Azothoras

[Jos]

lol now I remember why I don't come to this forum much... Such assholes

When that is how you feel then better stay away....

[GEOSoft]

When that is how you feel then better stay away....

But then he would be so sadly missed by all of us.

AdmiralAlkex wan't really wrong here IMHO, the OP has been a member for 5 years and obviously still hasn't spent much time in the help file. It was written in less time than that.

[AdmiralAlkex]

lol now I remember why I don't come to this forum much... Such assholes

The only one being an asshole here is you. I just stated the truth (that you suck at arrays) and linked you to the tutorial. If you have such problems accepting reality you should just go back to that cave you came from and stay there. Edited May 19, 2010 by AdmiralAlkex