Error handling with Checkboxes

[EndFunc]

Hello,

I have a script/Gui that has checkboxes that are populated via an INIfile. So the values from the ini file creates the checkboxes upon startup.

What I want to do is be able to say if an certain checkbox is check it, it will not allow another one to be checked.

For example

Checkbox 1

Checkbox 2

Checkbox 3

Checkbox 4

Checkbox 5

If check box 2 is checked it will not allow checkbox 5. I can't figure that out for the life of me because of the fact that the checkboxes are dynamically created and the numeric value doesn't seem constant.

In my For loop I tried doing condition statments but I either break the loop or it doesn't work. Here is part of my code at the for loop when I run it.

Local $sProgs, $aProgs
For $i = 1 To $InstallPrograms[0][0]    
If GUICtrlRead($ProgCtrl[$i]) = $GUI_CHECKED Then
$Progs = GUICtrlRead($LabelCtrl[$i])
$sProgs &= $Progs & "," 
GUICtrlSetState($ProgCtrl[$i], $GUI_UNCHECKED)
EndIf
Next

Thanks

[GodlessSinner]

This may help you:

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Checkbox = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 532, 208, 260, 356)

$Cb1 = GUICtrlCreateCheckbox("Checkbox1", 40, 24, 273, 33)
$set1 = IniRead(@ScriptDir & "\settings.ini", "set1","key","0")
$Checkbox = $Cb1
_Check($Checkbox)
$Cb2 = GUICtrlCreateCheckbox("Checkbox2", 40, 56, 289, 25)
$set1 = IniRead(@ScriptDir & "\settings.ini", "set2","key","0")
$Checkbox = $Cb2
_Check($Checkbox)
$Cb3 = GUICtrlCreateCheckbox("Checkbox3", 40, 88, 297, 25)
$set1 = IniRead(@ScriptDir & "\settings.ini", "set3","key","0")
$Checkbox = $Cb3
_Check($Checkbox)
$Cb4 = GUICtrlCreateCheckbox("Checkbox4", 40, 120, 297, 25)
$set1 = IniRead(@ScriptDir & "\settings.ini", "set4","key","0")
$Checkbox = $Cb4
_Check($Checkbox)
$Cb5 = GUICtrlCreateCheckbox("Checkbox5", 40, 152, 297, 33)
$set1 = IniRead(@ScriptDir & "\settings.ini", "set5","key","0")
$Checkbox = $Cb5
_Check($Checkbox)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Cb1
            $set = "set1"
            $Cb= $Cb1
            _CheckNow($Cb, $set)
        Case $Cb2
            $set = "set2"
            $Cb= $Cb2
            _CheckNow($Cb, $set)    
        Case $Cb3
            $set = "set3"
            $Cb= $Cb3
            _CheckNow($Cb, $set)    
        Case $Cb4
            $set = "set4"
            $Cb= $Cb4
            _CheckNow($Cb, $set)    
        Case $Cb5
            $set = "set5"
            $Cb= $Cb5
            _CheckNow($Cb, $set)    
        
    EndSwitch
WEnd

Func _Check($Checkbox)
    If $set1 = 1 Then 
    GUICtrlSetState($Checkbox, $GUI_CHECKED)
Else
    GUICtrlSetState($Checkbox, $GUI_UNCHECKED)
EndIf
    EndFunc
Func _CheckNow($Cb, $set)
        If GUICtrlRead($Cb)=1 Then
            IniWrite(@ScriptDir & "\settings.ini", $set,"key","1")
        Else
            IniWrite(@ScriptDir & "\settings.ini", $set,"key","0")
        EndIf
EndFunc

[EndFunc]

Thanks, you gave me something to work with. I didnt think about making a seperate function to check them.

[llewxam]

I had a similar question recently and was turned on to GUICtrlCreateGroup which made my life easier than writing a function. I think you have to use radios instead of checkboxes, but oh well, small price.....

Ian