AutoHotkey Community

CheckBox12:
Gui, Submit, NoHide 

if Checkbox12 = 1   
{
GuiControl,, CheckBox13, 0
}
return

CheckBox13:
Gui, Submit, NoHide 

if Checkbox13 = 1 
{
GuiControl,, CheckBox12, 0
}
return

Gui, Add, CheckBox, vCheckBox12 gCheckBox12
Gui, Add, CheckBox, vCheckBox13 gCheckBox13

Gui, Show
return
GuiClose:
 ExitApp

CheckBox12:
 Gui, Submit, NoHide
 if Checkbox12 
  GuiControl,,CheckBox13, 0
return

CheckBox13:
 Gui, Submit, NoHide
 if Checkbox13
  GuiControl,,CheckBox12, 0
return

Items = Lastname|First Name|MiddleName|Initials|E-mail Werk|Assistant|Assistant Mail|Manager|Partner Naam|Titel|Suffix|Man|Vrouw|Telefoon Werk|Fax Werk|Mobiel Werk|Assistant Phone|Manager Phone|Huisadres|Home Phone|Mobiel Prive|Fax Home|E-mail Prive
CheckVals = 1|1|1|1|1|1|1|1|1|1|1|1|0|1|1|1|1|1|0|1|1|1|1
StringSplit, ItemArray     , Items    , |   ; Split the items into an array
StringSplit, CheckValsArray, CheckVals, |

xStep  = 150
xStart = 10
xVal  := xStart

yStep  = 27
yStart = 67
yVal  := yStart

Gui, +AlwaysOnTop,
Gui, Font, s13 Cwhite w40, Arial BOLD

Loop, %ItemArray0%
{
   Gui, Add, Checkbox, x%xVal% y%yVal% w150 h32 Checked vCheckbox%A_Index% gHandlerLabel, % ItemArray%A_Index%
   GuiControl,, % ItemArray%A_Index%, % CheckValsArray%A_Index%
   
   
   ; Start a new column after each 8 controls
   If (Mod(A_Index, 8) = 0)
   {
      xVal += xStep
      yVal := yStart
   }
   else
   {
      yVal += yStep
   }
}


Gui, Add, Button, x85 y300 w130 h30 gSelect, Selecteer Alles
Gui, Add, Button, x230 y300 w130 h30 gDeselect, Selecteer Niets
Gui, Add, Button, default x85 y10 w280 h50 gToevoegen, Toevoegen :-D ; Means: Add!!
Gui, Show, x0 y665 h330 w465 NoActivate, MS CRM Veld selectie
Gui, Color, 63769b
Return



Select: ; select all checkboxes

Loop 23

GuiControl, , CheckBox%A_Index%, 1

return

Deselect: ; deselect all checkboxes

Loop 23
GuiControl, , CheckBox%A_Index%, 0
 

return

HandlerLabel:
   GuiControlGet, CheckboxValue,, %A_GuiControl%
   ;Msgbox % (CheckboxValue = 1 ? "You checked " A_GuiControl : "You unchecked " . A_GuiControl)
Return

Toevoegen:
   Gui, Submit, Hide
   
   Labels = LabelOne|LabelTwo|LabelThree
   StringSplit, LabelArray, Labels, |
   
   Loop, %ItemArray0%
   {
      If (Checkbox%A_Index% = 1) and IsLabel(LabelArray%A_Index%)
         GoSub, % LabelArray%A_Index%
     
   }
Return

CheckBox12:
Gui, Submit, NoHide
 if Checkbox12
  GuiControl,,CheckBox13, 0
return

CheckBox13:
Gui, Submit, NoHide
 if Checkbox13
  GuiControl,,CheckBox12, 0
return

LabelOne:

#Persistent
ToolTip, you checked LastName
SetTimer, RemoveToolTip1, 1500
sleep, 1000
return

RemoveToolTip1:

SetTimer, RemoveToolTip1, Off
ToolTip
return

LabelTwo:
msgbox, gelukt
#Persistent
ToolTip, you checked FirstName
SetTimer, RemoveToolTip2, 1500
sleep, 1000
return

RemoveToolTip2:
SetTimer, RemoveToolTip2, Off
ToolTip
return

LabelThree:
msgbox, ItemArray%A_Index%
#Persistent
ToolTip, you checked MiddleName
SetTimer, RemoveToolTip3, 1500
sleep, 1000
return

RemoveToolTip3:
SetTimer, RemoveToolTip3, Off
ToolTip
return

Items = Lastname|First Name|MiddleName|Initials|E-mail Werk|Assistant|Assistant Mail|Manager|Partner Naam|Titel|Suffix|Man|Vrouw|Telefoon Werk|Fax Werk|Mobiel Werk|Assistant Phone|Manager Phone|Huisadres|Home Phone|Mobiel Prive|Fax Home|E-mail Prive
CheckVals = 1|1|1|1|1|1|1|1|1|1|1|1|0|1|1|1|1|1|0|1|1|1|1
StringSplit, ItemArray     , Items    , |   ; Split the items into an array
StringSplit, CheckValsArray, CheckVals, |

xStep  = 150
xStart = 10
xVal  := xStart

yStep  = 27
yStart = 67
yVal  := yStart

Gui, +AlwaysOnTop,
Gui, Font, s13 Cwhite w40, Arial BOLD

Loop, %ItemArray0%
{

  If (A_Index = 12 or A_Index = 13)
    Gui, Add, Radio   , x%xVal% y%yVal% w150 h32 Checked vCheckbox%A_Index% gHandlerLabel, % ItemArray%A_Index%
  else
    Gui, Add, Checkbox, x%xVal% y%yVal% w150 h32 Checked vCheckbox%A_Index% gHandlerLabel, % ItemArray%A_Index%
   
   GuiControl,, % ItemArray%A_Index%, % CheckValsArray%A_Index%
   
   
   ; Start a new column after each 8 controls
   If (Mod(A_Index, 8) = 0)
   {
      xVal += xStep
      yVal := yStart
   }
   else
   {
      yVal += yStep
   }
}


Gui, Add, Button, x85 y300 w130 h30 gSelect, Selecteer Alles
Gui, Add, Button, x230 y300 w130 h30 gDeselect, Selecteer Niets
Gui, Add, Button, default x85 y10 w280 h50 gToevoegen, Toevoegen :-D ; Means: Add!!
Gui, Show, x0 y665 h330 w465 NoActivate, MS CRM Veld selectie
Gui, Color, 63769b
Return



Select: ; select all checkboxes

Loop 23

GuiControl, , CheckBox%A_Index%, 1

return

Deselect: ; deselect all checkboxes

Loop 23
GuiControl, , CheckBox%A_Index%, 0
 

return

HandlerLabel:
   GuiControlGet, CheckboxValue,, %A_GuiControl%
   ;Msgbox % (CheckboxValue = 1 ? "You checked " A_GuiControl : "You unchecked " . A_GuiControl)
Return

Toevoegen:
   Gui, Submit, Hide
   
   Labels = LabelOne|LabelTwo|LabelThree
   StringSplit, LabelArray, Labels, |
   
   Loop, %ItemArray0%
   {
      If (Checkbox%A_Index% = 1) and IsLabel(LabelArray%A_Index%)
         GoSub, % LabelArray%A_Index%
     
   }
Return

CheckBox12:
Gui, Submit, NoHide
 if Checkbox12
  GuiControl,,CheckBox13, 0
return

CheckBox13:
Gui, Submit, NoHide
 if Checkbox13
  GuiControl,,CheckBox12, 0
return

LabelOne:

#Persistent
ToolTip, you checked LastName
SetTimer, RemoveToolTip1, 1500
sleep, 1000
return

RemoveToolTip1:

SetTimer, RemoveToolTip1, Off
ToolTip
return

LabelTwo:
msgbox, gelukt
#Persistent
ToolTip, you checked FirstName
SetTimer, RemoveToolTip2, 1500
sleep, 1000
return

RemoveToolTip2:
SetTimer, RemoveToolTip2, Off
ToolTip
return

LabelThree:
msgbox, ItemArray%A_Index%
#Persistent
ToolTip, you checked MiddleName
SetTimer, RemoveToolTip3, 1500
sleep, 1000
return

RemoveToolTip3:
SetTimer, RemoveToolTip3, Off
ToolTip
return

Items = Lastname|First Name|MiddleName|Initials|E-mail Werk|Assistant|Assistant Mail|Manager|Partner Naam|Titel|Suffix|Man|Vrouw|Telefoon Werk|Fax Werk|Mobiel Werk|Assistant Phone|Manager Phone|Huisadres|Home Phone|Mobiel Prive|Fax Home|E-mail Prive
CheckVals = 1|1|1|1|1|1|1|1|1|1|1|1|0|1|1|1|1|1|0|1|1|1|1

xStep  = 150
xStart = 10
xVal  := xStart

yStep  = 27
yStart = 67
yVal  := yStart

Loop, Parse, Items, |
{
  if !Mod(A_Index,8)
    xVal+=xStep, yVal:=yStart
  Gui, Add, Checkbox, x%xVal% y%yVal% w150 h32 vCheckbox%A_Index% gCheckbox%A_Index%, %A_LoopField%
  yVal += yStep
}
Loop, Parse, CheckVals, |
  GuiControl, , CheckBox%A_Index%, %A_LoopField%

Items = Lastname|First Name|MiddleName|Initials|E-mail Werk
       |Assistant|Assistant Mail|Manager|Partner Naam|Titel
       |Suffix|Man|Vrouw|Telefoon Werk|Fax Werk|Mobiel Werk
       |Assistant Phone|Manager Phone|Huisadres|Home Phone
       |Mobiel Prive|Fax Home|E-mail Prive

Gui, +AlwaysOnTop
Gui, Font, s13 Cwhite w40, Arial BOLD
Gui, Add, Button, Default xm+80 w280 gToevoegen, Toevoegen :-D

Loop, Parse, Items, |
{
 If A_Index in 13,19
  on = 0
 Else on = 1
 If A_Index in 12,13
  control = Radio
 Else control = CheckBox
 ; Start a new column after each 8 controls
 y := A_Index=1 ? "Section xm":Mod(A_Index-1, 8) ? "":"ys"
 Gui, Add, %control%, %y% Checked%on% vCheckBox%A_Index% gToolTip, %A_LoopField%
 count := A_Index ;Count the items
}
Gui, Add, Button, xm+80 gSelect,   Selecteer Alles
Gui, Add, Button, x+10  gDeselect, Selecteer Niets
Gui, Show, NoActivate, MS CRM Veld selectie
Gui, Color, 63769b
return
;___________________________________________________________
Select:
Deselect:                             
 Loop,%count%
  GuiControl,,CheckBox%A_Index%,% A_ThisLabel="Select" ? 1:0
return

Toevoegen:
 ToolTip
 Gui, Submit
return

ToolTip:
 Gui, Submit, NoHide
 If !%A_GuiControl%
  return
 GuiControlGet, txt,,%A_GuiControl%, Text
 ToolTip, You checked "%txt%"
 SetTimer, RemoveTip, -5000
return

RemoveTip:
 ToolTip
return

Man:
COM_init()
iweb_init()
WinWait, Invoeren persoon,
IfWinNotActive, Invoeren persoon, , WinActivate, Invoeren persoon ,
WinWaitActive, Invoeren persoon,
sleep 50
pwb:=iWeb_getwin("Invoeren persoon")
COM_Invoke(pwb, "document.all.item[ctl00xKxHxMAxFAxIAxgeslachtEdit_input].focus")
sleep, 100
Send, Man
sleep, 100
COM_Release(pwb)
iWeb_Term()
COM_Term()
return

Vrouw:
COM_init()
iweb_init()
WinWait, Invoeren persoon,
IfWinNotActive, Invoeren persoon, , WinActivate, Invoeren persoon ,
WinWaitActive, Invoeren persoon,
sleep 50
pwb:=iWeb_getwin("Invoeren persoon")
COM_Invoke(pwb, "document.all.item[ctl00xKxHxMAxFAxIAxgeslachtEdit_input].focus")
sleep, 100
Send, Vrouw
sleep, 100
COM_Release(pwb)
iWeb_Term()
COM_Term()
return

Msgbox, LastName action is performed
Msgbox, FirstName action is performed

Items = Lastname|First Name|MiddleName|Initials|E-mail Werk
       |Assistant|Assistant Mail|Manager|Partner Naam|Titel
       |Suffix|Man|Vrouw|Telefoon Werk|Fax Werk|Mobiel Werk
       |Assistant Phone|Manager Phone|Huisadres|Home Phone
       |Mobiel Prive|Fax Home|E-mail Prive

Gui, +AlwaysOnTop
Gui, Font, s13 Cwhite w40, Arial BOLD
Gui, Add, Button, Default xm+80 w280 gToevoegen, Toevoegen :-D ; means add!!

Loop, Parse, Items, |
{
 If A_Index in 13,19
  on = 0
 Else on = 1
 If A_Index in 12,13
  control = Radio
 Else control = CheckBox
 ; Start a new column after each 8 controls
 y := A_Index=1 ? "Section xm":Mod(A_Index-1, 8) ? "":"ys"
 Gui, Add, %control%, %y% Checked%on% vCheckBox%A_Index% gToolTip, %A_LoopField%
 count := A_Index ;Count the items
}
Gui, Add, Button, xm+80 gSelect,   Selecteer Alles
Gui, Add, Button, x+10  gDeselect, Selecteer Niets
Gui, Show, x0 y665 NoActivate, MS CRM Veld selectie
Gui, Color, 63769b
return
;___________________________________________________________
Select:
Deselect:                             
 Loop,%count%
  GuiControl,,CheckBox%A_Index%,% A_ThisLabel="Select" ? 1:0
return

Toevoegen:
 Gui, Submit, nohide
 Loop {
    If(CheckBox%A_Index% and IsLabel(CheckBox%A_Index%))
       Gosub, CheckBox%A_Index%
    Else if CheckBox%A_Index% =
       Break
 }
return

ToolTip:
 Gui, Submit, NoHide
 If !%A_GuiControl%
  return
 GuiControlGet, txt,,%A_GuiControl%, Text
 ToolTip, You checked "%txt%"
 SetTimer, RemoveTip, -5000
return

RemoveTip:
 ToolTip
return

Checkbox1:
Gui, Submit, NoHide

Msgbox, Lastname is performed ;just for testing
return

CheckBox2:
Gui, Submit, NoHide

Msgbox, First name action is performed ;just for testing
return

Loop, Parse, Items, |
{
   y:=A_Index=1 ? "Section xm":Mod(A_Index-1, 8) ? "":"ys"
   ctrl:=A_Index=12 || A_Index=13 ? "Radio" : "CheckBox"
   chckd:=A_Index=13 || A_Index=19 ? "" : "Checked"
   Gui, Add, %ctrl%, %y% %chckd% vCheckBox%A_Index% gToolTip, %A_LoopField%
   count := A_Index ;Count the items
}