Post by garry » 11 Jun 2020, 04:59
@Gio , obrigado > F7 button
@Lazyyy boa tarde ,exemplo fácil : Checkbox / IniRead
Code: Select all
;- Checkbox and Iniread example ---------------------
;Modified = 20200611
;Created = 20200611
#Warn
#NoEnv
#SingleInstance force
filename1=Checkbox_IniReadWrite
SetWorkingDir, %A_ScriptDir%
Gui,2: Color, Gray,Black
Gui,2: Font,s12 cYellow ,Lucida Console ;- font , font-size and color
;----------- ini-file create once and read ------------------------
RSSINI=%A_scriptdir%\%filename1%_config.ini
ifnotexist,%rssini%
{
IniWrite,notepad, %rssini% , Program-1 ,EXE
IniWrite,calc , %rssini% , Program-2 ,EXE
}
IniRead, var1, %rssini%, Program-1, EXE
IniRead, var2, %rssini%, Program-2, EXE
;---------- check ini file -----------------------------------------
if (var1=1)
cb1a=checked
else
cb1a=
;------------
if (var2=1)
cb2a=checked
else
cb2a=
;--------------------------------------------------------------------
Gui,2:Add, checkbox, x10 y10 vcb1 %cb1a%, NotePad
Gui,2:Add, Checkbox, x10 y40 vcb2 %cb2a%, Calc
Gui,2: Add, Button, x10 y80 w160 h27 gRunSelected ,Run_Selected
Gui,2: Add, Button, x180 y80 w170 h27 gClearCheckBox,Clear_Checkbox
Gui,2: Show,x100 y10 w370 h120,%filename1%
return
;======================== END GUI =============================================
;- close script and save checkbox settings ----------------------------
2Guiclose:
Gui,2:submit,nohide
IniWrite, %Cb1% , %rssini% ,Program-1 , EXE
IniWrite, %Cb2% , %rssini% ,Program-2 , EXE
exitapp
;--------- Run Selected ---------------------
RunSelected:
Gui,2: submit, nohide
If (cb1 = 1)
run,Notepad
If (cb2 = 1)
run,calc
return
;---------- clearcheckbox --------------------
clearcheckbox:
Loop,2
GuiControl,2:, cb%A_Index%, 0
return
;============== END SCRIPT =============================================
[mention]Gio[/mention] , obrigado > F7 button
[mention]Lazyyy[/mention] boa tarde ,exemplo fácil : Checkbox / IniRead
[code];- Checkbox and Iniread example ---------------------
;Modified = 20200611
;Created = 20200611
#Warn
#NoEnv
#SingleInstance force
filename1=Checkbox_IniReadWrite
SetWorkingDir, %A_ScriptDir%
Gui,2: Color, Gray,Black
Gui,2: Font,s12 cYellow ,Lucida Console ;- font , font-size and color
;----------- ini-file create once and read ------------------------
RSSINI=%A_scriptdir%\%filename1%_config.ini
ifnotexist,%rssini%
{
IniWrite,notepad, %rssini% , Program-1 ,EXE
IniWrite,calc , %rssini% , Program-2 ,EXE
}
IniRead, var1, %rssini%, Program-1, EXE
IniRead, var2, %rssini%, Program-2, EXE
;---------- check ini file -----------------------------------------
if (var1=1)
cb1a=checked
else
cb1a=
;------------
if (var2=1)
cb2a=checked
else
cb2a=
;--------------------------------------------------------------------
Gui,2:Add, checkbox, x10 y10 vcb1 %cb1a%, NotePad
Gui,2:Add, Checkbox, x10 y40 vcb2 %cb2a%, Calc
Gui,2: Add, Button, x10 y80 w160 h27 gRunSelected ,Run_Selected
Gui,2: Add, Button, x180 y80 w170 h27 gClearCheckBox,Clear_Checkbox
Gui,2: Show,x100 y10 w370 h120,%filename1%
return
;======================== END GUI =============================================
;- close script and save checkbox settings ----------------------------
2Guiclose:
Gui,2:submit,nohide
IniWrite, %Cb1% , %rssini% ,Program-1 , EXE
IniWrite, %Cb2% , %rssini% ,Program-2 , EXE
exitapp
;--------- Run Selected ---------------------
RunSelected:
Gui,2: submit, nohide
If (cb1 = 1)
run,Notepad
If (cb2 = 1)
run,calc
return
;---------- clearcheckbox --------------------
clearcheckbox:
Loop,2
GuiControl,2:, cb%A_Index%, 0
return
;============== END SCRIPT =============================================
[/code]