Code: Select all
item1 := ["Item1", "Item2", "Item3", "Item4", "Item5", "Item6"]
item2 := ["Item7", "Item8", "Item9", "Item10", "Item11", "Item12"]
Loop, 2 {
gui := A_Index
Gui, %gui%:New,, Selection %gui%
Gui, Font, s10
For each, itemName in item%gui%
Gui, Add, Radio, % each = 1 ? "vsel" gui : "", %itemName%
Gui, Add, Button, w250 Default, OK
}
Gui, 1:Show, x200
Gui, 2:Show, x700
Return
ButtonOK:
Gui, Submit
MsgBox, 64, Selection 1, % item1[sel1]
Return
2ButtonOK:
Gui, 2:Submit
MsgBox, 64, Selection 2, % item2[sel2]
Return
Or:
Code: Select all
item := []
item.Push(["Item01", "Item02", "Item03", "Item04", "Item05", "Item06"])
item.Push(["Item07", "Item08", "Item09", "Item10", "Item11", "Item12"])
For guiNumber, gui in item {
Gui, %guiNumber%:New,, Selection %guiNumber%
Gui, Font, s10
For each, itemName in gui
Gui, Add, Radio, % each = 1 ? "vsel" guiNumber : "", %itemName%
Gui, Add, Button, w250 Default, OK
}
Gui, 1:Show, x200
Gui, 2:Show, x700
Return
ButtonOK:
Gui, Submit
MsgBox, 64, Selection 1, % item[1, sel1]
Return
2ButtonOK:
Gui, 2:Submit
MsgBox, 64, Selection 2, % item[2, sel2]
Return