本帖最后由 qysir 于 2009-4-23 20:36 编辑
#include <GuiConstantsEx.au3>
Dim $pzwj, $d[16], $rjmc, $rjsm, $i, $j, $k
GuiCreate("软件疯狂装", 600, 485)
GuiCtrlCreateTab(0, 70, 600, 372)
$pzwj = ("setup.ini")
for $j = 1 to 16
$d[$j] = IniRead($pzwj, "大类名称", $j, "没有")
$k = IniRead($pzwj, $i, "页面", "没有")
if $d[$j] = "没有" then
else
GuiCtrlCreateTabItem($d[$j])
GuiCtrlCreateGroup("",5,86,140,350)
GuiCtrlCreateGroup("",142,86,450,350)
for $i = 1 to 160
$rjmc = IniRead($pzwj, $i, "名称", "没有")
$rjsm = IniRead($pzwj, $i, "说明", "该软件没有说明信息")
if $rjmc = "没有" then
Else
GuiCtrlCreateCheckbox($rjmc, 14, 66+($i-($k-1)*10)*34)
GuiCtrlCreateLabel($rjsm, 151, 70+($i-($k-1)*10)*34)
endif
next
endif
next
GuiCtrlCreateTabItem("")
GuiSetState()
While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd |