Gui, 2: need help for beginner

MoreInfo:

Gui, 2:Add, Checkbox, x20 y30 v1Fac0 Checked%1Show0%, S. Pool

Gui, 2:Add, Checkbox, v1Fac1 Checked%1Show1%, Squash

Gui, 2:Add, Checkbox, v1Fac2 Checked%1Show2%, Playgrd

Gui, 2:Add, Checkbox, v1Fac3 Checked%1Show3%, Balcony

Gui, 2:Add, Checkbox, v1Fac4 Checked%1Show4%, Air-Con

Gui, 2:Add, Checkbox, v1Fac5 Checked%1Show5%, Washer

Gui, 2:Add, Checkbox, x100 y30 v1Fac6 Checked%1Show6%, Gym

Gui, 2:Add, Checkbox, v1Fac7 Checked%1Show7%, MiniMart

Gui, 2:Add, Checkbox, v1Fac8 Checked%1Show8%, Jogging

Gui, 2:Add, Checkbox, v1Fac9 Checked%1Show9%, CableTV

Gui, 2:Add, Checkbox, v1Fac10 Checked%1Show10%,Cooking

Gui, 2:Add, Checkbox, v1Fac11 Checked%1Show11%,Internet

Gui, 2:Add, Checkbox, x180 y30 v1Fac12 Checked%1Show12%,Tennis

Gui, 2:Add, Checkbox, v1Fac13 Checked%1Show13%,Parking

Gui, 2:Add, Checkbox, v1Fac14 Checked%1Show14%,Security

Gui, 2:Add, Checkbox, r4 v1Fac15 Checked%1Show15%,LRT

Gui, 2:Add, Button,, Save

Gui, 2:show, center , More Information

return

Hi Guys,

i having 25 button for more info
but its indicated every different list which i set-up

its very trouble to do

Gui, 3:

Gui, 4:

Gui, 5:

until

Gui, 25:

Any other easier way to loop it ?

THanks

#Warn
#NoEnv
#SingleInstance Force

oTexts := % "
(LTrim Join
1; S. Pool1 |0; Squash1 |1; Playgrd1 |0; Balcony1 |1; Air-Con1 |0; Washer1  |1; Gym1      |0; MiniMart1 |
1; Jogging1 |0; CableTV2|1; Cooking1 |0; Interne1 |1; Tennis1  |0; Parking1 |1; Security1 |0; LRT1
$
0; S. Pool2 |1; Squash2 |0; Playgrd2 |1; Balcony2 |0; Air-Con2 |1; Washer2  |0; Gym2      |1; MiniMart2 |
0; Jogging2 |1; CableTV2|0; Cooking2 |1; Interne2 |0; Tennis2  |1; Parking2 |0; Security2 |1; LRT2
$
0; S. Pool3 |1; Squash3 |0; Playgrd3 |1; Balcony3 |0; Air-Con3 |1; Washer3  |0; Gym3      |1; MiniMart3 |
0; Jogging3 |1; CableTV3|0; Cooking3 |1; Interne3 |0; Tennis3  |1; Parking3 |0; Security3 |1; LRT3
$
0; S. Pool4 |1; Squash4 |0; Playgrd4 |1; Balcony4 |0; Air-Con4 |1; Washer4  |0; Gym4      |1; MiniMart4 |
0; Jogging4 |1; CableTV4|0; Cooking4 |1; Interne4 |0; Tennis4  |1; Parking4 |0; Security4 |1; LRT4

)"

Global oChecks := Object()
Loop,Parse,oTexts,$
  { 
   oGui := A_index
   Loop, Parse,A_LoopField,|
    {
    oCheck := A_index
    oStrings := StrSplit(trim(A_LoopField),";")
    Loop % oStrings.MaxIndex()
    	oChecks[oGui,oCheck,A_Index]:=oStrings[A_Index]
    }
  }



Loop 4
 newGui(A_index , "Gui Number " . A_index)


WinShow, ahk_group MyGroup
Return

#1::WinShow, ahk_group MyGroup
#2::WinHide, ahk_group MyGroup
#3::Exitapp


newGui(guiNumber,guiTitle) {
  Global
  Loop 16
   pChecks%A_index% :=  oChecks[guiNumber, A_Index,1]

  Gui,MyGui%guiNumber%: Destroy
  Gui,MyGui%guiNumber%: New,  hwndhGui%guiNumber%
  Gui,MyGui%guiNumber%: Add,  Checkbox, x20 y30  gChecksChange Checked%pChecks1%  , % oChecks[guiNumber, 1,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks2%  , % oChecks[guiNumber, 2,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks3%  , % oChecks[guiNumber, 3,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks4%  , % oChecks[guiNumber, 4,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks5%  , % oChecks[guiNumber, 5,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks6%  , % oChecks[guiNumber, 6,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox, x100 y30 gChecksChange Checked%pChecks7%  , % oChecks[guiNumber, 7,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks8%  , % oChecks[guiNumber, 8,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks9%  , % oChecks[guiNumber, 9,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks10% , % oChecks[guiNumber,10,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks11% , % oChecks[guiNumber,11,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks12% , % oChecks[guiNumber,12,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox, x180 y30 gChecksChange Checked%pChecks13% , % oChecks[guiNumber,13,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks14% , % oChecks[guiNumber,14,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox,          gChecksChange Checked%pChecks15% , % oChecks[guiNumber,15,2]
  Gui,MyGui%guiNumber%: Add,  Checkbox, r4       gChecksChange Checked%pChecks16% , % oChecks[guiNumber,16,2]
  Gui,MyGui%guiNumber%: Add,  Button  ,          gSave, Save
  Gui,MyGui%guiNumber%: Show, % "x" 100+guiNumber*5 " y" 100+guiNumber*20  , % guiTitle
  GroupAdd, MyGroup, GUI %guiNumber%
}

GuiEscape:
GuiClose:
ExitApp

save() {
  
  WinGet, xChecks, ControlList, A 
  Loop, parse, xChecks, `n
   {
   ControlGetText, LoopField, % A_LoopField  , A
	 GuiControlGet, xChecked, , % LoopField
   Msgbox % "LoopField: " LoopField " is " (xChecked = 1 ? "Cheked" : "Uncheked")
   }
 ;Gui, Hide
  Return
}

ChecksChange(CtrlHwnd, GuiEvent, EventInfo){
	Global
	Gui, Submit, NoHide
	GuiControlGet, IsChecked, , % A_GuiControl
  Msgbox % "A_GuiControl: " A_GuiControl " is "(IsChecked = 1 ? "Cheked" : "Uncheked")
  Return
}

This?

Sign In