[R] Petite question

Aide sur les Interfaces Graphique Utilisateurs (GUI).
Règles du forum
.
Répondre
Avatar du membre
eln
Niveau 6
Niveau 6
Messages : 202
Enregistré le : sam. 28 juil. 2007 12:54
Status : Hors ligne

[R] Petite question

#1

Message par eln »

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 :

Image

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")
Merci
Modifié en dernier par eln le jeu. 06 sept. 2007 06:44, modifié 1 fois.
Avatar du membre
Vins83
Membre émérite
Membre émérite
Messages : 220
Enregistré le : mer. 25 juil. 2007 17:43
Status : Hors ligne

#2

Message par Vins83 »

essai ça:

Code : Tout sélectionner

GUICtrlSetState ( $Install_Applis , $GUI_CHECKED )


@+ Vins
Avatar du membre
eln
Niveau 6
Niveau 6
Messages : 202
Enregistré le : sam. 28 juil. 2007 12:54
Status : Hors ligne

#3

Message par eln »

Vins83 a écrit :essai ça:

Code : Tout sélectionner

GUICtrlSetState ( $Install_Applis , $GUI_CHECKED )
@+ Vins
Simple, clair et précis.

Merci
ani
Niveau 11
Niveau 11
Messages : 1826
Enregistré le : lun. 23 juil. 2007 12:31
Localisation : Bureau
Status : Hors ligne

#4

Message par ani »

ou bien tu peux indiquer ceux-ci juste en dessous du contrôle checkbox que tu désire cocher GUICtrlSetState (-1,1)
Avatar du membre
eln
Niveau 6
Niveau 6
Messages : 202
Enregistré le : sam. 28 juil. 2007 12:54
Status : Hors ligne

#5

Message par eln »

ani a écrit :ou bien tu peux indiquer ceux-ci juste en dessous du contrôle checkbox que tu désire cocher GUICtrlSetState (-1,1)
Merci, c'est noté.
Répondre