AutoIt Français

Bonjour à tous
Tout est dans le titre : je cherche à changer le nom d'une fenêtre en fonction de la valeur d'une variable.
C'est à dire que j'ai le nom normal (Localisation des balises) et le nom si une "procédure" est ouverte ("Localisation des balises [$procedure]" avec $procedure=nom de la procédure ouverte).

► Afficher le texte

Code : Tout sélectionner

#region Global vars
Global $service = "nom du service"
Global $procedure
Global $iniloc = @ScriptDir & "\data\db.ini"
Global $newproc = @YEAR & "/" & @MON & @MDAY & @MIN
Global $mainguititle = $service & " - Localisation des balises"
#endregion Global vars

maingui()
#region ### START Koda GUI section ###############################################################################################################
Func maingui()
    Global $maingui = GUICreate($mainguititle, 1059, 684, 172, 99)
    GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close") ; Call a common GUI close function
    GUISetState()
    Global $filemenu = GUICtrlCreateMenu("&Fichier")
    Global $fmnew = GUICtrlCreateMenuItem("Nouvelle procédure", $filemenu)
    Global $fmopen = GUICtrlCreateMenuItem("Ouvrir procédure", $filemenu)
    Global $fmsave = GUICtrlCreateMenuItem("Enregistrer", $filemenu)
    Global $fmexport = GUICtrlCreateMenu("Exportation", $filemenu)
    Global $fmekml = GUICtrlCreateMenuItem("Google Earth (.kml)", $fmexport)
    Global $fmeodf = GUICtrlCreateMenuItem("Tableau OpenOffice (.odf)", $fmexport)
    Global $fmexls = GUICtrlCreateMenuItem("Tableau Excel (.xls)", $fmexport)
    Global $fmetxt = GUICtrlCreateMenuItem("Fichier texte (.txt)", $fmexport)
    Global $fmecsv = GUICtrlCreateMenuItem("Fichier CSV (.csv)", $fmexport)
    Global $fmquit = GUICtrlCreateMenuItem("Quitter", $filemenu)
    Global $balisemenu = GUICtrlCreateMenu("&Balise")
    Global $bmloc = GUICtrlCreateMenuItem("Localiser", $balisemenu)
    Global $bmtrack = GUICtrlCreateMenuItem("Commencer le tracking", $balisemenu)
    Global $bmadd = GUICtrlCreateMenuItem("Ajouter balise", $balisemenu)
    Global $bmparam = GUICtrlCreateMenuItem("Réglages de la balise", $balisemenu)
    Global $helpmenu = GUICtrlCreateMenu("&Aide")
    Global $hmhelp = GUICtrlCreateMenuItem("Aide", $helpmenu)
    Global $hmabout = GUICtrlCreateMenuItem("À propos", $helpmenu)
    Global $pauuuuuuuuuuuuuuuuuuuuuuuuuuuuuu = GUICtrlCreatePic("", 376, 104, 680, 540)
    Global $statusbar = _GUICtrlStatusBar_Create($maingui)
    Global $telemetrie = GUICtrlCreateGroup("Etat de la balise/Télémétrie", 0, 0, 1057, 105)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Global $histo = GUICtrlCreateGroup("Historique", 0, 456, 377, 185)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Global $Group3 = GUICtrlCreateGroup("Localisation", 0, 104, 377, 353)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Global $maingui_AccelTable[5][2] = [["^n", $fmnew],["^o", $fmopen],["^s", $fmsave],["!{F4}", $fmquit],["{F1}", $hmhelp]]
    GUISetAccelerators($maingui_AccelTable)
    Global $setproc = GUICtrlCreateButton("setproc", 10, 60, 80, 30)
    GUICtrlSetOnEvent(-1, "setproc")
EndFunc   ;==>maingui
#endregion ### END Koda GUI section ###############################################################################################################

While 1
    If $procedure="" Then
        $mainguititle = $service & " - Localisation des balises"
    Else
        $mainguititle = $service & " - Localisation des balises [" & $procedure & "]"
    EndIf
WEnd

If Not FileExists($iniloc) Then
    _FileCreate($iniloc)
EndIf

Func setproc()
    $procedure="Ma procédure"
EndFunc

Func On_Close()
    Switch @GUI_WinHandle
        Case $maingui
            Exit
    EndSwitch
EndFunc   ;==>On_Close

La fonction setproc() est actuellement appelée par un bouton ($setproc) mais dans le futur, ce bouton et cette fonction disparaîtront : la variable $procedure sera remplie par la fonction d'ouverture.

Le problème étant très simple : ça ne marche pas ! Le titre de la fenêtre ne change pas

Merci d'avance !!

Essaye WinSetTitle()

Merci, c'est mieux, puisque maintenant des crochets vides sont rajoutés à la fin du titre.
Voici ce que j'ai fait :

► Afficher le texte

Code : Tout sélectionner

#region Global vars
Global $service = "nom du service"
Global $procedure
Global $iniloc = @ScriptDir & "\data\db.ini"
Global $newproc = @YEAR & "/" & @MON & @MDAY & @MIN
Global $mgt = $service & " - Localisation des balises"
Global $mgtnew = $service & " - Localisation des balises [" & $procedure & "]"
#endregion Global vars

maingui()
#region ### START Koda GUI section ###############################################################################################################
Func maingui()
    Global $maingui = GUICreate($mgt, 1059, 684, 172, 99)
    GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close") ; Call a common GUI close function
    GUISetState()
    Global $filemenu = GUICtrlCreateMenu("&Fichier")
    Global $fmnew = GUICtrlCreateMenuItem("Nouvelle procédure", $filemenu)
    Global $fmopen = GUICtrlCreateMenuItem("Ouvrir procédure", $filemenu)
    Global $fmsave = GUICtrlCreateMenuItem("Enregistrer", $filemenu)
    Global $fmexport = GUICtrlCreateMenu("Exportation", $filemenu)
    Global $fmekml = GUICtrlCreateMenuItem("Google Earth (.kml)", $fmexport)
    Global $fmeodf = GUICtrlCreateMenuItem("Tableau OpenOffice (.odf)", $fmexport)
    Global $fmexls = GUICtrlCreateMenuItem("Tableau Excel (.xls)", $fmexport)
    Global $fmetxt = GUICtrlCreateMenuItem("Fichier texte (.txt)", $fmexport)
    Global $fmecsv = GUICtrlCreateMenuItem("Fichier CSV (.csv)", $fmexport)
    Global $fmquit = GUICtrlCreateMenuItem("Quitter", $filemenu)
    Global $balisemenu = GUICtrlCreateMenu("&Balise")
    Global $bmloc = GUICtrlCreateMenuItem("Localiser", $balisemenu)
    Global $bmtrack = GUICtrlCreateMenuItem("Commencer le tracking", $balisemenu)
    Global $bmadd = GUICtrlCreateMenuItem("Ajouter balise", $balisemenu)
    Global $bmparam = GUICtrlCreateMenuItem("Réglages de la balise", $balisemenu)
    Global $helpmenu = GUICtrlCreateMenu("&Aide")
    Global $hmhelp = GUICtrlCreateMenuItem("Aide", $helpmenu)
    Global $hmabout = GUICtrlCreateMenuItem("À propos", $helpmenu)
    Global $pauuuuuuuuuuuuuuuuuuuuuuuuuuuuuu = GUICtrlCreatePic("", 376, 104, 680, 540)
    Global $statusbar = _GUICtrlStatusBar_Create($maingui)
    Global $telemetrie = GUICtrlCreateGroup("Etat de la balise/Télémétrie", 0, 0, 1057, 105)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Global $histo = GUICtrlCreateGroup("Historique", 0, 456, 377, 185)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Global $Group3 = GUICtrlCreateGroup("Localisation", 0, 104, 377, 353)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Global $maingui_AccelTable[5][2] = [["^n", $fmnew],["^o", $fmopen],["^s", $fmsave],["!{F4}", $fmquit],["{F1}", $hmhelp]]
    GUISetAccelerators($maingui_AccelTable)
    Global $setproc = GUICtrlCreateButton("setproc", 10, 60, 80, 30)
    GUICtrlSetOnEvent(-1, "setproc")
EndFunc   ;==>maingui
#endregion ### END Koda GUI section ###############################################################################################################

While 1
    If Not $procedure="" Then
        WinSetTitle($mgt, "", $mgtnew)
    EndIf
WEnd

If Not FileExists($iniloc) Then
    _FileCreate($iniloc)
EndIf

Func setproc()
    $procedure="Ma procédure"
EndFunc

Func On_Close()
    Switch @GUI_WinHandle
        Case $maingui
            Exit
    EndSwitch
EndFunc   ;==>On_Close

J'ai adapté partout avec $mgt à la place de $mainguititle, et rajouté $mgtnew comme nom actualisé de la fenêtre. Mais ça marche pas

Où me suis-je planté ?

Code : Tout sélectionner

Global $maingui = GUICreate($mgt, 1059, 684, 172, 99)

WinSetTitle($mgt, "", $mgtnew)

Rien ne te choque? essaye

Code : Tout sélectionner

WinSetTitle($maingui, "", $mgtnew)

Après aussi un petit conseil ce n'est pas universel mais lorsque tu as des noms de fonctions/variable qui sont en 2mots met la 1ere lettre du second mot (ou plus) en majuscule c'est beaucoup plus lisible

Quand tu actualises une variable, si tu le dis pas à ton script il peut pas le savoir => (1)
Le nouveau titre c'est pour la gui => (2)

Code : Tout sélectionner

While 1
    If $procedure <> "" Then
        $mgtnew = $service & " - Localisation des balises [" & $procedure & "]"  ; (1)
        WinSetTitle($maingui, "", $mgtnew)  ; (2)
    EndIf
WEnd

Merci beaucoup, ça marche !
Malheureusement, dès que le nom change, le programme arrête de réagir : impossible de bouger la fenêtre, au survol les contrôles (fermer/réduire/agrandir) ne se mettent plus en surbrillance, le clic droit sur le tray AutoIT ne provoque rien, un clic sur le menu démarrer non plus - bref c'est l'explorer qui devient tout mou...

Pour fermer, il faut cliquer sur la croix puis attendre plusieurs secondes, et dès que le script est terminé tout revient dans la normale !

C'est bizarre non ?

PS : Voici le code complet :

► Afficher le texte

J'ai tout prévu pour avoir plusieurs GUIs à la fois (GUI dans une fonction, de quoi vérifier quelle GUI a envoyer le message de fermeture), c'est peut-être le problème ?

Hmm ça sent fort la transpiration de processeur
Tu devrais essayer de ne faire travailler que quand c'est réellement nécessaire, par exemple

Code : Tout sélectionner

While 1
  Sleep(10)
WEnd
...
Func setproc()
  $procedure="Essai"
  $mgtnew = $service & " - Localisation des balises [" & $procedure & "]" 
  WinSetTitle($maingui, "", $mgtnew) 
EndFunc

En remplissant les boucles infinies le moins possible pour ne pas coincer le script

Yep, merci beaucoup ça tourne mieux !

Toujours aussi réactifs !

AutoIt Français

[R] Changer nom de fenêtre en fonction d'une variable

[R] Changer nom de fenêtre en fonction d'une variable

Re: [..] Changer nom de fenêtre en fonction d'une variable

Re: [..] Changer nom de fenêtre en fonction d'une variable

Re: [..] Changer nom de fenêtre en fonction d'une variable

Re: [..] Changer nom de fenêtre en fonction d'une variable

Re: [..] Changer nom de fenêtre en fonction d'une variable

Re: [..] Changer nom de fenêtre en fonction d'une variable

Re: [..] Changer nom de fenêtre en fonction d'une variable