[..] Ouvrir un second menu

[Dagobert]

Bonjour à tous.

Après quelques années sur Batch, je me lance dans AutoIt car je commence à bloquer sur certaines fonctions. (Et aussi parce que Windows 7 me poses quelque soucis de compatibilité par rapport à XP - d'un pont de vue programmation ).

Pour l'instant, j'en suis à créer l'interface de mon script.
J'ai (suivant exemple) conçut la première fenêtre, cependant, l'appui sur "Configuration" devrais remettre à zéro tous les ControleID et en afficher de nouveaux (dans la fenêtre "Configuration"),
ou alors fermer le première fenêtre et en ouvrir une autre,
ou bien encore, créer la fenêtre de "Configuration", par dessus la première, sans pouvoir y toucher tant que la "Configuration" n'est pas fermée.

Petit problème, ça bug, et je suis obligé de Killer le processus .

Où donc se trouve mon erreur, dans "Func Configuration()" je pense ?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)

Global $ExitID, $CloseID

Choix()

Func Choix()
    Global $GAME = ""
    Local $TombRaiderC, $TombRaiderG, $MaxPayne1, $MaxPayne2, $HitMan2, $ProjetIGI, $Scarface, $FarCry2, $Configuration, $License, $QuoiDeNeuf, $Credit, $LiveUpdate

    GUICreate("MultiBootIt v0.0.0.1 préAlphaGUI", 400, 255)

    GUICtrlCreateLabel("Sélectionnez un jeu", 35, 20)
    GUICtrlCreateLabel("Ou une option", 230, 20)
    $TombRaiderC = GUICtrlCreateButton("Tomb Raider Classic", 10, 50, 150, 20)
    GUICtrlSetOnEvent($TombRaiderC, "TombRaiderC")
    $TombRaiderG = GUICtrlCreateButton("Tomb Raider Spéciaux", 10, 75, 150, 20)
    GUICtrlSetOnEvent($TombRaiderG, "TombRaiderG")
    $MaxPayne1 = GUICtrlCreateButton("Max Payne 1", 10, 100, 150, 20)
    GUICtrlSetOnEvent($MaxPayne1, "MaxPayne1")
    $MaxPayne2 = GUICtrlCreateButton("Max Payne 2", 10, 125, 150, 20)
    GUICtrlSetOnEvent($MaxPayne2, "MaxPayne2")
    $HitMan2 = GUICtrlCreateButton("Hit Man 2", 10, 150, 150, 20)
    GUICtrlSetOnEvent($HitMan2, "HitMan2")
    $ProjetIGI = GUICtrlCreateButton("Projet IGI", 10, 175, 150, 20)
    GUICtrlSetOnEvent($ProjetIGI, "ProjetIGI")
    $Scarface = GUICtrlCreateButton("Scarface", 10, 200, 150, 20)
    GUICtrlSetOnEvent($Scarface, "Scarface")
    $FarCry2 = GUICtrlCreateButton("FarCry 2", 10, 225, 150, 20)
    GUICtrlSetOnEvent($FarCry2, "FarCry2")
    $Configuration = GUICtrlCreateButton("Configuration", 200, 50, 150, 20)
    GUICtrlSetOnEvent($Configuration, "Configuration")
    $License = GUICtrlCreateButton("License", 200, 75, 150, 20)
    GUICtrlSetOnEvent($License, "License")
    $QuoiDeNeuf = GUICtrlCreateButton("Quoi de neuf", 200, 100, 150, 20)
    GUICtrlSetOnEvent($QuoiDeNeuf, "QuoiDeNeuf")
    $Credit = GUICtrlCreateButton("À propos de MultiBootIt", 200, 125, 150, 20)
    GUICtrlSetOnEvent($Credit, "Credit")
    $LiveUpdate = GUICtrlCreateButton("Live Update", 200, 150, 150, 20)
    GUICtrlSetOnEvent($LiveUpdate, "LiveUpdate")
    $ExitID = GUICtrlCreateButton("Quitter", 340, 225, 50, 20)
    GUICtrlSetOnEvent($ExitID, "OnExit")

    GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")

    GUISetState()  ; display the GUI

    While 1
        Sleep(1000)
    WEnd
EndFunc   ;==>Choix

;--------------- Functions ---------------
Func Configuration()
    GUICtrlDelete($ExitID)
    Local $NomDesjoueurs, $RepertoireDesSauvegardes
    WinSetTitle ( "MultiBootIt v0.0.0.1 préAlphaGUI", "" , "Configuration de MultiBootIt" )
    ; GUICreate("Configuration de MultiBootIt", 400, 255)
    GUICtrlCreateLabel("Sélectionnez l'option à modifier", 35, 20)
    $NomDesjoueurs = GUICtrlCreateButton("Nom des joueurs", 10, 50, 150, 20)
    GUICtrlSetOnEvent($NomDesjoueurs, "NomDesjoueurs")
    $RepertoireDesSauvegardes = GUICtrlCreateButton("Répertoire des sauvegardes", 10, 75, 150, 20)
    GUICtrlSetOnEvent($RepertoireDesSauvegardes, "RepertoireDesSauvegardes")
    
    $CloseID = GUICtrlCreateButton("Fermer", 340, 125, 50, 20)
    GUICtrlSetOnEvent($CloseID, "Choix")

EndFunc

Func TombRaiderC()
    $GAME = "Tomb Raider Classic"
    COMMUN_1()
EndFunc

Func TombRaiderG()
    $GAME = "Tomb Raider Spéciaux"
    COMMUN_1()
EndFunc

Func MaxPayne1()
    $GAME = "Max Payne 1"
    COMMUN_1()
EndFunc

Func MaxPayne2()
    $GAME = "Max Payne 2"
    COMMUN_1()
EndFunc

Func HitMan2()
    $GAME = "HitMan 2"
    COMMUN_1()
EndFunc

Func ProjetIGI()
    $GAME = "Projet IGI"
    COMMUN_1()
EndFunc

Func Scarface()
    $GAME = "Scarface"
    COMMUN_1()
EndFunc

Func FarCry2()
    $GAME = "FarCry 2"
    COMMUN_1()
EndFunc

Func COMMUN_1()
    MsgBox(0, $GAME , "Non disponible !")
EndFunc

Func License()
    MsgBox(0, "License" , "Non disponible !")
EndFunc

Func QuoiDeNeuf()
    MsgBox(0, "Quoi de Neuf" , "L'historique des modifications n'est pas commencé, m'enfin , c'est normal, je commence tout juste à écrire le programme.")
EndFunc

Func Credit()
    MsgBox(0, "Crédit" , "MultiBootIt 0.0.0.1 préAlpha écrit en language AutoIt.")
EndFunc

Func LiveUpdate()
    MsgBox(0, "LiveUpdate" , "La mise à jour via Internet n'est pas encore disponible !")
EndFunc

Func NomDesjoueurs()
    MsgBox(0, , "Nom des joueurs non disponible !")
EndFunc

Func RepertoireDesSauvegardes()
    MsgBox(0, , "Répertoire des sauvegardes non disponible !")
EndFunc

Func OnExit()
    If @GUI_CtrlId = $ExitID Then
        MsgBox(0, "Fermeture", "Au revoir")
    Else
        MsgBox(0, "Fermeture", "Fermeture forcée !")
    EndIf

    Exit
EndFunc   ;==>OnExit

[BeCool]

Bonjour,

Merci d'éditer le titre de votre post en accord avec les règles de présentation d'un message.
Puis, pouvez-vous, s'il vous plait, aller vous présenter comme tout le monde ICI s'il vous plait ?

[tolf]

Puis, pouvez-vous, s'il vous plait, aller vous présenter comme tout le monde ICI s'il vous plait ?

Il n'est pas obligatoire de se présenter sur le forum.

En revanche, vous devez respecter les règles de présentation si vous ne voulez pas que votre sujet finisse dans la section poubelle ==> éditez donc le titre de ce sujet avec la balise [..].