Code : Tout sélectionner
#include <EditConstants.au3>
#include <FontConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ColorConstants.au3>
#include <GuiListView.au3>
$gui = GUICreate("Créer les dossiers de l'opération", 1200,570)
GUISetFont(8, $FW_NORMAL, $GUI_FONTNORMAL, "Arial")
Local $idTab = GUICtrlCreateTab(10, 10, 1173, 554,0)
GUICtrlCreateTabItem("Créer dossiers")
GUICtrlSetState(-1, $GUI_SHOW); s'affichera en premier
; parametres pour déplacer l'ensemble des composantes
$left = 12
$top = 30
; les cadres
$cadre1 = GUICtrlCreateGraphic($left+4, $top+4, 1162, 330, $SS_GRAYRECT)
GUICtrlSetColor($cadre1, 0x660033 )
GUICtrlSetBkColor($cadre1, $COLOR_BLUE)
$cadre2 = GUICtrlCreateGraphic($left+4, $top+337, 1162, 58)
GUICtrlSetColor($cadre2, 0x660033 )
GUICtrlSetBkColor($cadre2, $COLOR_BLUE)
$cadre3 = GUICtrlCreateGraphic($left+4, $top+398, 1162, 130, 0)
GUICtrlSetColor($cadre3, 0x660033 )
GUICtrlSetBkColor($cadre3, $COLOR_BLUE)
; Create a radio control departement.
GUISetFont (8, 700)
$departement = GUICtrlCreateGroup("Département", $left+8, $top+50, 1153, 80)
GUISetFont (8, 400)
GUIStartGroup()
Local $idRadio1 = GUICtrlCreateRadio("2A_Corse-du-Sud", $left+10, $top+70, 127, 20)
Local $idRadio2 = GUICtrlCreateRadio("2B_Haute-Corse", $left+137, $top+70, 120, 20)
Local $idRadio3 = GUICtrlCreateRadio("04_Alpes-de-Haute-Provence", $left+257, $top+70, 173, 20)
Local $idRadio4 = GUICtrlCreateRadio("05_Hautes-Alpes", $left+430, $top+70, 123, 20)
Local $idRadio5 = GUICtrlCreateRadio("06_Alpes-Maritimes", $left+553, $top+70, 134, 20)
Local $idRadio6 = GUICtrlCreateRadio("09_Ariège", $left+687, $top+70, 80, 20)
Local $idRadio7 = GUICtrlCreateRadio("11_Aude", $left+767, $top+70, 73, 20)
Local $idRadio8 = GUICtrlCreateRadio("12_Aveyron", $left+840, $top+70, 89, 20)
Local $idRadio9 = GUICtrlCreateRadio("13_Bouches-du-Rhône", $left+929, $top+70, 154, 20)
Local $idRadio10 = GUICtrlCreateRadio("30_Gard", $left+1083, $top+70, 70, 20)
Local $idRadio11 = GUICtrlCreateRadio("31_Haute-Garonne", $left+10, $top+95, 135, 20)
Local $idRadio12 = GUICtrlCreateRadio("32_Gers", $left+145, $top+95, 71, 20)
Local $idRadio13 = GUICtrlCreateRadio("34_Hérault", $left+216, $top+95, 84, 20)
Local $idRadio14 = GUICtrlCreateRadio("46_Lot", $left+300, $top+95, 68, 20)
Local $idRadio15 = GUICtrlCreateRadio("48_Lozère", $left+368, $top+95, 84, 20)
Local $idRadio16 = GUICtrlCreateRadio("65_Hautes-Pyrénées", $left+452, $top+95, 146, 20)
Local $idRadio17 = GUICtrlCreateRadio("66_Pyrénées-Orientales", $left+598, $top+95, 160, 20)
Local $idRadio18 = GUICtrlCreateRadio("81_Tarn", $left+758, $top+95, 71, 20)
Local $idRadio19 = GUICtrlCreateRadio("82_Tarn-et-Garonne", $left+829, $top+95, 143, 20)
Local $idRadio20 = GUICtrlCreateRadio("83_Var", $left+972, $top+95, 66, 20)
Local $idRadio21 = GUICtrlCreateRadio("84_Vaucluse", $left+1038, $top+95, 90, 20)
; Create a radio control type opération.
GUISetFont (8, 700)
$type_operation = GUICtrlCreateGroup("Type opération", $left+8,$top+130, 175, 50)
GUISetFont (8, 400)
GUIStartGroup()
Local $idRadio22 = GUICtrlCreateRadio("Diagnostics", $left+10, $top+150, 80, 20)
Local $idRadio23 = GUICtrlCreateRadio("Fouilles", $left+100, $top+150, 80, 20)
; Create a input text communes.
GUISetFont (8, 700)
GUICtrlCreateLabel("Commune", $left+8, $top+185, 136, 17)
GUISetFont (8, 400)
$dossier_communes = GUICtrlCreateInput("", $left+8, $top+205, 1153, 21)
$focus = GUICtrlSetState( $dossier_communes , $GUI_FOCUS )
; Create a input text nom chantier.
GUISetFont (8, 700)
GUICtrlCreateLabel("Nom chantier", $left+8, $top+235, 136, 17)
GUISetFont (8, 400)
$nom_chantierinput = GUICtrlCreateInput("", $left+8, $top+255, 1153, 21)
; Create a input text code SGA.
GUISetFont (8, 700)
GUICtrlCreateLabel("Code SGA", $left+8, $top+287, 250, 17)
GUISetFont (8, 400)
$code_saga_input = GUICtrlCreateInput("", $left+8, $top+306, 1153, 21)
; Create a input text chemin des dossiers à créer.
GUISetFont (8, 700)
GUICtrlCreateLabel("Chemin des dossiers à créer: cliquer ici --->", $left+8, $top+347, 300, 17)
GUISetFont (8, 400)
$chemininput = GUICtrlCreateInput("" ,$left+8, $top+367, 1153, 21)
; Create a input text c'est fait.
$fait = GUICtrlCreateLabel("" ,$left+480, $top+454, 200, 30)
GUICtrlSetFont ( $fait, 18 , 700)
; boutons
$ok = GUICtrlCreateButton("chemin des dossiers à créer",$left+330,$top+340,179,25)
GUICtrlSetBkColor($ok, 0xFFE8AD )
$doss = GUICtrlCreateButton("créer les dossiers",$left+8,$top+454,390,30)
GUICtrlSetBkColor($doss, 0xE69CFF )
$ouvrir = GUICtrlCreateButton("ouvrir le dossier",$left+8,$top+494,160,30)
GUICtrlSetBkColor($ouvrir, 0xFFFF66 )
Local $idNewsubmenu = GUICtrlCreateContextMenu($ouvrir)
Local $itemO = GUICtrlCreateMenuItem("ouvrir le dossier", $idNewsubmenu)
Local $itemOF = GUICtrlCreateMenuItem("ouvrir le dossier et fermer", $idNewsubmenu)
; volet parametres
$GUICtrlCreateTabItem = GUICtrlCreateTabItem("Paramètres")
; les cadres
$cadre4 = GUICtrlCreateGraphic($left+4, $top+4, 1162, 450,$SS_GRAYRECT) ;, $SS_GRAYRECT, $SS_GROAYFRAME
GUICtrlSetColor($cadre4, 0x660033 )
GUICtrlSetBkColor($cadre4, $COLOR_RED);660066
; Create a input text dossier racine.(10, 700 )
GUISetFont (8, 700)
$serveurAdmin = GUICtrlCreateGroup("Serveur administration", $left+8, $top+10, 1153, 97)
GUISetFont (8, 400)
GUIStartGroup()
Local $dossier_racine = GUICtrlCreateLabel("Dossier racine", $left+12, $top+25, 136, 17)
Local $dossier_racineinput = GUICtrlCreateInput("", $left+12, $top+40, 1145, 21)
GuiCtrlSetData($dossier_racineinput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "dossier racine", "" ) )
; Create a input text des dossiers à créer.
GUICtrlCreateLabel("Liste des dossiers à créer dans l'opération(séparés par des virgules sans espace)", $left+12, $top+65, 400, 17)
$dossiers = GUICtrlCreateInput("" ,$left+12, $top+80, 1145, 21)
GuiCtrlSetData($dossiers, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "liste dossiers", "" ) )
; Create inputs text adresse NAS.(10, 700 )
GUISetFont (8, 700)
$NAS = GUICtrlCreateGroup("Les NAS", $left+8, $top+110, 1153, 250)
GUISetFont (8, 400)
GUIStartGroup()
;NIMES
Local $NasNimes = GUICtrlCreateLabel("Nîmes", $left+17, $top+125, 136, 17)
Local $NasNimesInput = GUICtrlCreateInput("", $left+12, $top+140, 600, 21)
GuiCtrlSetData($NasNimesInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Nimes", "" ) )
Local $NasNimesDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+125, 136, 17)
Local $NasNimesDepartementsInput = GUICtrlCreateInput("", $left+615, $top+140, 542, 21)
GuiCtrlSetData($NasNimesDepartementsInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Nimes", "" ) )
;VLB
Local $NasVLB = GUICtrlCreateLabel("Villeneuve-Les-Béziers", $left+17, $top+165, 136, 17)
Local $NasVLBInput = GUICtrlCreateInput("", $left+12, $top+180, 600, 21)
GuiCtrlSetData($NasVLBInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS VLB", "" ) )
Local $NasVLBDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+165, 136, 17)
Local $NasVLBDepartementsInput = GUICtrlCreateInput("", $left+615, $top+180, 542, 21)
GuiCtrlSetData($NasVLBDepartementsInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS VLB", "" ) )
;Perpignan
Local $NasPerpignan = GUICtrlCreateLabel("Perpignan", $left+17, $top+205, 136, 17)
Local $NasPerpignanInput = GUICtrlCreateInput("", $left+12, $top+220, 600, 21)
GuiCtrlSetData($NasPerpignanInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Perpignan", "" ) )
Local $NasPerpignanDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+205, 136, 17)
Local $NasPerpignanDepartementsInput = GUICtrlCreateInput("", $left+615, $top+220, 542, 21)
GuiCtrlSetData($NasPerpignanDepartementsInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Perpignan", "" ) )
;Toulouse
Local $NasToulouse = GUICtrlCreateLabel("Toulouse", $left+17, $top+245, 136, 17)
Local $NasToulouseInput = GUICtrlCreateInput("", $left+12, $top+260, 600, 21)
GuiCtrlSetData($NasToulouseInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Toulouse", "" ) )
Local $NasToulouseDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+245, 136, 17)
Local $NasToulouseDepartementsInput = GUICtrlCreateInput("", $left+615, $top+260, 542, 21)
GuiCtrlSetData($NasToulouseDepartementsInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Toulouse", "" ) )
;Marseille
Local $NasMarseille = GUICtrlCreateLabel("Marseille", $left+17, $top+285, 136, 17)
Local $NasMarseilleInput = GUICtrlCreateInput("", $left+12, $top+300, 600, 21)
GuiCtrlSetData($NasMarseilleInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Marseille", "" ) )
Local $NasMarseilleDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+285, 136, 17)
Local $NasMarseilleDepartementsInput = GUICtrlCreateInput("", $left+615, $top+300, 542, 21)
GuiCtrlSetData($NasMarseilleDepartementsInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Marseille", "" ) )
;Eguille
Local $NasEguille = GUICtrlCreateLabel("Eguille", $left+17, $top+325, 136, 17)
Local $NasEguilleInput = GUICtrlCreateInput("", $left+12, $top+340, 600, 21)
GuiCtrlSetData($NasEguilleInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Eguille", "" ) )
Local $NasEguilleDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+325, 136, 17)
Local $NasEguilleDepartementsInput = GUICtrlCreateInput("", $left+615, $top+340, 542, 21)
GuiCtrlSetData($NasEguilleDepartementsInput, IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Eguille", "" ) )
GUICtrlCreateTabItem(""); fin de la définition de TabItem
GUISetState(@SW_SHOW)
;$r = _ArrayFindAll($departements,"05_Hautes-Alpes")
;_ArrayDisplay($r, "Found")
;MsgBox($MB_SYSTEMMODAL, "Title", $r)
Local $idMsg = GUIGetMsg()
; Boucle jusqu'à ce que l'utilisateur quitte.
While $idMsg <> $GUI_EVENT_CLOSE
If $idMsg = $idTab Then
; Affiche l'onglet cliqué
WinSetTitle("My GUI Tab", "", "My GUI Tab" & GUICtrlRead($idTab))
EndIf
$idMsg = GUIGetMsg()
WEnd
GUISetState()
Global $departement, $operation, $chemin, $chemin_liste_dossiers, $code_saga_input
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$chemin_liste_dossiers = "Liste_dossiers_a_creer"
DirCreate($chemin_liste_dossiers)
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url administration", GUICtrlRead($dossier_racineinput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "liste dossiers administration", GUICtrlRead($dossiers ))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Nimes", GUICtrlRead($NasNimesInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS VLB", GUICtrlRead($NasVLBInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Perpignan", GUICtrlRead($NasPerpignanInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Toulouse", GUICtrlRead($NasToulouseInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Marseille", GUICtrlRead($NasMarseilleInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Eguille", GUICtrlRead($NasEguilleInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Nimes", GUICtrlRead($NasNimesDepartementsInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS VLB", GUICtrlRead($NasVLBDepartementsInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Perpignan", GUICtrlRead($NasPerpignanDepartementsInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Toulouse", GUICtrlRead($NasToulouseDepartementsInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Marseille", GUICtrlRead($NasMarseilleDepartementsInput))
IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Eguille", GUICtrlRead($NasEguilleDepartementsInput))
Exit
Case $idRadio1, $idRadio2, $idRadio3, $idRadio4, $idRadio5, $idRadio6, $idRadio7, $idRadio8, $idRadio9, $idRadio10, $idRadio11, $idRadio12, $idRadio13, $idRadio14, $idRadio15, $idRadio16, $idRadio17, $idRadio18, $idRadio19, $idRadio20, $idRadio21
If GUICtrlRead($nMsg) = 1 Then $departement = GUICtrlRead($nMsg, 1)
Case $idRadio22, $idRadio23
If GUICtrlRead($nMsg) = 1 Then $operation = GUICtrlRead($nMsg, 1)
Case $ok
$focus = GUICtrlSetState( $dossiers , $GUI_FOCUS )
$racine = GUICtrlRead($dossier_racineinput)
$commune = GUICtrlRead($dossier_communes)
$chantier = GUICtrlRead($nom_chantierinput)
If $racine <> "" and $departement <> "" and $operation <> "" and $commune <> "" and $chantier <> "" and $code_saga_input <> "" Then
$chemin = $racine & "\" & $departement & "\" & $operation & "\" & $commune & "_" & $chantier & "_" & GUICtrlRead($code_saga_input)
GuiCtrlSetData($chemininput, $chemin)
EndIf
GuiCtrlSetData( $fait , "" )
$focus = GUICtrlSetState( $doss , $GUI_FOCUS )
Case $doss
If $chemin <> "" and $dossiers <> "" Then
$dossiers_a_creer = StringSplit( GUICtrlRead($dossiers ), ",")
For $i = 1 To $dossiers_a_creer[0]
DirCreate($chemin & "\" & $dossiers_a_creer[$i])
Next
GuiCtrlSetData( $fait , "C'est fait !" )
EndIf
Case $ouvrir
ControlClick ( "", "", $ouvrir, "right")
Case $itemO
Run ("explorer.exe /n,/e," & GUICtrlRead( $chemininput))
Case $itemOF
GUISetState ( @SW_HIDE )
WinClose($gui)
Run ("explorer.exe /n,/e," & GUICtrlRead( $chemininput))
Exit
EndSwitch
WEnd