已解决-求教，如何达到选择一个radio，就会自动勾选相关checkbox？

pzypdl2006

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("测试", 625, 442, 192, 124)
$Radio1 = GUICtrlCreateRadio("模式1", 88, 56, 113, 17)
$Radio2 = GUICtrlCreateRadio("模式2", 248, 56, 113, 17)
$Checkbox1 = GUICtrlCreateCheckbox("项目1", 88, 120, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("项目2", 216, 120, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("项目3", 344, 120, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("项目4", 88, 152, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("项目5", 216, 152, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("项目6", 344, 152, 97, 17)
$Button1 = GUICtrlCreateButton("运行", 424, 200, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

想达到的目的：
选择【模式1】，则会自动勾选【项目1、项目2】；
选择【模式2】，则会自动勾选【项目3、项目4】；
点击运行，则会自动依次运行勾选的项目！
求帮哦！

afan

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("测试", 625, 442, 192, 124)
$Radio1 = GUICtrlCreateRadio("模式1", 88, 56, 113, 17)
$Radio2 = GUICtrlCreateRadio("模式2", 248, 56, 113, 17)
$Checkbox1 = GUICtrlCreateCheckbox("项目1", 88, 120, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("项目2", 216, 120, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("项目3", 344, 120, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("项目4", 88, 152, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("项目5", 216, 152, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("项目6", 344, 152, 97, 17)
$Button1 = GUICtrlCreateButton("运行", 424, 200, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Radio1
                        Local $a[2] = [$Checkbox1, $Checkbox2]
                        _Choose($a)
                Case $Radio2
                        Local $a[2] = [$Checkbox3, $Checkbox4]
                        _Choose($a)
                Case $Button1
                        _Run()
        EndSwitch
WEnd

Func _Run()
        Local $i
        For $i = $Checkbox1 To $Checkbox6
                If GUICtrlRead($i) = 1 Then MsgBox(0, '运行', 'RunWait("' & GUICtrlRead($i, 1) & '")')
        Next
EndFunc   ;==>_Run

Func _Choose($a)
        Local $i

        If Not IsArray($a) Then Return

        For $i = $Checkbox1 To $Checkbox6
                GUICtrlSetState($i, 4)
        Next
        For $i = 0 To UBound($a) - 1
                GUICtrlSetState($a[$i], 1)
        Next
EndFunc   ;==>_Choose

pzypdl2006

回复 2# afan
那如何给【checkbox1】赋值呢？
比如把1.exe赋给checkbox1
把命令Run()赋给checkbox2
？？

txen548

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
$Form1                        = Guicreate("Client PC 自動化安裝程式", 340, 125, -1, -1)
$Button1                = GuiCtrlCreateButton("全選", 10, 95, 60, 20)
$Button2                = GuiCtrlCreateButton("取消全選", 130, 95, 60, 20)
$Button3                = GuiCtrlCreateButton("執行", 250, 95, 60, 20)
$Checkbox1                = GUICtrlCreateCheckbox("Office2003", 10, 10, 120, 20)
$Checkbox2                = GUICtrlCreateCheckbox("還原軟件", 10, 40, 120, 20)
$Checkbox3                = GUICtrlCreateCheckbox("AdbeRdr810", 10, 70, 120, 20)
$Checkbox4                = GUICtrlCreateCheckbox("Java", 130, 10, 120, 20)
$Checkbox5                = GUICtrlCreateCheckbox("7-Zip", 130, 40, 120, 20)
$Checkbox6                = GUICtrlCreateCheckbox("ERP", 130, 70, 120, 20)
$Checkbox7                = GUICtrlCreateCheckbox("VNC監視器", 250, 10, 120, 20)
$Checkbox8                = GUICtrlCreateCheckbox("Xn View", 250, 40, 120, 20)
$Checkbox9                = GUICtrlCreateCheckbox("IE7", 250, 70, 120, 20)
GuiSetState(@SW_SHOW)
HotKeySet("{ESC}", "_Exit") ;按Esc結束程式
Func _Exit()
    Exit 0
EndFunc
While 1
        $Msg = GUIGetMsg()
        Switch $Msg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1                ;設定Checkbox 1~11 全選
                        GUICtrlSetState($Checkbox1,$GUI_CHECKED)
                        GUICtrlSetState($Checkbox2,$GUI_CHECKED)
                        GUICtrlSetState($Checkbox3,$GUI_CHECKED)
                        GUICtrlSetState($Checkbox4,$GUI_CHECKED)
                        GUICtrlSetState($Checkbox5,$GUI_CHECKED)
                        GUICtrlSetState($Checkbox6,$GUI_CHECKED)
                        GUICtrlSetState($Checkbox7,$GUI_CHECKED)
                        GUICtrlSetState($Checkbox8,$GUI_CHECKED)
                        GUICtrlSetState($Checkbox9,$GUI_CHECKED)
                Case $Button2                ;設定Checkbox 1~11 取消全選
                        GUICtrlSetState($Checkbox1,$GUI_UNCHECKED)
                        GUICtrlSetState($Checkbox2,$GUI_UNCHECKED)
                        GUICtrlSetState($Checkbox3,$GUI_UNCHECKED)
                        GUICtrlSetState($Checkbox4,$GUI_UNCHECKED)
                        GUICtrlSetState($Checkbox5,$GUI_UNCHECKED)
                        GUICtrlSetState($Checkbox6,$GUI_UNCHECKED)
                        GUICtrlSetState($Checkbox7,$GUI_UNCHECKED)
                        GUICtrlSetState($Checkbox8,$GUI_UNCHECKED)
                        GUICtrlSetState($Checkbox9,$GUI_UNCHECKED)
                Case $Button3
                    If BitAND(GUICtrlRead($Checkbox1),$gui_checked) Then
                                RunWait("各軟體Auto\5.安裝Office2003.exe",@ScriptDir)
                        EndIf
                        If BitAND(GUICtrlRead($Checkbox2),$gui_checked) Then
                                RunWait("各軟體Auto\2.安裝還原軟件.exe",@ScriptDir)
                        EndIf
                        If BitAND(GUICtrlRead($Checkbox3),$gui_checked) Then
                                RunWait("各軟體Auto\3.安裝AdbeRdr810.exe",@ScriptDir)
                        EndIf
                        If BitAND(GUICtrlRead($Checkbox4),$gui_checked) Then
                                RunWait("各軟體Auto\4.安裝Java.exe",@ScriptDir)
                        EndIf
                        If BitAND(GUICtrlRead($Checkbox5),$gui_checked) Then
                                RunWait("各軟體Auto\1.安裝7-Zip.exe",@ScriptDir)
                        EndIf
                        If BitAND(GUICtrlRead($Checkbox6),$gui_checked) Then
                                RunWait("各軟體Auto\6.安裝ERP.exe",@ScriptDir)
                        EndIf
                        If BitAND(GUICtrlRead($Checkbox7),$gui_checked) Then
                                RunWait("各軟體Auto\7.安裝VNC監視器.exe",@ScriptDir)
                        EndIf
                        If BitAND(GUICtrlRead($Checkbox8),$gui_checked) Then
                                RunWait("各軟體Auto\8.安裝Xn View.exe",@ScriptDir)
                        EndIf
                        If BitAND(GUICtrlRead($Checkbox9),$gui_checked) Then
                                RunWait("各軟體Auto\9.安裝IE7.exe",@ScriptDir)
                        EndIf
                        MsgBox(0,"Auto Install Script","Auto Client Install 自動安裝、設定完畢" &@LF& "      請立即重新開機完成安裝程序")
        EndSwitch
Wend

pzypdl2006

回复 4# txen548

难道不能赋值一个exe文件给checkbox吗？