[R] Petite question
Posté : mer. 05 sept. 2007 22:03
Bonjour
J'avance petit à petit dans mon projet. Je souhaiterai cocher par défaut la case "Installation Applications" (Si c'est possible).
J'ai honteusement pompé sur l'ancien forum pour arriver à cela :
Et le code :
Merci
J'avance petit à petit dans mon projet. Je souhaiterai cocher par défaut la case "Installation Applications" (Si c'est possible).
J'ai honteusement pompé sur l'ancien forum pour arriver à cela :
Et le code :
Code : Tout sélectionner
#include <guiconstants.au3>
$Fenetreprincipale = GUICreate("Sélectionneur d'installation",500,500)
$Install_Applis = GUICtrlCreateCheckbox("Installation Applications :",100,100)
$WinDVD = GUICtrlCreateCheckbox("WinDVD",100,150)
$Logiciel_Gravure = GUICtrlCreateCheckbox("Logiciel de Gravure :",100,200)
$Tout_cocher = GUICtrlCreateCheckbox("Tout cocher",300,200)
$Button_1 = GUICtrlCreateButton ("Install", 200, 420, 100)
Dim $Chekboxcheck = $Install_Applis & '|' & $WinDVD & '|' & $Logiciel_Gravure
$Element = stringsplit ( $Chekboxcheck , "|" )
GUISetState (@SW_SHOW)
While 1
$Msg = GUIGetMsg ()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Tout_cocher
If BitAnd(GuiCtrlRead($Tout_cocher),$gui_checked) Then checkall()
If BitAnd(GuiCtrlRead($Tout_cocher),$gui_unchecked) Then uncheckall()
Case $msg = $Button_1
ExitLoop
EndSelect
WEnd
Func checkall ( )
For $i = 1 to $Element[0]
GUICtrlSetState ($Element[$i] , $gui_checked )
next
EndFunc
Func uncheckall()
For $i = 0 to $Element[1]
GUICtrlSetState ($Element[$i] , $gui_unchecked )
Next
EndFunc
GUISetState (@SW_HIDE)
; Install_Applis
If BitAnd(GuiCtrlRead($Install_Applis),$gui_checked) Then RunWait ("cmd")
If BitAnd(GuiCtrlRead($WinDVD),$gui_checked) Then RunWait ("cmd")
If BitAnd(GuiCtrlRead($Logiciel_Gravure),$gui_checked) Then RunWait ("cmd")