为什么复选框不能够判断是否被选中？-『提问交流』-AUTOIT CN

dtooboss 发表于 2009-9-3 15:18:18

为什么复选框不能够判断是否被选中？

本帖最后由 dtooboss 于 2009-9-3 15:20 编辑

我是初学者，各位帮忙看看。#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("暗黑地图cfg生成器", 461, 688, 303, 154)
Dim $Checkbox, $cb
$h = 12
$PageControl1 = GUICtrlCreateTab(8, 8, 440, 600)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("暗金物品")
GUICtrlSetDefColor(0x663300)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",1,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",2,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+1*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",3,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+2*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",4,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+3*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",5,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+4*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",6,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+5*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",7,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+6*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",8,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+7*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",9,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+8*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",10,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+9*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",11,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+10*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",12,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+11*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",13,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+12*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",14,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+13*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",15,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+14*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",16,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+15*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",17,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+16*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",18,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+17*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",19,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+18*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",20,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+19*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",21,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+20*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",22,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+21*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",23,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+22*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",24,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+23*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",25,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+24*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",26,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+25*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",27,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+26*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",28,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+27*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",29,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+28*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",30,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+29*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",31,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+30*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",32,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+31*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",33,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+32*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",34,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+33*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",35,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+34*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",36,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+35*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",37,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+36*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",38,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+37*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",39,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+38*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",40,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+39*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",41,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+40*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",42,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+41*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",43,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+42*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",44,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",45,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+1*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",46,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+2*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",47,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+3*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",48,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+4*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",49,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+5*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",50,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+6*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",51,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+7*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",52,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+8*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",53,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+9*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",54,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+10*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",55,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+11*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",56,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+12*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",57,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+13*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",58,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+14*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",59,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+15*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",60,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+16*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",61,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+17*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",62,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+18*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",63,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+19*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",64,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+20*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",65,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+21*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",66,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+22*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",67,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+23*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",68,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+24*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",69,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+25*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",70,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+26*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",71,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+27*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",72,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+28*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",73,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+29*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",74,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+30*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",75,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+31*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",76,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+32*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",77,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+33*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",78,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+34*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",79,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+35*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",80,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+36*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",81,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+37*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",82,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+38*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",83,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+39*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",84,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+40*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",85,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+41*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",86,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+42*$h, 200, 17)

$TabSheet2 = GUICtrlCreateTabItem("套装,材料,杂物")
GUICtrlSetDefColor(0x339933)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",87,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",88,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+1*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",89,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+2*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",90,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+3*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",91,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+4*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",92,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+5*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",93,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+6*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",94,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+7*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",95,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+8*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",96,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+9*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",97,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+10*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",98,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+11*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",99,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+12*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",100,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+13*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",101,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+14*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",102,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+15*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",103,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+16*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",104,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+17*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",105,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+18*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",106,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+19*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",107,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+20*$h, 200, 17)
GUICtrlSetDefColor(0x000066)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",108,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+21*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",109,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+22*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",110,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+23*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",111,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+24*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",112,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+25*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",113,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+26*$h, 200, 17)
GUICtrlSetDefColor(0x0)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",114,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+27*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",115,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+28*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",116,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+29*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",117,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+30*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",118,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+31*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",119,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+32*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",120,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+33*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",121,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+34*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",122,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+35*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",123,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+36*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",124,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+37*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",125,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+38*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",126,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+39*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",127,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+40*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",128,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+41*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",129,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+42*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",130,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 20, 40+43*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",131,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",132,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+1*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",133,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+2*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",134,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+3*$h, 200, 17)
GUICtrlSetDefColor(0x663300)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",135,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+4*$h, 200, 17)
GUICtrlSetDefColor(0xcc6633)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",136,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+5*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",137,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+6*$h, 200, 17)
GUICtrlSetDefColor(0x663300)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",138,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+7*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",139,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+8*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",140,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+9*$h, 200, 17)

$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",141,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+10*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",142,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+11*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",143,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+12*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",144,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+13*$h, 200, 17)
GUICtrlSetDefColor(0x663300)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",145,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+14*$h, 200, 17)
GUICtrlSetDefColor(0x9932cc)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",146,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+15*$h, 200, 17)
$text= StringSplit(IniRead("E:\4-17\au3\item.ini","anjin",147,""), '//', 1)
$Checkbox = GUICtrlCreateCheckbox($text, 220, 40+16*$h, 200, 17)

$TabSheet3 = GUICtrlCreateTabItem("待补充物品")
GUICtrlCreateTabItem("")
GUICtrlSetDefColor(0x0)
$Button1 = GUICtrlCreateButton("确定(&O)", 54, 648, 75, 25, 0)
$Button2 = GUICtrlCreateButton("取消(&C)", 190, 648, 75, 25, 0)
$Button3 = GUICtrlCreateButton("帮助(&H)", 328, 648, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
   Case $Button1;$msg的值等于$Button_3时获取当前选中的复选框
                  $checked = '';先把$checked赋予一次空值，这样做是防止此前判断过的值被再次利用，造成判断错误
                     ;依旧是利用for循环判断选中的复选框，若选中的话则用ControlGetText函数根据复选框控件id获取它的说明文字
                  For $i = 1 To 200
                           ;GUICtrlRead读取复选框状态
                           ;BitAND进行与运算
                           ;ControlGetText读取复选框说明文字
;                         If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then $checked &= ControlGetText($TabSheet1, "", $Checkbox[$i]) & @LF;$checked变量与自身进行连接

                           ;下面是不使用与运算的判断是否选中的方法
               if GUICtrlRead($Checkbox[$i],1) = $GUI_CHECKED Then $checked &= ControlGetText($Form3, "", $checkbox[$i]) & @LF
               Next
                  If $checked = '' Then
                           ;$checked为空的时候进行未选中提示
                           MsgBox(0, '', '当前没有任何复选框被选中！', 5, $Form3)
                  Else
                           ;$checked不为空的时候进行选中提示
                           MsgBox(0, '', '被选中的复选框为' & @LF & $checked, 5, $Form3)
                  EndIf
;             Case $check;当GUI上的消息是对$check控件操作时，运行以下代码
                     ;判断$check是否选中，并对label进行修改


EndSwitch
WEnd老是这句提示错误if GUICtrlRead($Checkbox[$i],1) = $GUI_CHECKED Then $checked &= ControlGetText($Form3, "", $checkbox[$i]) & @LF

顽固不化 发表于 2009-9-3 16:18:45

本帖最后由顽固不化于 2009-9-3 16:20 编辑

if GUICtrlRead($Checkbox[$i],1) = $GUI_CHECKED Then..........
启用了高级模式后返回的是控件的文本，而$GUI_CHECKED 是控件被选中后的状态，这两种不同类型如何能划等号呢？
另外，就状态而言，用这种“等于”的方式也将出现错误的。

给你举个简单的例子：#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
dim $Checkbox
$Form1 = GUICreate("Form1", 633, 447, 120, 124)
$Checkbox = GUICtrlCreateCheckbox("复选框1", 40, 72, 105, 41)
$Checkbox = GUICtrlCreateCheckbox("复选框2", 40, 120, 105, 65)
$Checkbox = GUICtrlCreateCheckbox("复选框3", 40, 216, 113, 49)
$BT=GUICtrlCreateButton("读取",40,300,110,25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BT
for $i=1 To 3
$Name=GUICtrlRead($Checkbox[$i],1)
If BitAND(GUICtrlRead($Checkbox[$i]),$GUI_CHECKED) Then
$ST="已选中"
Else
$ST="未选中"
EndIf
MsgBox(0,"读取状态","控件文本: "&$Name &@CRLF &"状态是: "&$ST)
Next

EndSwitch
WEnd

dtooboss 发表于 2009-9-3 16:24:12

2# 顽固不化
不加 1 也是出错
不能返回状态

bing614 发表于 2009-9-3 16:30:26

if GUICtrlRead($Checkbox[$i]) =1 then msgbox(0,"选中")

dtooboss 发表于 2009-9-3 16:35:37

感谢感谢非常感谢
已经解决了谢谢！

都市浪子666 发表于 2009-9-3 16:36:49

谢谢顽固不化
又学到一点点

页: [1]

AUTOIT CN's Archiver

为什么复选框不能够判断是否被选中？