[R] Ajout d'un logiciel dans l'interface graphique

[razorbok]

Salut à tous,
Voila j'ai une interface graphique avec des checkbox et j'utilise FileOpenDialog pour chercher les exécutable mais après je suis bloqué, je voudrais que l'exécutable se mette dans l'interface en checkbox aussi.. Mais je sais pas comment faire voici mon code :

► Afficher le texte

#include <GUIConstantsEx.au3>

$idControlID = GUICtrlCreateButton("OK", 200, 270, 75, 25)

GUISetState(@SW_SHOW)

Interface()


Func Interface()
MsgBox(1,"Logiciel d'installation de logiciel", "Avant de commencer, merci de mapper le refimage en Z ")
Local $hGUI = GUICreate("Projet", 420, 500,500,200) ;creer la fenetre
Local $idCheckbox1 = GUICtrlCreateCheckbox("Microsoft Visio",10,30,300,25)
Local $idCheckbox2 = GUICtrlCreateCheckbox("Microsoft Office Standard",10,60,300,25)
Local $idCheckbox3 = GUICtrlCreateCheckbox("Optima",10,90,75,25)
Local $idCheckbox4 = GUICtrlCreateCheckbox("Autodesk",10,120,75,25)
Local $idCheckbox5 = GUICtrlCreateCheckbox("Pdf-Xchange",10,150,100,25)
Local $idCheckbox6 = GUICtrlCreateCheckbox("Microsoft Project",10,180,200,25)
Local $idCheckbox7 = GUICtrlCreateCheckbox("Firefox",10,210,75,25)
Local $idCheckbox8 = GUICtrlCreateCheckbox("Microsoft Office Pro",10,240,200,25)
Local $idClose = GUICtrlCreateButton("Fermer", 280, 200, 75, 25)
Local $idControlID = GUICtrlCreateButton("OK", 280, 170, 75, 25)
Local $idajoutprog = GUICtrlCreateButton("Ajouter programme", 220, 230, 200, 25)

GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $idClose ;quand j'appuie sur le bouton fermé la fenetre se ferme
ExitLoop
Case $idajoutprog
FileOpenDialog("Fichier à ajouter","****","Tous (*.*)",4)
if @error Then
MsgBox(1, "", "No File(s) chosen")
Else
$hGUI = StringReplace($hGUI, "|", @SW_SHOW)
MsgBox(1, "", "You chose " & $hGUI)
Local $idCheckbox = GUICtrlCreateCheckbox("Microsoft Visio",10,30,300,25)
EndIf


Case $idControlID ; quand je clique sur ok
if IsChecked($idCheckbox1) Then
RunWait("D:\Utilisateurs\cstf\Desktop\Projet\Logiciel\Visio\Visio.exe")
EndIf
If IsChecked($idCheckbox3) Then
RunWait("D:\Utilisateurs\cstf\Desktop\Projet\Logiciel\Optima\Optima.exe")
EndIf
EndSwitch
WEnd


GUIDelete($hGUI)
EndFunc


Func IsChecked($idControlID)
Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc

[GhostLine]

En fait, tu voudrais qu'une nouvelle checkbox apparaisse lorsque tu valide la sélection d'un nouveau programme, c'est ça ?

Si tel est le cas, voici la manière dont je procède (déjà fait) :
1- tu ajoute des checksbox dans ton interface, que tu masques
2- à validation de sélection, tu changes le texte de ta checkbox, puis tu l'affiche (guictrlsetdata et guictrlsetstate)

Je suis désolé de ne pas avoir le temps de te faire ton script, mais je pense que cela pourrait te donner une solution (parmi tant d'autres) pour arriver à ton but.

[razorbok]

Oui c'est ça

[razorbok]

désolé mais je comprend pas trop :$

[GhostLine]

Je te fais le script, tu vas comprendre l'idée

[razorbok]

ok merci

[GhostLine]

Voilà comment je ferais :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $ini = @ScriptDir & "\liste.ini"

#Region ### START Koda GUI section ### Form=
$hGUI = GUICreate("Projet", 375, 307, 522, 284)
$Checkbox1 = GUICtrlCreateCheckbox("", 4, 4, 160, 17)
$Checkbox2 = GUICtrlCreateCheckbox("", 4, 24, 160, 17)
$Checkbox3 = GUICtrlCreateCheckbox("", 4, 44, 160, 17)
$Checkbox4 = GUICtrlCreateCheckbox("", 4, 64, 160, 17)
$Checkbox5 = GUICtrlCreateCheckbox("", 4, 84, 160, 17)
$Checkbox6 = GUICtrlCreateCheckbox("", 4, 104, 160, 17)
$Checkbox7 = GUICtrlCreateCheckbox("", 4, 124, 160, 17)
$Checkbox8 = GUICtrlCreateCheckbox("", 4, 144, 160, 17)
$Checkbox9 = GUICtrlCreateCheckbox("", 4, 164, 160, 17)
$Checkbox10 = GUICtrlCreateCheckbox("", 4, 184, 160, 17)
$Checkbox11 = GUICtrlCreateCheckbox("", 4, 204, 160, 17)
$Checkbox12 = GUICtrlCreateCheckbox("", 4, 224, 160, 17)
$Checkbox13 = GUICtrlCreateCheckbox("", 4, 244, 160, 17)
$Checkbox14 = GUICtrlCreateCheckbox("", 4, 264, 160, 17)
$Checkbox15 = GUICtrlCreateCheckbox("", 4, 284, 160, 17)
$idajoutprog = GUICtrlCreateButton("Ajouter un programme à l'interface", 188, 4, 183, 49)
$idControlID = GUICtrlCreateButton("Lancer l'installation des programmes sélectionnés", 188, 148, 183, 49)
$Button3 = GUICtrlCreateButton("Supprimer les programmes selectionnés de l'interface", 188, 56, 183, 49)
$Button4 = GUICtrlCreateButton("Reconnecter le disque réseau Z:", 188, 276, 183, 25)
_rafraichissement()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop

        Case $idajoutprog
            $choixfichier = FileOpenDialog("Fichier à ajouter", "****", "Tous (*.*)", 4)
            If @error Then
                MsgBox(1, "", "No File(s) chosen")
            Else                                                    ;~ Si un fichier a effectivement été choisi ...
                For $i = 1 To 15                                    ;~ ... on part à la recherche du premier emplacement vide dans le fichier INI
                    If IniRead($ini, "LISTE", $i, "") = "" Then     ;~ (chaque emplacement correspond à une checkbox)
                        IniWrite($ini, "LISTE", $i, $choixfichier)  ;~ ... et on écrit le chemin d'accès complet selectionné dans le fichier.
                        ExitLoop (1)
                    EndIf
                Next
            EndIf
            _rafraichissement()

        Case $idControlID
;~          on lance les programmes cochés les uns après les autres
            

    EndSwitch
WEnd

Func _rafraichissement()
    _peuplement($Checkbox1,1)
    _peuplement($Checkbox2,2)
    _peuplement($Checkbox3,3)
    _peuplement($Checkbox4,4)
    _peuplement($Checkbox5,5)
    _peuplement($Checkbox6,6)
    _peuplement($Checkbox7,7)
    _peuplement($Checkbox8,8)
    _peuplement($Checkbox9,9)
    _peuplement($Checkbox10,10)
    _peuplement($Checkbox11,11)
    _peuplement($Checkbox12,12)
    _peuplement($Checkbox13,13)
    _peuplement($Checkbox14,14)
    _peuplement($Checkbox15,15)
EndFunc   ;==>_rafraichissement

Func _peuplement($checkbox,$clef)
    If IniRead($ini, "LISTE", $clef, "") <> "" Then                                         ;~ Si la clef dans le fichier INI correspondant à la checkbox n'est pas vide  ...
        $liste = StringSplit(IniRead($ini, "LISTE", $clef, ""), "\")                        ;~ ... on récupère la valeur dans le fichier INI, on la découpe dans un tableau avec "\" comme délimiteur ...
        $temp = $liste[UBound($liste) - 1]                                                  ;~ ... on récupère le dernier morceau, le nom du fichier (avec son extension) ...
        GUICtrlSetData($checkbox, StringLeft($temp, StringLen($temp) - 4))                  ;~ ... et on affiche comme texte de la checkbox le nom du fichier sans son extension (et le point qui va avec).
        GUICtrlSetState($checkbox, 16)                                                      ;~ ... on affiche la checkbox ...
    Else
        GUICtrlSetState($checkbox, 32)                                                      ;~ ... sinon on la masque.
    EndIf
EndFunc   ;==>_peuplement

[razorbok]

Je te remercie ça fonctionne mais j'ai juste du mal à comprendre la fonction :Func _peuplement

[GhostLine]

C'est très simple.

_peuplement se lance avec deux arguments : le nom de la checkbox, et le nom de la clef dans le fichier INI.

(petite note comme ça : pourquoi un fichier INI ? Parce qu'il n'y a pas nécessiter d'ouvrir ou de fermer le fichier : il s'ouvre, se ferme et s'enregistre tout seul)

Premier cas : la clef dans le fichier INI correspondant à la checkbox est vide : cela signifie qu'aucun fichier n'a été renseigné pour cette checkbox, donc on cache la "case à cocher".
Second cas : La clef dans le fichier INI correspondant à la checkbox n'est pas vide : un fichier a été renseigné pour cette checkbox. On découpe le chemin d'accès à l'aide de la fonction StringSplit afin de récupérer la dernière partie du chemin (nom_du_fichier.exe). Ensuite, à l'aide de StringLeft, on "supprime" les 4 derniers caractères (ce qui nous donne nom_du_fichier). Puis on assigne à la checkbox le résultat.

(pour être exact, on ne supprime pas les 4 derniers caractères, mais on conserve tous les caractères, moins les 4 derniers).


Note qui n'a rien à voir : je sens que je vais me faire lyncher par les "vieux" parce que je n'utilise pas les arrays

[razorbok]

D'accord je comprend un peu mieux ^^ faut juste que je le renomme en un autre nom que "peuplement" et je suis entrain de chercher maintenant comment il faut faire pour supprimé une checkbox avec le push bouton en cochant la checkbox qu'on veut supprimé. ^^

[mikell]

Note qui n'a rien à voir : je sens que je vais me faire lyncher par les "vieux" parce que je n'utilise pas les arrays

Si tu dis ça, c'est que tu sais que c'est un cas typique d'utilisation d'array
Et essaie d'éviter les 'magic numbers' : il vaut mieux utiliser $GUI_SHOW et $GUI_HIDE que 16 et 32

[GhostLine]

Salut mikell

Je sais que c'est un cas typique, mais j'ai du mal à m'y faire, voilà tout Je me suis déjà fait "allumer" sur ce point dans mes précédents scripts :p

[jchd]

Perseverare diabolicum.

[GhostLine]

De manière un peu plus constructive : Razorbok, tu peux procéder de la même manière que pour le "peuplement" (en faisant une fonction de "balayage") pour vérifier si une case est cochée ou pas.

Cela dit, je ne doute pas que quelqu'un (... ) va poster un script plus "propre" que le mien

[GhostLine]

Heuuu, du coup, tu dois pouvoir passer ton topic en [R], vu que ta demande ("Ajout d'un logiciel dans l'interface graphique") a été renseignée