andreitrane
Новичок
- Сообщения
- 141
- Репутация
- 3
надо сделать чтобы если выделена checkbox, к $checkprov присваивалась функция, а если выделено несколько checkboxов, то к $checkprov присвоилось несколько функций, которые будут идти по порядку, даже если выделены не все checkboxы, например 1, 3, 4
такой код не работает
такой код не работает
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 174, 116, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("1", 8, 8, 73, 33)
$Checkbox2 = GUICtrlCreateCheckbox("2", 8, 40, 65, 25)
$Checkbox3 = GUICtrlCreateCheckbox("3", 8, 64, 65, 25)
$Checkbox4 = GUICtrlCreateCheckbox("4", 8, 88, 57, 25)
$Button1 = GUICtrlCreateButton("Button1", 88, 32, 73, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
$ch1 = GUICtrlRead($Checkbox1)
if $ch1 = 1 then $checkprov = _1()
$ch2 = GUICtrlRead($Checkbox2)
if $ch2 = 1 then $checkprov = _2()
$ch3 = GUICtrlRead($Checkbox3)
if $ch3 = 1 then $checkprov = _3()
$ch4 = GUICtrlRead($Checkbox4)
if $ch4 = 1 then $checkprov = _4()
Case $Button1
Global $checkprov
EndSwitch
WEnd
Func _1()
MsgBox(0, "f", "1")
EndFunc
Func _2()
MsgBox(0, "f", "2")
EndFunc
Func _3()
MsgBox(0, "f", "3")
EndFunc
Func _4()
MsgBox(0, "f", "4")
EndFunc