GUICtrlCreateCheckbox复选框的判断[已解决]-已解决问题区-AUTOIT CN

yikang8888 发表于 2010-12-14 15:26:53

GUICtrlCreateCheckbox复选框的判断[已解决]

本帖最后由 yikang8888 于 2010-12-15 12:39 编辑

如下代码,每个复选框对应一个功能,当按下start时,我需要判断哪几个复选框被选中,并且执行相应的功能,不选的不执行,请高手指点,感谢
GUICreate("Form1", 600, 450)
$Checkbox1 = GUICtrlCreateCheckbox("复选框 - 1", 40, 30, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("复选框 - 2", 160, 30, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("复选框 - 3", 280, 30, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("复选框 - 4", 400, 30, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("复选框 - 5", 40, 80, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("复选框 - 6", 160, 80, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("复选框 - 7", 280, 80, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("复选框 - 8", 400, 80, 97, 17)
$Checkbox9 = GUICtrlCreateCheckbox("复选框 - 9", 40, 130, 97, 17)
$Checkbox10 = GUICtrlCreateCheckbox("复选框 - 10", 160, 130, 97, 17)
$Checkbox11 = GUICtrlCreateCheckbox("复选框 - 11", 280, 130, 97, 17)
$Checkbox12 = GUICtrlCreateCheckbox("复选框 - 12", 400, 130, 97, 17)

$b = GUICtrlCreateButton('Start', 130, 200, 150, 25)
GUISetState()
$sl = 0
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
            Case -3
                     Exit
            Case $Checkbox1 To $Checkbox12
                     If GUICtrlRead($nMsg) = 1 Then $sl += 1
                     If GUICtrlRead($nMsg) = 4 Then $sl -= 1
            Case $b
                     MsgBox(0, 0, $sl)
   EndSwitch
WEnd

pusofalse 发表于 2010-12-14 15:42:09

单就此段代码来说，没必要判断Case $Checkbox1 To $Checkbox12，用Case $b截取按钮的点击就行了。在Case $b中循环检测所有的CheckBox是否被选中，如果选中则执行某个功能。在时间复杂度上，此题至少需要O(n)时间内完成，绝对不属于高效率，在想有没有高效一点的算法。

yikang8888 发表于 2010-12-14 15:54:32

谢谢,还请帮忙想想高效率并且简单的算法,感谢前辈!

yhxhappy 发表于 2010-12-14 16:33:29

高效率的话可以用事件模式啊，为每个$Checkbox写FUNC，一点一个准

yikang8888 发表于 2010-12-14 16:41:45

我是想先选择好需要的功能,然后再点击一个按钮,一起执行选的东西呀

afan 发表于 2010-12-14 17:59:40

本帖最后由 afan 于 2010-12-14 18:04 编辑

GUICreate("Form1", 600, 450)
$Checkbox1 = GUICtrlCreateCheckbox("复选框 - 1", 40, 30, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("复选框 - 2", 160, 30, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("复选框 - 3", 280, 30, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("复选框 - 4", 400, 30, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("复选框 - 5", 40, 80, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("复选框 - 6", 160, 80, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("复选框 - 7", 280, 80, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("复选框 - 8", 400, 80, 97, 17)
$Checkbox9 = GUICtrlCreateCheckbox("复选框 - 9", 40, 130, 97, 17)
$Checkbox10 = GUICtrlCreateCheckbox("复选框 - 10", 160, 130, 97, 17)
$Checkbox11 = GUICtrlCreateCheckbox("复选框 - 11", 280, 130, 97, 17)
$Checkbox12 = GUICtrlCreateCheckbox("复选框 - 12", 400, 130, 97, 17)

$b = GUICtrlCreateButton('Start', 130, 200, 150, 25)
GUISetState()
$ck = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $b
For $i = 1 To 12
If GUICtrlRead(Eval('Checkbox' & $i)) = 1 Then
$ck = $i
Call('_Go')
EndIf
Next
EndSwitch
WEnd

Func _Go()
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
EndFunc ;==>_Go
实际应用：GUICreate("Form1", 600, 450)
$Checkbox1 = GUICtrlCreateCheckbox("复选框 - 1", 40, 30, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("复选框 - 2", 160, 30, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("复选框 - 3", 280, 30, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("复选框 - 4", 400, 30, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("复选框 - 5", 40, 80, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("复选框 - 6", 160, 80, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("复选框 - 7", 280, 80, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("复选框 - 8", 400, 80, 97, 17)
$Checkbox9 = GUICtrlCreateCheckbox("复选框 - 9", 40, 130, 97, 17)
$Checkbox10 = GUICtrlCreateCheckbox("复选框 - 10", 160, 130, 97, 17)
$Checkbox11 = GUICtrlCreateCheckbox("复选框 - 11", 280, 130, 97, 17)
$Checkbox12 = GUICtrlCreateCheckbox("复选框 - 12", 400, 130, 97, 17)

$b = GUICtrlCreateButton('Start', 130, 200, 150, 25)
GUISetState()
$ck = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $b
For $i = 1 To 12
If GUICtrlRead(Eval('Checkbox' & $i)) = 1 Then
$ck = $i
Call('_Go')
EndIf
Next
EndSwitch
WEnd

Func _Go()
Switch $ck
Case 1
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 2
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 3
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 4
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 5
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 6
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 7
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 8
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 9
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 10
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 11
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
Case 12
MsgBox(0, '', '执行复选框 ' & $ck & ' 的任务')
EndSwitch
EndFunc ;==>_Go

yikang8888 发表于 2010-12-15 08:35:29

OK了,非常感谢.

you6591098 发表于 2011-2-28 21:26:54

实际应用：
afan 发表于 2010-12-14 17:59 http://www.autoitx.com/images/common/back.gif

这个能不能这样

这个如果一起选中的话就会一起弹对话框，我想让它等我第一个对话框关闭后在弹第二个对话框，然后第二关闭后在弹第三个对话框？

如果把弹对话框改为运行程序的话，那要命了。全部一起运行10多个程序！电脑非卡死不可！

afan 发表于 2011-2-28 21:36:38

回复 8# you6591098

怎么会一起弹出对话框呢，当然是关闭一个 MsgBox 才会继续下一个对话框。
如果是运行外部程序当然不能用 Run() ，而要 RunWait()

you6591098 发表于 2011-2-28 22:14:25

回复 9# afan

{:face (239):}哦。原来是这样！谢谢

虎虎虎 发表于 2012-8-16 23:08:53

不错哦，研究研究。

fanxiang_1984 发表于 2012-11-15 16:55:05

好东西，真是学习了。

dnvplj 发表于 2015-4-16 15:10:49

回复 6# afan
请教afan版主，安装时可否显示进度条，如：$Progress1 = GUICtrlCreateProgress(40, 169, 430, 13)

页: [1]

AUTOIT CN's Archiver

GUICtrlCreateCheckbox复选框的判断[已解决]