#include <GUIConstants.au3>
$Form1 = GUICreate("Form1", 215, 417, 193, 125)
$Group1 = GUICtrlCreateGroup("Group1", 16, 16, 185, 105)
$Radio1 = GUICtrlCreateRadio("Radio1", 40, 48, 113, 17)
GUICtrlSetState($Radio1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Radio2", 40, 72, 113, 17)
$Radio3 = GUICtrlCreateRadio("Radio3", 39, 168, 113, 17)
$Radio4 = GUICtrlCreateRadio("Radio4", 39, 192, 113, 17)
$Radio5 = GUICtrlCreateRadio("Radio5", 40, 288, 113, 17)
$Radio6 = GUICtrlCreateRadio("Radio6", 40, 312, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Group3", 16, 256, 185, 105)
$Group2 = GUICtrlCreateGroup("Group2", 15, 136, 185, 105)
$Button1 = GUICtrlCreateButton("Start", 64, 376, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_GetRadio ()
EndSwitch
WEnd
Func _GetRadio ()
If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) Then
MsgBox (0, "", "Выбран Radio1")
Return
EndIf
If BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) Then
MsgBox (0, "", "Выбран Radio2")
Return
EndIf
If BitAND(GUICtrlRead($Radio3), $GUI_CHECKED) Then
MsgBox (0, "", "Выбран Radio3")
Return
EndIf
If BitAND(GUICtrlRead($Radio4), $GUI_CHECKED) Then
MsgBox (0, "", "Выбран Radio4")
Return
EndIf
If BitAND(GUICtrlRead($Radio5), $GUI_CHECKED) Then
MsgBox (0, "", "Выбран Radio5")
Return
EndIf
If BitAND(GUICtrlRead($Radio6), $GUI_CHECKED) Then
MsgBox (0, "", "Выбран Radio6")
Return
EndIf
EndFunc |
