#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("11111", 600, 80,-1,@DesktopHeight/4)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
Dim $But[1000]
For $i = 1 To 53
$But[$i] = GUICtrlCreateLabel("", 20+($i-1)*10, 20, 10, 40, $WS_GROUP)
;~ GUICtrlSetBkColor(-1, Random(0,16777215,1))
Next
For $i = 1 To 53;加这个循环,纯粹是演示批量控件操作来着,实际上面那个循环里面就可以搞定
GUICtrlSetBkColor($But[$i], Random(0,16777215,1));文字颜色
Next
GUISetState(@SW_SHOW, $Form1)
While 1
Sleep(10)
WEnd
Func Form1Close()
Exit
EndFunc
|