能否有办法侦测到Group组内的复选框的个数等信息？

blue_dvd

能否有办法侦测到Group组内的复选框的个数等信息？

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 397, 170, 198, 191)
$Group1 = GUICtrlCreateGroup("Group1", 88, 24, 185, 105)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 104, 48, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 104, 80, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

        EndSwitch
WEnd

netegg

lz要先搞明白，group不是个实际控件，不是只有checkbox在里面的

blue_dvd

怪不得没有任何拓展函数！

afan

自建的东西还要侦测吗？

netegg

真想弄倒是也行
#Include <WinAPIEx.au3>
_WinAPI_EnumChildWindows
获取界面上所有子窗体，检查类名为checkbox的项目，获取各控件的坐标，和group对比

轩辕小妖

回复 5# netegg

对比坐标是个不错的想法,不过可惜的是,Checkbox的控件类是Button~~

估计楼主是闲得蛋疼了~~

netegg

回复 6# 轩辕小妖
这个倒是也不难做，button的状态值是1和0(未按下，默认)，checkbox的状态值是4(未选中，默认)和1

blue_dvd

回复 5# netegg
多谢了，自己先查下资料学习下！

netegg

[au3]#include <Array.au3>
#include <WinAPIEx.au3>
#include <GUIConstantsEx.au3>


Opt('MustDeclareVars', 1)

Global $hForm, $Data

$hForm = GUICreate('MyGUI', 310, 360)
GUISetFont(8.5, 400, 0, 'MS Shell Dlg', $hForm)
GUICtrlCreateGroup('Group', 10, 10, 140, 95)
GUICtrlCreateCheckbox('Check1', 22, 26, 120, 23)
GUICtrlCreateCheckbox('Check2', 22, 49, 120, 23)
GUICtrlCreateCheckbox('Check3', 22, 72, 120, 23)
GUICtrlCreateGroup('Group', 160, 10, 140, 95)
GUICtrlCreateRadio('Radio1', 172, 26, 120, 23)
GUICtrlCreateRadio('Radio2', 172, 49, 120, 23)
GUICtrlCreateRadio('Radio3', 172, 72, 120, 23)
GUICtrlCreateButton('OK', 120, 330, 70, 23)
GUICtrlCreateTab(10, 118, 292, 206)
GUICtrlCreateTabItem('Tab1')
GUICtrlCreateTabItem('Tab2')
GUICtrlCreateTabItem('')
GUISetState()

$Data = _WinAPI_EnumChildWindows($hForm)
Dim $aA[UBound($Data) - 1][3]
Local $j = 1
For $i = 1 To $Data[0][0]
        If $Data[$i][1] = 'button' Then
                $aA[$j - 1][0] = $Data[$i][0]
                $aA[$j - 1][1] = _WinAPI_GetWindowLong($Data[$i][0], $GWL_ID)
                $aA[$j - 1][2] = GUICtrlRead($aA[$j - 1][1])
                If IsNumber(GUICtrlRead($aA[$j - 1][1])) And GUICtrlSetState($aA[$j - 1][1], 2) Then
                        If BitAND(GUICtrlRead($aA[$j - 1][1]), $GUI_CHECKED) Then
                                $j += 1
                                ReDim $aA[$j][3]
                        EndIf
                EndIf
        EndIf
Next
msgbox(0,0,'total number of checkboxes: ' & $j-1)

Do
Until GUIGetMsg() = -3

[/au3]有个问题，改变状态了，如果不分单选和复选的话倒是没什么问题

afan

回复 9# netegg


    蛋蛋还真是蛋疼不已……

#include <Array.au3>
#include <WinAPIEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>

$hForm = GUICreate('MyGUI', 310, 360)
GUISetFont(8.5, 400, 0, 'MS Shell Dlg', $hForm)
GUICtrlCreateGroup('Group', 10, 10, 140, 95)
GUICtrlCreateCheckbox('Check1', 22, 26, 120, 23)
GUICtrlCreateCheckbox('Check2', 22, 49, 120, 23)
GUICtrlCreateCheckbox('Check3', 22, 72, 120, 23)
GUICtrlCreateGroup('Group', 160, 10, 140, 95)
GUICtrlCreateRadio('Radio1', 172, 26, 120, 23)
GUICtrlCreateRadio('Radio2', 172, 49, 120, 23)
GUICtrlCreateRadio('Radio3', 172, 72, 120, 23)
GUICtrlCreateButton('OK', 120, 330, 70, 23)
GUICtrlCreateTab(10, 118, 292, 206)
GUICtrlCreateTabItem('Tab1')
GUICtrlCreateTabItem('Tab2')
GUICtrlCreateTabItem('')
GUISetState()

$Data = _WinAPI_EnumChildWindows($hForm)
Dim $aA[UBound($Data) - 1][2]
Local $j = 1
For $i = 1 To $Data[0][0]
        If $Data[$i][1] = 'button' Then
                $aA[$j - 1][0] = ControlGetText('', '', $Data[$i][0])
                $long = _WinAPI_GetWindowLong($Data[$i][0], 0xFFFFFFF0)
                If BitAND($long, $BS_AUTORADIOBUTTON) = $BS_AUTORADIOBUTTON Then
                        $aA[$j - 1][1] = '单选框'
                ElseIf BitAND($long, $WS_GROUP) = $WS_GROUP Then
                        $aA[$j - 1][1] = '分组框'
                ElseIf BitAND($long, $BS_AUTOCHECKBOX) = $BS_AUTOCHECKBOX Then
                        $aA[$j - 1][1] = '复选框'
                Else
                        $aA[$j - 1][1] = '按钮'
                EndIf
                $j += 1
        EndIf
Next
ReDim $aA[$j - 1][2]
_ArrayDisplay($aA, '_WinAPI_EnumChildWindows')

Do
Until GUIGetMsg() = -3

netegg

$BS_AUTOCHECKBOX,$BS_AUTORADIOBUTTON这俩值是什么，倒是没想到
9和3，不错不错，赞了

xms77

楼上两位高人都蛋疼了

blue_dvd

感谢蛋大，A大的回答！运行成功！还要仔细研究方能理解！

blue_dvd

回复 10# afan
有没有中间侦测的语句说明，谢谢了！

netegg

回复 14# blue_dvd
什么意思？lz太邪门了，实时监控个数？