Bref sa fait déjà une semaine que je regarde les tutoriels Autoit et pour l’instant j’ai programmé sa a l’aide de kodak. Je bloque en ce moment sur le fait que j’aimerais qu’une boite de dialogue s’affiche lorsque je clique sur parcourir pour sélectionné un dossier. En ce moment le problème est quelle s’affiche des l’ouverture du programme sans que j’ai cliqué dessue. Une foie que j’ai quitté cette boite de dialogue, impossible de la rouvrir a l’aide du bouton parcourir.
Comment remédier a ce problème ?
Voici mon code.
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$structure = GUICreate("", 714, 269, 312, 148)
$MenuItem1 = GUICtrlCreateMenu("&Langue")
$MenuItem3 = GUICtrlCreateMenuItem("Français", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("&Aide")
$MenuItem5 = GUICtrlCreateMenuItem("FAQ", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Condition général", $MenuItem2)
$MenuItem6 = GUICtrlCreateMenuItem("A propos", $MenuItem2)
$gauche = GUICtrlCreateGroup("", 0, -8, 217, 249)
$texte = GUICtrlCreateLabel("Déposé ici vos fichiers à extension :", 8, 8, 211, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$liste = GUICtrlCreateList("", 8, 48, 201, 175)
GUICtrlSetFont(-1, 8, 800, 0, "Verdana")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$texte2 = GUICtrlCreateLabel("htm /html / css / js / php.", 8, 24, 152, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$droite = GUICtrlCreateGroup("", 216, -8, 497, 249)
$texte3 = GUICtrlCreateLabel("Sélectionné le dossier de destination des fichiers une foie la compression terminé.", 224, 8, 474, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$barre = GUICtrlCreateProgress(224, 72, 465, 17)
$compression = GUICtrlCreateButton("Compression", 224, 96, 139, 49)
GUICtrlSetFont(-1, 12, 800, 0, "Verdana")
$texte4 = GUICtrlCreateLabel("Cliqué sur compression pour lancer la compression. ", 225, 51, 305, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetCursor (-1, 2)
$parcourir = GUICtrlCreateButton("Parcourir", 616, 24, 75, 20)
GUICtrlSetFont(-1, 8, 800, 0, "Verdana")
; -------- fonction de la boite de dilogue
FileSelectFolder("Choose a folder.", "", "", $parcourir)
; -----------------
$destination = GUICtrlCreateInput("", 224, 24, 385, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetBkColor(-1, 0xFFFFE1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
