LZ,你可以参考论坛[url=[/quote]]5楼Afan[/url]现成的代码
或者点开地址抄袭一下。
http://www.autoitx.com/forum.php ... ;highlight=Checkbox
我本想依照Afan的代码修改一下偷下懒。可是我也是乱了,它为什么会一直跑一直跑。。。。就这个东西弄了一晚上没结果。 尽管如此,虽然但是,LZ偷偷告诉你,有时候搜索也是一种解决办法。
仅仅在这个论坛这已经是第三个同样问题的帖子了哦....#include 'GUIConstantsEx.au3'
$Form1 = GUICreate("Hello Word !", 485, 345, 200, 124)
For $boxn2 = 11 To 20
For $boxn1 = 1 To 10
Local $Checkbox[21]
$Checkbox[$boxn1] = GUICtrlCreateCheckbox("Checkbox" & $boxn1, 0, 10 + $boxn1 * 25, 97, 25)
$Checkbox[$boxn2] = GUICtrlCreateCheckbox("Checkbox" & $boxn2, 405, $boxn2 * 25 - 240, 97, 25)
ControlClick('', '', $Checkbox[$boxn1]) ;有点慢,运行还算有效
ControlClick('', '', $Checkbox[$boxn2]) ;有点慢,运行还算有效
GUISetState(@SW_SHOW)
Next
Next
While 1
Sleep(50)
Global $boxn1 = ''
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox[1] To $Checkbox[20]
Local $sl
If GUICtrlRead($nMsg) = 1 Then $sl += 1
If GUICtrlRead($nMsg) = 4 Then $sl -= 1
$Label1 = GUICtrlCreateLabel($sl, 220, 152, 53, 33)
;~ MsgBox('', '', $sl)
EndSwitch
WEnd
|