#include <GUIConstantsEx.au3>
Global $aGroup[3], $aRadio[UBound($aGroup) * 2], $vTmp = 0, $fRadio
$hGui = GUICreate('Test', 400, 170)
For $i = 0 To 2
$aGroup[$i] = GUICtrlCreateGroup('Option ' & $i + 1, 10 + ($i * 130), 20, 120, 80)
For $j = 0 To 1
$aRadio[$vTmp] = GUICtrlCreateRadio('Radio ' & $vTmp + 1, 20 + $i * 130, 40 + $j * 30, 100, 20)
$vTmp += 1
Next
GUICtrlCreateGroup('', -99, -99, 1, 1)
Next
$vTmp = ''
$nBtn = GUICtrlCreateButton('Click', 150, 120, 100, 30)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $nBtn
If Not $fRadio Then
For $nRadio In $aRadio
If BitAND(GUICtrlRead($nRadio), $GUI_CHECKED) Then
$fRadio = True
ExitLoop
EndIf
Next
EndIf
If $fRadio Then
$vTmp = 'Checked:' & @LF
For $i = 0 To UBound($aRadio) - 1
If BitAND(GUICtrlRead($aRadio[$i]), $GUI_CHECKED) Then
$vTmp &= GUICtrlRead($aRadio[$i], 1) & @LF
;Or some code
EndIf
Next
MsgBox(64, 'Info', $vTmp)
$vTmp = ''
Else
MsgBox(16, 'Error', 'Надо что-то выбрать', 0, $hGui)
EndIf
EndSwitch
WEnd |
