论坛 › 已解决问题区 › 多个复选框-如果做判断是否选择 [已解决]

872777825 发表于 2011-12-15 16:36:12

多个复选框-如果做判断是否选择 [已解决]

本帖最后由 872777825 于 2011-12-15 17:42 编辑

#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#Region ### START Koda GUI section ### Form=
Local $LSbox

$Form1 = GUICreate("Form1", 656, 421, -1, -1)
$LSbox = GUICtrlCreateCheckbox("123", 125, 20, 300, 17)
$LSbox = GUICtrlCreateCheckbox("456", 125, 41, 310, 17)
$LSbox = GUICtrlCreateCheckbox("789", 125, 62, 310, 17)
$LSbox = GUICtrlCreateCheckbox("321", 125, 83, 300, 17)
$LSbox = GUICtrlCreateCheckbox("258", 125, 104, 300, 17)

$LSBut01 = GUICtrlCreateButton("全 选", 500, 360, 60, 25)
$LSBut02 = GUICtrlCreateButton("应 用", 570, 360, 60, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $LSBut01
                        For $i = 1 To 5
                GUICtrlSetState($LSbox[$i],$GUI_CHECKED)
                        Next
                Case $LSBut02

        EndSwitch
WEnd如代码

如果在未做任何选择的时候按 应用会提示没做选择

不知道如何实现呢   麻烦老师们指点下谢谢

netegg 发表于 2011-12-15 16:58:04

哥们麻烦你用标准中文行吗,实在看不懂你的意思

872777825 发表于 2011-12-15 17:05:04

回复 2# netegg


   就是现在我这个还差一个功能

就是在如果未做任何选择就按应用键的话就提示 你并没选择任何选项请返回选择

afan 发表于 2011-12-15 17:06:14

哥们麻烦你用标准中文行吗,实在看不懂你的意思
netegg 发表于 2011-12-15 16:58 http://www.autoitx.com/images/common/back.gif


    很多人发帖“如果”“如何”不分，我都免疫了……

872777825 发表于 2011-12-15 17:09:53

回复 4# afan


    {:face (229):}   吸取版主教训下次定当修正

netegg 发表于 2011-12-15 17:10:54

回复 3# 872777825

if bitand(guictrlread(), $gui_unchecked) and bitand(guictrlread(), $gui_unchecked) and _
bitand(guictrlread(), $gui_unchecked) and bitand(guictrlread(), $gui_unchecked) then
msgbox(0,0,0)
    endif

afan 发表于 2011-12-15 17:20:32

#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_UseUPX=n
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#Region ### START Koda GUI section ### Form=
Local $LSbox

$Form1 = GUICreate("Form1", 656, 421, -1, -1)
$LSbox = GUICtrlCreateCheckbox("123", 125, 20, 300, 17)
$LSbox = GUICtrlCreateCheckbox("456", 125, 41, 310, 17)
$LSbox = GUICtrlCreateCheckbox("789", 125, 62, 310, 17)
$LSbox = GUICtrlCreateCheckbox("321", 125, 83, 300, 17)
$LSbox = GUICtrlCreateCheckbox("258", 125, 104, 300, 17)

$LSBut01 = GUICtrlCreateButton("全 选", 500, 360, 60, 25)
$LSBut02 = GUICtrlCreateButton("应 用", 570, 360, 60, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $LSBut01
                        For $i = 1 To 5
                                GUICtrlSetState($LSbox[$i], $GUI_CHECKED)
                        Next
                Case $LSBut02
                        If Not _CK() Then ContinueLoop MsgBox(48, '问题', '未做任何选择')
                        MsgBox(64, 'Ok', '执行')
        EndSwitch
WEnd

Func _CK()
        For $i = 1 To 5
                If GUICtrlRead($LSbox[$i]) = 1 Then Return 1
        Next
        Return 0
EndFunc   ;==>_CK

872777825 发表于 2011-12-15 17:42:17

谢谢 netegg长老 和 afan版主

终于解决了    谢谢楼上各位老师的指点    谢谢 {:face (249):}

魔导 发表于 2012-2-10 01:43:07

谢谢    学习了{:1_498:}

查看完整版本: 多个复选框-如果做判断是否选择 [已解决]