#include <GuiConstants.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("循环的按钮", 413, 305, 302, 218)
GUISetOnEvent($GUI_EVENT_CLOSE, "main")
Dim $Button[8]
GUISetState()
For $i = 0 To 3
$Button[$i] = GUICtrlCreateButton("Button" & $i, 60, 20+30*($i), 121, 25, 0)
GUICtrlSetOnEvent($Button[$i], "main")
Next
For $i = 4 To 7
$Button[$i] = GUICtrlCreateButton("Button" & $i, 220, 20+30*($i), 121, 25, 0)
GUICtrlSetOnEvent($Button[$i], "main")
Next
While 1
Sleep(1000)
WEnd
Func main()
For $i = 0 To 7
Switch @GUI_CtrlId
Case $GUI_EVENT_CLOSE
Exit
Case $Button[$i]
MsgBox(4096, "", "你点击的是:Button" & $i)
EndSwitch
Next
EndFunc
楼主是新人处女帖,还是给个循环创建按钮例子你,论坛也有,可以自己搜索一下 |