[решено] Использование кнопки с точкой (ну это как поставить галочку=)

[sashadeg]

простите, за глупое название темы, не знаю как правильно выразиться... модераторы, измените пожалуйста название темы если можно(и если знаете, как правильно=)
Вот что мне нужно:
1. Вылазит окно в котором задаётся вопрос. нужно из 2 вариантов выбрать один (поставить точку на том котором считаете нужным)
2. при выборе первого варианта переменная $p = test1
3. при выборе второго варианта переменная $p = test2
4. далее скрипт продолжает своё выполнение используя переменную "$p" в соответствии с выбранным вариантом ранее =)

[proxy]

возмжно, в этом случае, проще отдельное GUI окошко нарисовать....

[sashadeg]

если вы не поняли то вот что примерно мне нужно, чтобы было в окошке =)
http://websave.mediaring.ru/22183

[beve]

вот что примерно мне нужно, чтобы было в окошке »
Вот:#include <GUIConstants.au3>

Global $p
$Form1 = GUICreate("Test", 196, 96, 193, 173)
$Label1 = GUICtrlCreateLabel("Сделайте ваш выбор сер:", 24, 8, 166, 17)
$Radio1 = GUICtrlCreateRadio("$p=test1", 24, 32, 113, 17)
$Radio2 = GUICtrlCreateRadio("$p=test2", 24, 48, 113, 17)
$Ok_Button = GUICtrlCreateButton("ok", 24, 72, 57, 17, 0)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Ok_Button
Select
Case GUICtrlRead($Radio1) = $GUI_CHECKED
$p="test1"
Exitloop
Case GUICtrlRead($Radio2) = $GUI_CHECKED
$p="test2"
Exitloop
EndSelect
EndSwitch
WEnd
GUISetState(@SW_HIDE)
MsgBox(0, "Результат", "$p="&$p)
Только непонятно, нужна кнопка ОК или не нужна, а чтобы при любом выборе скрипт сам продолжал свою работу?
Но если нужно без кнопки ОК, то вот:#include <GUIConstants.au3>

Global $p
$Form1 = GUICreate("Test", 196, 96, 193, 173)
$Label1 = GUICtrlCreateLabel("Сделайте ваш выбор сер:", 24, 8, 166, 17)
$Radio1 = GUICtrlCreateRadio("$p=test1", 24, 32, 113, 17)
$Radio2 = GUICtrlCreateRadio("$p=test2", 24, 48, 113, 17)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio1
If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) Then
$p="test1"
ExitLoop
EndIf
Case $Radio2
If BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) Then
$p="test2"
ExitLoop
EndIf
EndSwitch
WEnd
GUISetState(@SW_HIDE)
MsgBox(0, "Результат", "$p="&$p)

[sashadeg]

Спасибо!!! Очень помогло... ТО ЧТО ДОХТОР ПРОПИСАЛ =)

[sashadeg]

Закройте тему пожалуйста и поставте тег [решено] :)

[Creat0R]

поставте тег [решено] »
Вы кажется, и сами можете этот тег поставить :)