Create x numbers of checkboxes with dynimic names

[Kiesp]

I would like to create an unknown number of checkboxes in my gui.

The number of checkboxes are decided by a file. It simply counts the number of lines. This is not the problem.

The problem is that i would like to be able to read the state of these checkboxes. But to do that i need a controlname (correct me if im wrong)

How can i create checkboxes with controlnames dynamicly. The problem is that there can be between 3 and 100 lines in this file.

Thanks in advance

Kiesp

[Melba23]

Kiesp,

Store the checkbox ControlIds in an array.

M23

[Kiesp]

Can you give an example ?

I think that i have "starred myself blind" on the code.

my code is still very messy.. and i dont have anything major in it. can post of needed though

Edited September 28, 2010 by Kiesp

[wakillon]

Post your script, it will be more simple to see what you want !

[Kiesp]

expandcollapse popup

#include <WindowsConstants.au3>
#Include <File.au3>
#Include <Array.au3>
#include <GUIConstantsEx.au3>
Opt("TrayIconHide",1)

Global $name, $i, $names,$navne, $ophei
$o = 0
$q = 0
$l = 5
$t = 5

if Not FileExists("Servicedesk personer.txt") Then
    fejl()
EndIf
if _FileReadToArray("Servicedesk personer.txt",$navne) = 0 Then fejl()
_ArrayAdd($navne,"")
_ArrayAdd($navne,"")

Global $variables[$navne[0]]

for $q = 0 To $navne[0] Step 2
    $ophei += 22
Next

$maingui = GUICreate("Servicedesk.",150,70,-1,-1,-1,BitOR($WS_EX_TOOLWINDOW,$WS_EX_APPWINDOW))
$roll1 = GUICtrlCreateButton("     Frokost     ",30,10)
$roll2 = GUICtrlCreateButton("      Møde       ",30,40)
$opt = GUICtrlCreateButton(" Mere ",110,25)
GUISetState(@SW_SHOW,$maingui)

$optiongui = GUICreate("",165,$ophei,-1,-1,-1,$WS_EX_TOOLWINDOW,$maingui)
for $w = 1 To $navne[0]
    $qq = $navne[$w]
    guictrlcreatecheckbox($navne[$w],$l,$t)
    ;MsgBox(0,"",guictrlgetstate($qq))
    ;MsgBox(0,"",GUICtrlGetHandle("[CLASS:Button; INSTANCE:1]"))
    GUICtrlSetState($navne[$w],$GUI_CHECKED)
    if $l = 5 Then
        $l = 100
    Else
        $l = 5
        $t += 25
    EndIf
Next


while 1
    $msg = GUIGetMsg(1)
    Select
        Case $msg[0] = -3 And $msg[1] = $maingui
            Exit
        case $msg[0] = $roll1
            GUICtrlDelete($roll1)
            GUICtrlDelete($roll2)
            GUICtrlDelete($opt)
            shuffle(2)
            GUISetState(@sw_hide,$optiongui)
        case $msg[0] = $roll2
    MsgBox(0,"",GUICtrlGetHandle("[CLASS:Button; INSTANCE:1]"))
            GUICtrlDelete($roll1)
            GUICtrlDelete($roll2)
            GUICtrlDelete($opt)
            shuffle(1)
            GUISetState(@sw_hide,$optiongui)
        Case $msg[0] = -3 And $msg[1] = $optiongui
            GUISetState(@sw_hide,$optiongui)
        Case $msg[0] = $opt
            GUISetState(@SW_SHOW,$optiongui)
    EndSelect
WEnd

Func fejl()
    if MsgBox(68,"Fejl","Du har ikke skrevet noget i ''Servicedesk personer.txt''" & @CRLF & "Vil du åbne filen ?") = 6 Then
        $SSDH = FileOpen("Servicedesk personer.txt",9)
        FileClose($SSDH)
        ShellExecuteWait(@ScriptDir & "\" & "Servicedesk personer.txt")
        if _FileReadToArray("Servicedesk personer.txt",$navne) = 0 then Exit
    Else
        Exit
    EndIf   
EndFunc

func shuffle($nrop)
    $totalnavne = $navne[0]
    for $i = 1 to $nrop
        $rand = Random(1,$totalnavne,1)
        if $navne[$rand] = "" Then
            $name = $navne[$rand + 1]
            ;if $navne[$rand] = "" Then $name = $navne[$rand - 2]
        Else
            $name = $navne[$rand]
        EndIf
        $navne[$rand] = ""
        $names = $names & $name & ","
    Next
    if $nrop = 2 Then
        $names = StringSplit($names,",")
        $names = $names[1] & " og " & $names[2]
        $section = "Frokost"
        $lbl = GUICtrlCreateLabel($names,10,5,140,30)
        GUICtrlSetFont($lbl,12,600)
        GUICtrlCreateLabel("Skal til frokost",35,40)
    Else
        $names = StringTrimRight($names,1)
        $section = "Møde"
        $lbl = GUICtrlCreateLabel($names,40,5,90,30)
        GUICtrlSetFont($lbl,12,600)
        GUICtrlCreateLabel("Skal blive på telefonen",15,40)
    EndIf
    IniWrite("Servicedesk.log",$section,@MDAY & "/" & @MON & "-" & @YEAR,$names)
EndFunc

Please dont criticize my messy code

This is the part that i tried with so far

$qq = $navne[$w]
    guictrlcreatecheckbox($navne[$w],$l,$t)
    ;MsgBox(0,"",guictrlgetstate($qq))
    ;MsgBox(0,"",GUICtrlGetHandle("[CLASS:Button; INSTANCE:1]"))
    GUICtrlSetState($navne[$w],$GUI_CHECKED)

[smashly]

Hi, dynamic checkboxes based on the height of the window

#include <GUIConstantsEx.au3>

Global $hGui, $aWinPos, $aCheckBox, $iMsg, $sState

$hGui = GUICreate("")
$aWinPos = WinGetPos($hGui)
Dim $aCheckBox[Int($aWinPos[3] / 30)]
For $i = 0 To UBound($aCheckBox) - 1
    $aCheckBox[$i] = GUICtrlCreateCheckbox("CheckBox " & $i + 1, 5, 5 + ($i * 30), 100, 25)
Next
GUISetState(@SW_SHOW, $hGui)

While 1
    $iMsg = GUIGetMsg()
    Switch $iMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $aCheckBox[0] To UBound($aCheckBox) - 1
            If BitAND(GUICtrlRead($iMsg), $GUI_CHECKED) Then
                $sState = "CHECKED"
            Else
                $sState = "UNCHECKED"
            EndIf
            MsgBox(64, "CheckBox Clicked", "Control ID: " & $iMsg & @LF & "CheckBox Text: " & GUICtrlRead($iMsg, 1) & @LF & "CheckBox State: " & $sState)
    EndSwitch
WEnd

Cheers

Edited September 28, 2010 by smashly

[Kiesp]

  On 9/28/2010 at 12:35 PM, 'smashly said:

Hi, dynamic checkboxes based on the height of the window

#include <GUIConstantsEx.au3>

Global $hGui, $aWinPos, $aCheckBox, $iMsg, $sState

$hGui = GUICreate("")
$aWinPos = WinGetPos($hGui)
Dim $aCheckBox[Int($aWinPos[3] / 30)]
For $i = 0 To UBound($aCheckBox) - 1
    $aCheckBox[$i] = GUICtrlCreateCheckbox("CheckBox " & $i + 1, 5, 5 + ($i * 30), 100, 25)
Next
GUISetState(@SW_SHOW, $hGui)

While 1
    $iMsg = GUIGetMsg()
    Switch $iMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $aCheckBox[0] To UBound($aCheckBox) - 1
            If BitAND(GUICtrlRead($iMsg), $GUI_CHECKED) Then
                $sState = "CHECKED"
            Else
                $sState = "UNCHECKED"
            EndIf
            MsgBox(64, "CheckBox Clicked", "Control ID: " & $iMsg & @LF & "CheckBox Text: " & GUICtrlRead($iMsg, 1) & @LF & "CheckBox State: " & $sState)
    EndSwitch
WEnd

Cheers

Thats very nice But it doesn't really solve my problem

[Melba23]

Kiesp,

  Quote

But it doesn't really solve my problem

Yes it does.

- It shows how to declare an array of a certain size. You just have to use the number of lines in your file, which you can get in a number of ways - you are using _FileReadToArray so you already have that information!

- It then shows how to create the correct number of checkboxes, storing their ControlIDs in the array.

- It finally shows you how to read those checkboxes and see if they have been checked or not.

Now go and try to incorporate those elements into your code. We are trying to get you to understand the code you write, so we are not going to write you a complete solution. Come back with any problems and we will point you in the right direction.

M23

[Kiesp]

  On 9/28/2010 at 1:17 PM, 'Melba23 said:

Kiesp,

Yes it does.

- It shows how to declare an array of a certain size. You just have to use the number of lines in your file, which you can get in a number of ways - you are using _FileReadToArray so you already have that information!

- It then shows how to create the correct number of checkboxes, storing their ControlIDs in the array.

- It finally shows you how to read those checkboxes and see if they have been checked or not.

Now go and try to incorporate those elements into your code. We are trying to get you to understand the code you write, so we are not going to write you a complete solution. Come back with any problems and we will point you in the right direction.

M23

Took at break, listened to some music and talked to some friends. Looked at the code again and now i can see that it helps me Thanks for pointing it out

I shall return shortly and tell u if i got it working or not

[Melba23]

Kiesp,

  Quote

Took at break, listened to some music and talked to some friends

Always helps! Personally I would add a glass or two of wine to the equation!

M23

[Kiesp]

  On 9/28/2010 at 1:39 PM, 'Melba23 said:

Kiesp,

Always helps! Personally I would add a glass or two of wine to the equation!

M23

Ya.. thats not a bad idea either Except for one small problem.. Im on the job ^^

Anyways.. i got it working thanks to you guys so thanks ALOT! u saved me hours and probably half of my hair ^^

[Melba23]

Kiesp,

Glad we could help.

M23