Что нового

[Элементы GUI] как работать с Radio?

andreitrane

Новичок
Сообщения
141
Репутация
3
ну собственно как работать с Radio?? как сделать если чекнута $radio1, то при нажатии button выполняется одна функция, а если чекнута $radio2, то выполняется другая функция??
если можете, то еще обьясните то же самое, только с Checkbox
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Код:
#include <GUIConstants.au3>
GUICreate("My GUI radio") 
$radio1 = GUICtrlCreateRadio ("Radio 1", 10, 10, 120, 20)
$radio2 = GUICtrlCreateRadio ("Radio 2", 10, 40, 120, 20)
$Button = GUICtrlCreateButton("Button",10,120,120,30)

GUICtrlSetState ($radio1,$GUI_CHECKED)

GUISetState ()       

While 1
    $msg = GUIGetMsg()
Select
	Case $msg = $Button
	if  GUICtrlRead ( $radio1  ) = $GUI_CHECKED then
		MsgBox(1, "Включен элемент ","Включен элемент Radio 1")
	ElseIf GUICtrlRead ( $radio2  ) = $GUI_CHECKED then
		MsgBox(1, "Включен элемент ","Включен элемент Radio 2")
	EndIf
EndSelect

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
 
Автор
A

andreitrane

Новичок
Сообщения
141
Репутация
3
спасибо, а можете ессказать как с checkbox работать?
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
andreitrane
1. почитай справку. там такие мелочи разжеваны.
2. одна тема - один вопрос. хотя если последуешь п.1 то п.2 уже не понадобится.
 

sss

Продвинутый
Сообщения
332
Репутация
96
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 249, 144)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 8, 8, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 8, 32, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 8, 56, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 8, 80, 97, 17)
$Button1 = GUICtrlCreateButton("Проверить состояние Checkbox'ов", 5, 112, 240, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("", 112, 8, 100, 20)
$Label2 = GUICtrlCreateLabel("", 112, 32, 100, 20)
$Label3 = GUICtrlCreateLabel("", 112, 56, 100, 20)
$Label4 = GUICtrlCreateLabel("", 112, 80, 100, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$check=GUICtrlRead($Checkbox1)
			If $check=1 then
				GUICtrlSetData($Label1,'Отмечен')
			Else
				GUICtrlSetData($Label1,'Не отмечен')
			EndIf
			$check=GUICtrlRead($Checkbox2)
			If $check=1 then
				GUICtrlSetData($Label2,'Отмечен')
			Else
				GUICtrlSetData($Label2,'Не отмечен')
			EndIf
			$check=GUICtrlRead($Checkbox3)
			If $check=1 then
				GUICtrlSetData($Label3,'Отмечен')
			Else
				GUICtrlSetData($Label3,'Не отмечен')
			EndIf
			$check=GUICtrlRead($Checkbox4)
			If $check=1 then
				GUICtrlSetData($Label4,'Отмечен')
			Else
				GUICtrlSetData($Label4,'Не отмечен')
			EndIf


	EndSwitch
WEnd
 
Верх