AutoIt Français

Bonjour.

J'ai un petit souci de barre de progression.
J'ai déjà lu et relu les multiples sujets, lié à ce sujet.

Mais je suis bloqué, et je n'ai pas trouvé ce que je souhaiterai faire.

Une barre de progression indépendante (une autre GUI), je sais le faire.

Comme ceci :

► Afficher le textecode n°1

Code : Tout sélectionner

#include <_FileListToArrayNT.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $recherche1GUI = GUICreate("Recherche 1", 620, 120, @DesktopWidth / 2 - 275, 10, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS), $WS_EX_ACCEPTFILES)
GUICtrlCreateLabel("Elément(s) Recherché(s)", 20, 30, 140, 20)
GUICtrlSetFont(-1, 9, 400, 0, "comic sans ms")
$iSearch = GUICtrlCreateInput("", 170, 30, 150, 20)
GUICtrlCreateLabel("si vide : Recherche tout fichier", 170, 50, 150, 20)
GUICtrlSetFont(-1, 8, 400, 0, "comic sans ms")

GUICtrlCreateLabel("Dans le dossier suivant", 20, 70, 140, 20)
GUICtrlSetFont(-1, 9, 400, 0, "comic sans ms")
$iDir = GUICtrlCreateInput("", 170, 70, 430, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlCreateLabel("Glissez/déposez le dossier", 170, 90, 360, 20)
GUICtrlSetFont(-1, 8, 400, 0, "comic sans ms")

$btSearch = GUICtrlCreateButton("Rechercher", 340, 25, 120, 30)
$btNewSearch = GUICtrlCreateButton("Nouvelle Recherche", 480, 25, 120, 30)
$btExit = GUICtrlCreateButton("Quitter", 559, 104, 60, 15)
GUICtrlSetFont(-1, 6, 400, 0)


GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btExit
            Exit



        Case $btSearch
            If GUICtrlRead($iDir) = "" Then
                MsgBox(0, "Attention", "Il est impératif d'indiquer un dossier." & @CRLF & @CRLF & "Sans ce dossier, la recherche ne peut pas débuter, puisque vous n'indiquez pas où débuter la recherche." & @CRLF & @CRLF & "N'oubliez pas que vous pouvez glisser/déposer le dossier, cela vous évitera ces inconvénients." & @CRLF & @CRLF & "Appuyez sur OK pour continuer.")
            Else
                _Search("start")
            EndIf

        Case $btNewSearch
            _Search("new")


    EndSwitch
WEnd

Func _Search($choice)
    If $choice = "start" Then
        $Rapport = @DesktopDir & "\Rapport_Recherche.txt"
        $ReportFile = FileOpen($Rapport, 2)
        FileWriteLine($ReportFile, "==========================")
        FileWriteLine($ReportFile, " ~ Rapport de Recherche ~ ")
        FileWriteLine($ReportFile, "==========================")
        FileWriteLine($ReportFile, "Vous recherchez : " & GUICtrlRead($iSearch))
        FileWriteLine($ReportFile, "Dans le dossier : " & GUICtrlRead($iDir) & @CRLF & @CRLF & @CRLF)

        $BarreProgression = GUICreate("", 620, 35, @DesktopWidth / 2 - 275, 170, $WS_POPUPWINDOW + $WS_CLIPSIBLINGS)
        $Progress = GUICtrlCreateProgress(10, 10, 600, 15, $PBS_MARQUEE)
        GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
        GUISetState(@SW_SHOW)

        $ar_Array = _FileListToArrayNT(GUICtrlRead($iDir), "*" & GUICtrlRead($iSearch) & "*", 1, 2, True)

        $Result = UBound($ar_Array) - 1
        For $i = 1 To $Result
            If Not @error Then
                FileWriteLine($ReportFile, $ar_Array[$i])
            EndIf
        Next
        FileClose($ReportFile)
        GUIDelete($BarreProgression)
        ShellExecute($Rapport)

    ElseIf $choice = "new" Then
        GUICtrlSetData($iSearch, "")
        GUICtrlSetData($iDir, "")

        If FileExists(@DesktopDir & "\Rapport_Recherche.txt") Then
            If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
            $iMsgBoxAnswer = MsgBox(52, "Rapport déjà existant !", "Il existe déjà un rapport de recherche." & @CRLF & "Le fait de recherche une nouvelle recherche le supprimera." & @CRLF & @CRLF & "Souhaitez-vous le renommer afin qu'il ne soit pas supprimé ?")
            Select
                Case $iMsgBoxAnswer = 6 ;Yes
                    $OtherFileName = InputBox("Modification du nom du fichier", "Indiquez le nouveau nom que portera ce fichier, sans oublier l'extension ''txt''." & @CRLF & "Example : autre nom.txt")
                    FileMove(@DesktopDir & "\Rapport_Recherche.txt", @DesktopDir & "\" & $OtherFileName & ".txt")
            EndSelect
        EndIf
    EndIf
EndFunc   ;==>_Search

J'utilise ceci :

Code : Tout sélectionner

$BarreProgression = GUICreate("", 620, 35, @DesktopWidth / 2 - 275, 170, $WS_POPUPWINDOW + $WS_CLIPSIBLINGS)
        $Progress = GUICtrlCreateProgress(10, 10, 600, 15, $PBS_MARQUEE)
        GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
        GUISetState(@SW_SHOW)

        $ar_Array = _FileListToArrayNT(GUICtrlRead($iDir), "*" & GUICtrlRead($iSearch) & "*", 1, 2, True)

        $Result = UBound($ar_Array) - 1
        For $i = 1 To $Result
            If Not @error Then
                FileWriteLine($ReportFile, $ar_Array[$i])
            EndIf
        Next
        FileClose($ReportFile)
        GUIDelete($BarreProgression)

Je me suis dis qu'au lieu d'ouvrir dans une autre interface, pourquoi ne pas la mettre dans l'interface principale.

J'ai donc ensuite créé ce script :

► Afficher le textecode n°2

Code : Tout sélectionner

#include <_FileListToArrayNT.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $recherche2GUI = GUICreate("Recherche 2", 620, 150, @DesktopWidth / 2 - 275, 10, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS), $WS_EX_ACCEPTFILES)
GUICtrlCreateLabel("Elément(s) Recherché(s)", 20, 30, 140, 20)
GUICtrlSetFont(-1, 9, 400, 0, "comic sans ms")
$iSearch = GUICtrlCreateInput("", 170, 30, 150, 20)
GUICtrlCreateLabel("si vide : Recherche tout fichier", 170, 50, 150, 20)
GUICtrlSetFont(-1, 8, 400, 0, "comic sans ms")

GUICtrlCreateLabel("Dans le dossier suivant", 20, 70, 140, 20)
GUICtrlSetFont(-1, 9, 400, 0, "comic sans ms")
$iDir = GUICtrlCreateInput("", 170, 70, 430, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlCreateLabel("Glissez/déposez le dossier", 170, 90, 360, 20)
GUICtrlSetFont(-1, 8, 400, 0, "comic sans ms")

$btSearch = GUICtrlCreateButton("Rechercher", 340, 25, 120, 30)
$btNewSearch = GUICtrlCreateButton("Nouvelle Recherche", 480, 25, 120, 30)
$btExit = GUICtrlCreateButton("Quitter", 559, 1, 60, 15)
GUICtrlSetFont(-1, 6, 400, 0)

$Progress = GUICtrlCreateProgress(10, 125, 600, 15, $PBS_MARQUEE)

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btExit
            Exit

        Case $btSearch
            If GUICtrlRead($iDir) = "" Then
                MsgBox(0, "Attention", "Il est impératif d'indiquer un dossier." & @CRLF & @CRLF & "Sans ce dossier, la recherche ne peut pas débuter, puisque vous n'indiquez pas où débuter la recherche." & @CRLF & @CRLF & "N'oubliez pas que vous pouvez glisser/déposer le dossier, cela vous évitera ces inconvénients." & @CRLF & @CRLF & "Appuyez sur OK pour continuer.")
            Else
                _Search("start")
            EndIf

        Case $btNewSearch
            _Search("new")


    EndSwitch
WEnd

Func _Search($choice)
    If $choice = "start" Then
        $Rapport = @DesktopDir & "\Rapport_Recherche.txt"
        $ReportFile = FileOpen($Rapport, 2)
        FileWriteLine($ReportFile, "==========================")
        FileWriteLine($ReportFile, " ~ Rapport de Recherche ~ ")
        FileWriteLine($ReportFile, "==========================")
        FileWriteLine($ReportFile, "Vous recherchez : " & GUICtrlRead($iSearch))
        FileWriteLine($ReportFile, "Dans le dossier : " & GUICtrlRead($iDir) & @CRLF & @CRLF & @CRLF)

        $msgProgress = GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar


        $ar_Array = _FileListToArrayNT(GUICtrlRead($iDir), "*" & GUICtrlRead($iSearch) & "*", 1, 2, True)

        $Result = UBound($ar_Array) - 1
        For $i = 1 To $Result
            If Not @error Then
                FileWriteLine($ReportFile, $ar_Array[$i])
            EndIf
        Next
        FileClose($ReportFile)
        GUICtrlSetState($msgProgress, @SW_HIDE) ;;; Comment arrêter le défilement de la barre de progression ? Là, cela ne fonctionne pas.
        ShellExecute($Rapport)

    ElseIf $choice = "new" Then
        GUICtrlSetData($iSearch, "")
        GUICtrlSetData($iDir, "")

        If FileExists(@DesktopDir & "\Rapport_Recherche.txt") Then
            If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
            $iMsgBoxAnswer = MsgBox(52, "Rapport déjà existant !", "Il existe déjà un rapport de recherche." & @CRLF & "Le fait de recherche une nouvelle recherche le supprimera." & @CRLF & @CRLF & "Souhaitez-vous le renommer afin qu'il ne soit pas supprimé ?")
            Select
                Case $iMsgBoxAnswer = 6 ;Yes
                    $OtherFileName = InputBox("Modification du nom du fichier", "Indiquez le nouveau nom que portera ce fichier, sans oublier l'extension ''txt''." & @CRLF & "Example : autre nom.txt")
                    FileMove(@DesktopDir & "\Rapport_Recherche.txt", @DesktopDir & "\" & $OtherFileName & ".txt")
            EndSelect
        EndIf
    EndIf
EndFunc   ;==>_Search

Et j'utilise ceci :

Code : Tout sélectionner

$Progress = GUICtrlCreateProgress(10, 125, 600, 15, $PBS_MARQUEE)

GUISetState(@SW_SHOW)

Et

Code : Tout sélectionner

        $msgProgress = GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar


        $ar_Array = _FileListToArrayNT7(GUICtrlRead($iDir), "*" & GUICtrlRead($iSearch) & "*", 1, 2, True)

        $Result = UBound($ar_Array) - 1
        For $i = 1 To $Result
            If Not @error Then
                FileWriteLine($ReportFile, $ar_Array[$i])
            EndIf
        Next
        FileClose($ReportFile)
        GUICtrlSetState($msgProgress, @SW_HIDE) ;;; Comment arrêter le défilement de la barre de progression ? Là, cela ne fonctionne pas.

Donc, je me suis posé cette question :
Est-ce possible, cette façon de faire une barre de progression, comme je viens de le faire ?

Car si je ne peux pas arrêter le défilement, c'est bête

Juste que, dans le code n°1, si je veux quitter le script, je ne peux pas.
Mais dans le code n°2, je peux.

Pouvez-vous m'éclairer ?
Merci à tous.

Je n'ai pas pu tester ton script car tu utilises une biblio que je n'ai pas, si tu veux juste arrêter la barre de progression dans le code n°2 tu peux utiliser ceci:

Code : Tout sélectionner

GuiCtrlSetData($Progress,0)

Pour mettre la barre à 0%

T'as mis:

Code : Tout sélectionner

GUICtrlSetState($msgProgress, @SW_HIDE)

Ce qui pour moi est faux car tu essayes de cacher une variable qui représente l'envoie d'un message, et non pas la barre elle même.

La barre c'est $Progress et non $msgProgress

Coucou

parazitenew a écrit :Je n'ai pas pu tester ton script car tu utilises une biblio que je n'ai pas, si tu veux juste arrêter la barre de progression dans le code n°2 tu peux utiliser ceci:
Code : Tout sélectionner
GuiCtrlSetData($Progress,0)
Pour mettre la barre à 0%

Merci bien, je vais tester

parazitenew a écrit :T'as mis:
Code : Tout sélectionner
GUICtrlSetState($msgProgress, @SW_HIDE)
Ce qui pour moi est faux car tu essayes de cacher une variable qui représente l'envoie d'un message, et non pas la barre elle même.

La barre c'est $Progress et non $msgProgress

Maintenant, je comprends que mon "GuiCtrlSetData" ne fonctionnait pas, si je me trompe de "contrôle"

J'ai tout testé... avec le mauvais contrôle

En tout cas, merci de ta réponse.
Je reviens répondre dès que possible.

++

Re

Ton GuiCtrlSetData($Progress,0) n'a pas fonctionné...

Voici ce que tu m'as dis :

Code : Tout sélectionner
GUICtrlSetState($msgProgress, @SW_HIDE)
Ce qui pour moi est faux car tu essayes de cacher une variable qui représente l'envoie d'un message

Et cela m'a fait TILT

Au lieu d'effacer l'intérieur de la barre, autant la supprimer.

Du coup :
j'insère la barre quand j'appuie sur la bouton pour rechercher ce que j'ai indiqué : j'ai donc déplacé dans la fonction cette ligne :

Code : Tout sélectionner

$Progress = GUICtrlCreateProgress(10, 125, 600, 15, $PBS_MARQUEE)

A la fin de la recherche (à la fin donc de la boucle For ... next), je met GuiCtrlDelete($Progress)

Et cela fonctionne !

Voilà, tu m'as donné une sacrée piste

Merci.

Voici le code fonctionnel :

► Afficher le textecode fonctionnel

Code : Tout sélectionner

#include <_FileListToArrayNT7.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $Progress
Global $recherche2GUI = GUICreate("Recherche 2", 620, 150, @DesktopWidth / 2 - 275, 10, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS), $WS_EX_ACCEPTFILES)
GUICtrlCreateLabel("Elément(s) Recherché(s)", 20, 30, 140, 20)
GUICtrlSetFont(-1, 9, 400, 0, "comic sans ms")
$iSearch = GUICtrlCreateInput("", 170, 30, 150, 20)
GUICtrlCreateLabel("si vide : Recherche tout fichier", 170, 50, 150, 20)
GUICtrlSetFont(-1, 8, 400, 0, "comic sans ms")

GUICtrlCreateLabel("Dans le dossier suivant", 20, 70, 140, 20)
GUICtrlSetFont(-1, 9, 400, 0, "comic sans ms")
$iDir = GUICtrlCreateInput("", 170, 70, 430, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlCreateLabel("Glissez/déposez le dossier", 170, 90, 360, 20)
GUICtrlSetFont(-1, 8, 400, 0, "comic sans ms")

$btSearch = GUICtrlCreateButton("Rechercher", 340, 25, 120, 30)
$btNewSearch = GUICtrlCreateButton("Nouvelle Recherche", 480, 25, 120, 30)
$btExit = GUICtrlCreateButton("Quitter", 559, 1, 60, 15)
GUICtrlSetFont(-1, 6, 400, 0)


GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btExit
            Exit

        Case $btSearch
            If GUICtrlRead($iDir) = "" Then
                MsgBox(0, "Attention", "Il est impératif d'indiquer un dossier." & @CRLF & @CRLF & "Sans ce dossier, la recherche ne peut pas débuter, puisque vous n'indiquez pas où débuter la recherche." & @CRLF & @CRLF & "N'oubliez pas que vous pouvez glisser/déposer le dossier, cela vous évitera ces inconvénients." & @CRLF & @CRLF & "Appuyez sur OK pour continuer.")
            Else
                _Search("start")
            EndIf

        Case $btNewSearch
            _Search("new")

    EndSwitch
WEnd

Func _Search($choice)
    If $choice = "start" Then
        $Progress = GUICtrlCreateProgress(10, 125, 600, 15, $PBS_MARQUEE)
        $Rapport = @DesktopDir & "\Rapport_Recherche.txt"
        $ReportFile = FileOpen($Rapport, 2)
        FileWriteLine($ReportFile, "==========================")
        FileWriteLine($ReportFile, " ~ Rapport de Recherche ~ ")
        FileWriteLine($ReportFile, "==========================")
        FileWriteLine($ReportFile, "Vous recherchez : " & GUICtrlRead($iSearch))
        FileWriteLine($ReportFile, "Dans le dossier : " & GUICtrlRead($iDir) & @CRLF & @CRLF & @CRLF)

        GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar


        $ar_Array = _FileListToArrayNT7(GUICtrlRead($iDir), "*" & GUICtrlRead($iSearch) & "*", 1, 2, True)

        $Result = UBound($ar_Array) - 1
        For $i = 1 To $Result
            If Not @error Then
                FileWriteLine($ReportFile, $ar_Array[$i])
            EndIf
        Next
        FileClose($ReportFile)
        GUICtrlDelete($Progress)
        ShellExecute($Rapport)

    ElseIf $choice = "new" Then
        GUICtrlSetData($iSearch, "")
        GUICtrlSetData($iDir, "")

        If FileExists(@DesktopDir & "\Rapport_Recherche.txt") Then
            If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
            $iMsgBoxAnswer = MsgBox(52, "Rapport déjà existant !", "Il existe déjà un rapport de recherche." & @CRLF & "Le fait de recherche une nouvelle recherche le supprimera." & @CRLF & @CRLF & "Souhaitez-vous le renommer afin qu'il ne soit pas supprimé ?")
            Select
                Case $iMsgBoxAnswer = 6 ;Yes
                    $OtherFileName = InputBox("Modification du nom du fichier", "Indiquez le nouveau nom que portera ce fichier, sans oublier l'extension ''txt''." & @CRLF & "Example : autre nom.txt")
                    FileMove(@DesktopDir & "\Rapport_Recherche.txt", @DesktopDir & "\" & $OtherFileName & ".txt")
            EndSelect
        EndIf
    EndIf
EndFunc   ;==>_Search

Je vais enfin pouvoir intégrer la barre dans un autre script.

Donc un grand merci !

Je vais mettre en résolu.

++

AutoIt Français

[R] Intégrer ProgressBar dans la principale interface GUI

[R] Intégrer ProgressBar dans la principale interface GUI

Re: [..] Intégrer ProgressBar dans la principale interface G

Re: [..] Intégrer ProgressBar dans la principale interface G

Re: [..] Intégrer ProgressBar dans la principale interface G