[R] Création d'une GUI d'après un fichier txt

[Nagroxx]

Bonjour,

Je suis actuellement en stage et on me demande de faire un script AutoIt afin de créer une GUI d'après un fichier txt.

J'ai trouvé ici même un script le faisant parfaitement mais la GUI comprend des menus et sous menu or, je doit afficher uniquement des boutons.

► Afficher le texte

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Menu auto via un fichier txt par JL56", 623, 442, 192, 124)
Global $Button1 = GUICtrlCreateButton("quitter", 376, 292, 75, 25)
Global $nbr_element_du_menu = 0, $branche[10], $numero_de_branche = 0
Global $menu_handle_et_valeur[300][2];tableau des handles et ligne de commande


#cs

Lanceur d'applications, de jl56

Utilisation :
Les menus et commandes a executer sont stockés dans un fichier TXT :
au debut de la ligne
un "m=Nom de menu=n° de branche du menu" signifie un nouveau menu avec son nom et position de la branche (0=départ de la branche 1)
un "e=Nom de l'élément=ligne de commande" est un élément de la liste et la ligne de commande
si il n'y a pas de nom présent alors insertion d'un séparateur
si une ligne n'a pas 2 signes = elle n'est pas prise en compte ( utile pour mettre un commentaire ( sans 2 signes = ) ou separarer des blocs par des lignes blanches)
et enfin le mot fin donne l'arret de la lecture du fichier

J'ai paramétré la possibilité d'avoir 300 éléments et 10 niveaux de menu
il n'y a pas de gestion d'erreur (format de la ligne, n° de branche etc ) soyer précis ( 2 signes = par ligne )


#ce


;exemple: ( à copier dans un fichier menuauto.txt supprimer le ; en début de ligne )

; en début de ligne m génére le un nouveau menu. n'oublier pas de placer un signe = aprés le nom de ce menu
; chaque ligne du menu doit avoir 2 signes = et commencer par e ou m
; ensuite l'aboresence respecte le nombre de caractere devant m ou e, le mieux est d'utiliser des tabulations
; cela rend une lecture quasi direct du menu générer.
;
;m=Premier menu=
;
; les éléments de liste déroulante ne sont jamais en début de ligne
;
; e=e1 m1=lc 1 de m1
; e=e2 de m1=lc 2 de m1
; un élément sans nom ajoutera une ligne de séparation dans le menu
; e==
; e=e3 m1=lc 3 de m1
; e==
;
; ici une tabulation suivie de m génère un sous menu de la branche précédente
; m=Sous menu 1 de m1=
;
; on décale les éléments d'une tabulation supplémentaires on vois clairement ci-dessous que e1 e2 et (sm1 de sm1 de m1) font partie de (Sous menu 1 de m1)
;
; e=e1 de Sm1 de m1=lc 1 de Sm1 m1
; e=e2 de Sm1 de m1=lc 2 de Sm1 m1
;
; m=Sm1 de Sm1 de m1=
; e=e1 de Sm1 de Sm1 de m1=lc1 de Sm1 de Sm1 de menu1
;
; m=Sous menu 2 de m1=
; e=e1 de sm2 de m1=lc1 de sm2 de m1
; e=e1 de sm1 de m1=lc1 de sm1 de m1
;
; e=e4 de m1=lc4 de m1
;
; Départ du menu 2
;
;m=Deuxieme menu=
; e=e1 de deuxieme menu=lc1 de deuxieme menu
; arret de la lecture du fichier
;fin


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

_menu() ; fonction pour la création du menu

Do ;boucle de la gui
$msg = GUIGetMsg()
;~ test du menu selectionné
For $i = 1 To $nbr_element_du_menu ; boucle sur le nombre d'élément
If $msg = $menu_handle_et_valeur[$i][0] Then ; test si c'est ce menu ( handle ) qui est sélectioné
MsgBox(0, "Programme", $menu_handle_et_valeur[$i][1]) ;boite de dialogue pour afficher la ligne de commande test pour vérifier ( ligne à supprimer )
Run($menu_handle_et_valeur[$i][1]) ;éxecution de la valeur stocké dans le tableau
EndIf
Next


Until $msg = $GUI_EVENT_CLOSE Or $msg = $Button1

Exit


Func _menu() ; fonction pour la création du menu
$file = FileOpen(@ScriptDir & "\menuauto.txt", 0)
If $file = -1 Then
MsgBox(4096, "", "Il manque le fichier menuauto.txt " & @ScriptDir & "\menuauto.txt", 50)
FileClose($file)
Exit
Else
While 1
$ligne = FileReadLine($file) ;lecture séquenciel du fichier
If @error = -1 Then ExitLoop
If StringLeft($ligne, 3) = "fin" Then ExitLoop ; arret de la boucle avec le mot fin
If StringInStr($ligne, "=", 0, 2) Then ;si la ligne contient 2 signes = ont poursuit le code sinon ligne suivante

$element = StringSplit($ligne, "=") ;decoupage de ligne en trois morceaux (séparés par =)
;~ If Not IsArray($element) Then ExitLoop ;vérification du decoupage
If StringRight($element[1], 1) = "m" Then ;si le premier morceau est m alors
$numero_de_branche = StringLen(StringTrimRight($element[1], 1));comptage du nombre de caratére ( tabulation, espace) devant m
If $numero_de_branche = 0 Then ;si c'est la 1er branche (0 lu dans le 3 emm morceau ) creation du menu
$branche[0] = GUICtrlCreateMenu($element[2]) ;création du menu ( avec le nom stocké dans le 2 emm morceau) et stockage du handle dans le tableau $branche [1]

Else ;si la branche <> de 0
$branche[$numero_de_branche] = GUICtrlCreateMenu($element[2], $branche[$numero_de_branche - 1]);Création du sous menu de la branche précédente et stockage du handle dans le tableau $branche [x]
EndIf
EndIf

If StringRight($element[1], 1) = "e" Then ;si le 1er morceau est e alors
$numero_de_branche = StringLen(StringTrimRight($element[1], 1)) - 1;comptage du nombre de caratére ( tabulation, espace) devant e
If $numero_de_branche >= 0 Then; un élément doit toujours faire partie d'une branche soit au minimum 0 car le ligne précédent soutrait 1
$nbr_element_du_menu = $nbr_element_du_menu + 1 ; incrémentation du nombre d'élément
$menu_handle_et_valeur[$nbr_element_du_menu][0] = GUICtrlCreateMenuItem($element[2], $branche[$numero_de_branche]);Création de l'élément et stockage du handle dans le tableau
$menu_handle_et_valeur[$nbr_element_du_menu][1] = $element[3] ;stockage de la ligne de commande dans le tableau
EndIf
EndIf
EndIf
WEnd
FileClose($file)
EndIf
EndFunc ;==>_menu

J'ai donc modifier quelque peu et je suis arrivé à créer les boutons cependant je suis bloqué car je n'arrive pas à interagir avec eux.

► Afficher le texte

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Menu auto via un fichier txt par JL56", 623, 442, 192, 124)
Global $Button1 = GUICtrlCreateButton("quitter", 376, 292, 75, 25)
Global $nbr_element_du_menu = 0, $branche[10], $numero_de_branche = 0
Global $menu_handle_et_valeur[300][2];tableau des handles et ligne de commande

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

_menu() ; fonction pour la création du menu



Do ;boucle de la gui
$msg = GUIGetMsg()
;~ test du menu selectionné
For $i = 1 To $nbr_element_du_menu ; boucle sur le nombre d'élément
If $msg = $menu_handle_et_valeur[$i][0] Then ; test si c'est ce menu ( handle ) qui est sélectioné
MsgBox(0, "Programme", $menu_handle_et_valeur[$i][1]) ;boite de dialogue pour afficher la ligne de commande test pour vérifier ( ligne à supprimer )
Run($menu_handle_et_valeur[$i][1]) ;éxecution de la valeur stocké dans le tableau
EndIf
Next


Until $msg = $GUI_EVENT_CLOSE Or $msg = $Button1

Exit


Func _menu() ; fonction pour la création des boutons
Local $i=10
Local $j=10
$file = FileOpen(@DesktopDir & "\menuauto.txt", 0)
If $file = -1 Then
MsgBox(4096, "", "Il manque le fichier menuauto.txt " & @DesktopDir & "\menuauto.txt", 50)
FileClose($file)
Exit
Else
While 1
$ligne = FileReadLine($file) ;lecture séquenciel du fichier
If @error = -1 Then ExitLoop
If StringLeft($ligne, 3) = "fin" Then ExitLoop ; arret de la boucle avec le mot fin
If StringInStr($ligne, "=", 0, 2) Then ;si la ligne contient 2 signes = ont poursuit le code sinon ligne suivante

$element = StringSplit($ligne, "=") ;decoupage de ligne en trois morceaux (séparés par =)
;~ If Not IsArray($element) Then ExitLoop ;vérification du decoupage
If StringRight($element[1], 1) = "m" Then ;si le premier morceau est m alors
$numero_de_branche = StringLen(StringTrimRight($element[1], 1));comptage du nombre de caratére ( tabulation, espace) devant m
If $numero_de_branche = 0 Then ;si c'est la 1er branche (0 lu dans le 3 emm morceau ) creation du menu
$branche[0] = GUICtrlCreateButton($element[2],$i,$j,75,25) ;création du menu ( avec le nom stocké dans le 2 emm morceau) et stockage du handle dans le tableau $branche [1]
$i=$i+95
If $i > 520 Then
$i=10
$j=$j+40
EndIf
EndIf
EndIf
EndIf
WEnd
FileClose($file)
EndIf
EndFunc ;==>_menu

Il tire ses information d'un fichier txt présenté comme ceci:

► Afficher le texte

m=Site Clenet=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
m=Site Pont=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com

m=Google=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr

m=Site Clenet=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
m=Site Pont=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com

m=Google=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr

m=Site Clenet=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
m=Site Pont=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com

m=Google=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr

m=Site Clenet=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
m=Site Pont=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com

m=Google=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr

m=Site Clenet=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
m=Site Pont=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com

m=Google=
e=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr


fin

Je vous rappel que je suis un débutant tant en programmation qu'en AutoIt et que ça ne fait que depuis Lundi que j'ai commencé à apprendre ce langage.
Merci d'avance pour vos réponses.
Cordialement.

[mikell]

Hum manifestement tu n'as que 2 solutions
1- apprendre le langage Autoit pour comprendre ce qu'il y a dans les scripts, ça t'évitera d'utiliser un code inadapté et de faire un script qui est un grand n'importe quoi
2- si tu es pressé, aller dans la rubrique "demande de scripts" du forum. Là tu pourras obtenir rapidement un script sérieux et fait proprement, charge à toi ensuite de demander des renseignements pour savoir comment il fonctionne pour le cas où ton maître de stage te demanderait des explications ^^

[jl56]

Bonjour

Ayant conçût le script que vous avez utilisez je l'ai modifier selon votre souhait

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
;~ #AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Menu auto via un fichier txt par JL56", 623, 442, 192, 124)
Global $Button1 = GUICtrlCreateButton("quitter", 376, 292, 75, 25)
Global $nbr_de_bouton = 0
Global $bouton_et_valeur[300][2];tableau des handles et ligne de commande

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

_bouton() ; fonction pour la création de la gui avec bouton

;~ Global $Pic1 = GUICtrlCreatePic("\\filay\JRICHTER\MesDocuments\Ford\FORD\ford.JPG", -8, 0, 617, 433)

Do ;boucle de la gui
    $msg = GUIGetMsg()
;~ test du menu selectionné
    For $i = 1 To $nbr_de_bouton ; boucle sur le nombre d'élément
        If $msg = $bouton_et_valeur[$i][0] Then ; test si c'est ce menu ( handle ) qui est sélectioné
            MsgBox(0, "Programme", $bouton_et_valeur[$i][1]) ;boite de dialogue pour afficher la ligne de commande test pour vérifier ( ligne à supprimer )
;~          Run($bouton_et_valeur[$i][1]) ;éxecution de la valeur stocké dans le tableau
        EndIf
    Next


Until $msg = $GUI_EVENT_CLOSE Or $msg = $Button1

Exit


Func _bouton() ; fonction pour la création des boutons
    Local $i = 10
    Local $j = 10
    $file = FileOpen(@ScriptDir & "\boutonauto.txt", 0)
    If $file = -1 Then
        MsgBox(4096, "", "Il manque le fichier boutonauto.txt " & @ScriptDir & "\boutonauto.txt", 50)
        FileClose($file)
        Exit
    Else
        While 1
            $ligne = FileReadLine($file) ;lecture séquenciel du fichier
            If @error = -1 Then ExitLoop
            If StringLeft($ligne, 3) = "fin" Then ExitLoop ; arret de la boucle avec le mot fin

            $element = StringSplit($ligne, "=") ;decoupage de ligne en trois morceaux (séparés par =)
            If Not IsArray($element) Then ExitLoop ;vérification du decoupage
            If StringRight($element[1], 1) = "b" Then ;si le premier morceau est b alors
                $nbr_de_bouton = $nbr_de_bouton + 1
                $bouton_et_valeur[$nbr_de_bouton][0] = GUICtrlCreateButton($element[2], $i, $j, 75, 25);Création de l'élément et stockage du handle dans le tableau
                $bouton_et_valeur[$nbr_de_bouton][1] = $element[3]


        $i = $i + 95
                If $i > 520 Then
                    $i = 10
                    $j = $j + 40

                EndIf
            EndIf
        WEnd
        FileClose($file)
    EndIf
EndFunc   ;==>_menu
 

Le fichier txt doit s'éditer comme ceci

► Afficher le texte

b=Site Clenet=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b=Site Pont=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com

b=Google=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr

b=Site Clenet=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b=Site Pont=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com

b=Google=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr

b=Site Clenet=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b=Site Pont=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com

b=Google=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr

b=Site Clenet=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b=Site Pont=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com

b=Google=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr

b=Site Clenet=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b=Site Pont=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com

b=Google=C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr


fin

De fait le script est plus simple il n'y pas de sous menu à gérer

@mickell
Désolé Je ne sais pas si mon script est un script sérieux et fait proprement

A+

JL56

[mikell]

@jl56
Ce que je voulais dire c'est que prendre un script spécifiquement conçu pour un menu et le bidouiller pour le forcer à fonctionner avec des boutons, quand on sait pas où on va ça reste du bricolage
Le résultat peut être sérieux et propre quand on est soi-même le concepteur du script de départ et/ou qu'on sait exactement ce qu'on fait
Si les modifs à faire sont conséquentes alors il vaut généralement mieux réécrire d'emblée un script adapté, ce que pratiquement tu as fait, d'ailleurs

[Nagroxx]

Ok merci c'est super mais ça ne lance pas IE.

@mikell, comme je l'ai dis, je suis pas développeur et il me reste 5 semaines de stage. Je n'ai pas que ça comme projet donc je préfère avoir un script tout fait dont je comprend 50% et l'étudier petit à petit pour le comprendre entièrement de manière a ne pas bloquer sur un projet unique.

Edit: C'est bon j'avais pas remarqué la ligne commentée... MERCI maintenant go le comprendre de A à Z

[Nagroxx]

Bonjour,

J'ai présenté "mon" script (Merci encore jl56) à mon tuteur hier et il a trouvé ça bien.

Il a proposé quelques améliorations comme le fait de rajouter des onglets pour trier ensuite les boutons en fonction de leur action.
Il a également proposé de modifier l'action du bouton "Quitter" afin de faire en sorte qu'il ferme la session (ceci est fait j'ai réussi ^^).

Je suis donc désolé de vous demander ça mais pour commencer, est'il possible de modifier l'action de la croix afin de faire en sorte qu'elle aussi ferme la session? car pour le moment elle n'a plus aucun effet pour moi.

J'ai trouvé comment créer des onglets (GuiCtrlCreateTab...) je suis entrain de voir comment fonctionne le script pour les boutons afin de le refaire pour les onglets et ensuite de les combiner.

J'ai cependant une question, lorsque je fait un onglet, celui ci ne prend pas l'image que je lui ai définit par (GUICtrlCreatePic). Comment faire?

Merci d'avance

[Evotique]

Question bête : tu as mis un chemin relatif ou absolu ?

[jl56]

Bonjour

Pour l'action fermeture par la croix, il faux mettre ton action de fermeture de session après le
Until $msg = $GUI_EVENT_CLOSE Or $msg = $Button;cela veux dire , je continu la boucle tant que je n'ai pas fermer la fenêtre ou que je n'ai pas appuyer sur le bouton "quitter"

et avant le
EXIT



$msg = $GUI_EVENT_CLOSE correspond à la fermeture de la fenêtre

Pour l'image je ne sais pas désolé

A+ JL56

[mikell]

Voilà pour les tabs...

► Afficher le texte

Code : Tout sélectionner

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

$img = @tempdir & "\bl.gif"
InetGet("http://affz.free.fr/sm/icon_mrorange.gif", $img, 1)
$gui = GUICreate("GUI", 300, 100)
GUISetState()

GuiCtrlCreateTab( -2, -2, 305, 105)
$tab0 = GUICtrlCreateTabItem("tab0")
$tab1 = GUICtrlCreateTabItem("tab1")
  $btn1 = GUICtrlCreateButton("et 1", 10, 30, 50, 20)
$tab2 = GUICtrlCreateTabItem("tab2")
  $btn3 = GUICtrlCreateButton("et 2", 10, 30, 50, 20)
  $pic2 = GUICtrlCreatePic($img, 70, 30, 15, 17)
GUICtrlCreateTabItem("")
GUICtrlSetState($tab0, $GUI_SHOW)

while 1
$msg = GuiGetMsg()
If $msg = $GUI_EVENT_CLOSE Then Exit Msgbox(0, "", "là je ferme la session")
If $msg = $btn1 Then
    GUISwitch($gui,$tab1)
    $pic = GUICtrlCreatePic($img, 70, 30, 15, 17)
    GUICtrlCreateTabItem("")
EndIf
If $msg = $btn3 Then
    GUISwitch($gui,$tab2)
    $input  = GUICtrlCreateInput("et 3" , 95, 30, 55, 20)
    GUICtrlCreateTabItem("")
EndIf
wend
 

[Nagroxx]

Bonjour,

Merci à tous tout d'abord.

J'ai réussi à faire ce que je voulais: afficher une GUI créait d'après un fichier txt comportant des onglets et des boutons.
J'ai pas encore regardé pour l'image mais j'ai déjà un petit "problème": Lorsque je lance mon script, il me génère une GUI. Cependant, pour que les boutons du premier onglet apparaissent il me faut aller sur un autre onglet puis revenir sur le premier.

@jl56, Ok je vais voir ça pour la croix, je te tient au courant.

ps: Voici mon script

► Afficher le texte

#cs ----------------------------------------------------------------------------

AutoIt Version : 3.3.8.1
Auteur: Jordy Rychter

Fonction du Script :
Réalisation d'une GUI intégrant des onglet et des boutons en fonction d'un fichier texte (.txt)

#ce ----------------------------------------------------------------------------

; Début du script

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

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Programmes de " & @UserName, 617, 433, 192, 124)
Global $Tab1 = GUICtrlCreateTab(0, 0, 617, 385)
Global $Button1 = GUICtrlCreateButton("quitter", 500, 390, 75, 25)
Global $nbr_de_bouton = 0
Global $bouton_et_valeur[300][2];tableau des handles et ligne de commande
Global $nbr_de_tab = 0
Global $TabSheet[300][2]


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

_bouton() ; fonction pour la création de la gui avec bouton

Do ;boucle de la gui
$msg = GUIGetMsg()
For $i = 1 To $nbr_de_bouton ; boucle sur le nombre d'élément
If $msg = $bouton_et_valeur[$i][0] Then ; test si c'est ce menu ( handle ) qui est sélectioné
; MsgBox(0, "Programme", $bouton_et_valeur[$i][1]) ;boite de dialogue pour afficher la ligne de commande test pour vérifier ( ligne à supprimer )
Run($bouton_et_valeur[$i][1]) ;éxecution de la valeur stocké dans le tableau
EndIf
Next
Until $msg = $GUI_EVENT_CLOSE or $msg = $Button1
Shutdown(0)
Exit


Func _bouton() ; fonction pour la création des boutons
Local $i = 10
Local $j = 40
$file = FileOpen(@ScriptDir & "\" & @UserName & ".txt", 0)
If $file = -1 Then
MsgBox(4096, "", "Il manque le fichier " & @ScriptDir & "\" & @UserName & ".txt", 50)
FileClose($file)
Exit
Else
While 1
$ligne = FileReadLine($file) ;lecture séquenciel du fichier
If @error = -1 Then ExitLoop
If StringLeft($ligne, 3) = "fin" Then ExitLoop ; arret de la boucle avec le mot fin

$element = StringSplit($ligne, "|") ;decoupage de ligne en trois morceaux (séparés par |)
If Not IsArray($element) Then ExitLoop ;vérification du decoupage
If StringRight($element[1],1) = "t" Then
$nbr_de_tab = $nbr_de_tab +1
$TabSheet[$nbr_de_tab][0] = GUICtrlCreateTabItem($element[2]);Création de l'élément et stockage du handle dans le tableau
Local $i = 10
Local $j = 40
Else
;If StringRight($element[1], 1) = "b" Then ;si le premier morceau est b alors
$nbr_de_bouton = $nbr_de_bouton + 1
$bouton_et_valeur[$nbr_de_bouton][0] = GUICtrlCreateButton($element[2], $i, $j, 75, 25);Création de l'élément et stockage du handle dans le tableau
$bouton_et_valeur[$nbr_de_bouton][1] = $element[3]
$i = $i + 95
If $i > 520 Then
$i = 10
$j = $j + 40
EndIf
;EndIf
EndIf
WEnd
FileClose($file)
EndIf
EndFunc ;==>_bouton

Liste source:

► Afficher le texte

t|Internet
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
t|Autre
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
t|JCP
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
b|Site Clenet|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.clenetsa.fr
b|Site Pont|C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.Pontautomobiles.com
fin

A mettre a votre nom d'utilisateur!


@jl56: Merci ça marche pour la fermeture de session, j'avais pas pensé à aussi simple .

Il me reste plus qu'a régler le problème de l'affichage des boutons du premier onglet. Si quelqu'un à déjà eu un problème similaire

[mikell]

Faut juste mettre la fonction _bouton() pour créer les tabs avant le GUISetState

Code : Tout sélectionner

....
Global $TabSheet[300][2]
_bouton() ; fonction pour la création de la gui avec bouton
GUISetState(@SW_SHOW)

[Nagroxx]

De quoi @mikell?

Tu as lu mon problème? Ma GUI s'affiche sauf que pour voir les boutons du premier onglet il me faut effectuer une action du genre aller sur le deuxième onglet et revenir sur le premier. Personnellement ça me gène pas plus que ça mais c'est pour les salariés que ça va être problématique, effectuer 2 clics de plus que la normal c'est compliqué...

Donc il me semble que ta réponse ne correspond pas à mon problème, après c'est peut être moi qui ai mal compris.

EDIT: Autant pour moi j'avais crus que tu parlais de la création mais je viens de regarder et effectivement j'affichais avant de faire donc forcément... Excuse moi pour le petit paragraphe juste au dessus et merci d'aider de petit newbe comme moi.

[mikell]

Tu as essayé de modifier ton script comme indiqué avant de râler ?

Sinon autre solution :

Code : Tout sélectionner

GUICtrlSetState($TabSheet[1][0], $GUI_SHOW)

[Nagroxx]

@mikell, je viens d’éditer mon message précédent, j'avais pas compris pourquoi tu me disais ça et je pensais que j'avais déjà mis la fonction avant le GUISetState. ça m'apprendra à lire trop vite.

[mikell]

...effectivement j'affichais avant de faire donc forcément...

Tu as aussi le droit de procéder comme ça, mais dans ce cas c'est la 2ème solution qui s'applique

Code : Tout sélectionner

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_bouton() ; fonction pour la création de la gui avec bouton
GUICtrlSetState($TabSheet[1][0], $GUI_SHOW)

NB : faut pas préjuger la qualité de mes réponses d'après l'impression produite par mon 1er post dans ce sujet

[Nagroxx]

Ah oki. Merci mais je pense que pour l'instant je vais rester sur la première méthode que tu m'as donnée. Elle donne le résultat voulu.

Petite question (j'en profite) est'il possible de définir une image par onglet?

[mikell]

Je suis actuellement en stage et on me demande de faire un script AutoIt ...

Raison pour laquelle je fournis plusieurs solutions possibles

Pour les images, tu peux faire ça dans la fonction _bouton() en créant l'image après le TabItem mais avant les boutons
Important pour que les boutons fonctionnent, si c'est une image de fond :

Code : Tout sélectionner

GUICtrlSetState($image, $GUI_DISABLE)

[Nagroxx]

Raison pour laquelle je fournis plusieurs solutions possibles

Je sais bien et j'en prend note mais je garde l'autre en service

Pour les images, tu peux faire ça dans la fonction _bouton() en créant l'image après le TabItem mais avant les boutons
Important pour que les boutons fonctionnent, si c'est une image de fond :

Code : Tout sélectionner

GUICtrlSetState($image, $GUI_DISABLE)

Ceci va me permette de mettre une seule et même image pour tout les onglets non?
Ou alors il faut que je stock les image dans un tableau pour qu'il les gère?

Car je voudrait une image genre Chrome, Firefox... pour l'onglet Internet, une image genre logo windows pour l'onglet contenant les boutons relatifs aux programmes windows...

[mikell]

Teste ça

► Afficher le texte

Code : Tout sélectionner

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

Global $img[3] = ["C:\Program Files\AutoIt3\Examples\GUI\msoobe.jpg", _ 
            "C:\Program Files\AutoIt3\Examples\GUI\mslogo.jpg", _ 
            "C:\Program Files\AutoIt3\Examples\GUI\merlin.gif"]

Global $Form1 = GUICreate("Programmes de " & @UserName, 617, 433, 192, 124)
Global $Tab1 = GUICtrlCreateTab(0, 0, 617, 385)
Global $Button1 = GUICtrlCreateButton("quitter", 500, 390, 75, 25)
Global $nbr_de_bouton = 0
Global $bouton_et_valeur[300][2];tableau des handles et ligne de commande
Global $nbr_de_tab = 0
Global $TabSheet[300][2]

_bouton() ; fonction pour la création de la gui avec bouton

GUISetState(@SW_SHOW)


Do ;boucle de la gui
$msg = GUIGetMsg()
For $i = 1 To $nbr_de_bouton ; boucle sur le nombre d'élément
If $msg = $bouton_et_valeur[$i][0] Then ; test si c'est ce menu ( handle ) qui est sélectioné
; MsgBox(0, "Programme", $bouton_et_valeur[$i][1]) ;boite de dialogue pour afficher la ligne de commande test pour vérifier ( ligne à supprimer )
Run($bouton_et_valeur[$i][1]) ;éxecution de la valeur stocké dans le tableau
EndIf
Next
Until $msg = $GUI_EVENT_CLOSE or $msg = $Button1
;;Shutdown(0)
Exit


Func _bouton() ; fonction pour la création des boutons
Local $i = 10
Local $j = 40
$file = FileOpen(@ScriptDir & "\1.txt", 0)
If $file = -1 Then
MsgBox(4096, "", "Il manque le fichier " & @ScriptDir & "\" & @UserName & ".txt", 50)
FileClose($file)
Exit
Else
While 1
$ligne = FileReadLine($file) ;lecture séquenciel du fichier
If @error = -1 Then ExitLoop
If StringLeft($ligne, 3) = "fin" Then ExitLoop ; arret de la boucle avec le mot fin

$element = StringSplit($ligne, "|") ;decoupage de ligne en trois morceaux (séparés par |)
If Not IsArray($element) Then ExitLoop ;vérification du decoupage
If StringRight($element[1],1) = "t" Then
$nbr_de_tab = $nbr_de_tab +1
$TabSheet[$nbr_de_tab][0] = GUICtrlCreateTabItem($element[2]);Création de l'élément et stockage du handle dans le tableau

If $nbr_de_tab<4 Then
  GUICtrlCreatePic($img[$nbr_de_tab-1], 30, 30)
  GUICtrlSetState(-1, $GUI_DISABLE)
EndIf

Local $i = 10
Local $j = 40
Else
;If StringRight($element[1], 1) = "b" Then ;si le premier morceau est b alors
$nbr_de_bouton = $nbr_de_bouton + 1
$bouton_et_valeur[$nbr_de_bouton][0] = GUICtrlCreateButton($element[2], $i, $j, 75, 25);Création de l'élément et stockage du handle dans le tableau
$bouton_et_valeur[$nbr_de_bouton][1] = $element[3]
$i = $i + 95
If $i > 520 Then
$i = 10
$j = $j + 40
EndIf
;EndIf
EndIf
WEnd
FileClose($file)
EndIf
EndFunc ;==>_bouton

[Nagroxx]

Merci ça fonctionne parfaitement!

Dans "GUICtrlCreatePic($img[$nbr_de_tab-1], 30, 30)" le "$nbr_de_tab-1" correspond à quoi? c'est le -1 qui m'intrigue ^^

EDIT: Ah non je suis trop C.. désolé ^^ c'est bon j'ai compris MDR