[R] sortie de boucle et GUI au premier plan

[aulus]

Bonjour,

J'aurais 2 questions :

1. Voyez-vous, dans le code ci-dessous, les raisons pour lesquelles l'arrêt de la boucle ne se produit pas et la fermeture de la fenêtre n'a pas lieu, au clic sur le bouton "Exit" ?

2. Quelle fonction permettrait d'afficher en permanence la GUI au premier plan sur l'écran, quels que soient les autres programmes lancés ?

Je vous remercie.

► Afficher le texte

Code : Tout sélectionner

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

Global $libelleLatin
Global $libelleFrancais
Global $sortie = 0
Global $boutonSortie
Global $Latin[9]
Global $Francais[9]

$Latin[0] = "cogi, is, ere, coegi, coactum"
$Francais[0] = "rassembler"
$Latin[1] = "educo, is, ere, eduxi, eductum"
$Francais[1] = "faire sortir"
$Latin[2] = "volito, as, are, volitavi, atum"
$Francais[2] = "voler"
$Latin[3] = "nato, as, are, navi, natum"
$Francais[3] = "nager"
$Latin[4] = "quiesco, cis, cere, quievi, quietum"
$Francais[4] = "se reposer"
$Latin[5] = "fingo, is, ere, finxi, fictum"
$Francais[5] = "fabriquer"
$Latin[6] = "do, das, dare, dedi, datum"
$Francais[6] = "donner"
$Latin[7] = "immitto, is, ere, immisi, immissum"
$Francais[7] = "envoyer"
$Latin[8] = "detraho, is, ere, traxi, tractum"
$Francais[8] = "retirer"

$Form1 = GUICreate("Lexique",200, 200, 192, 124)
$libelleLatin = GUICtrlCreateLabel("", 20, 20 , 200 , 50)
$libelleFrancais = GUICtrlCreateLabel("", 20, 80 , 200 , 50)
$boutonSortie = GUICtrlCreateButton("Exit", 60, 150, 89, 41)
GUISetState(@SW_SHOW)
Boucler()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $boutonSortie
            $sortie = 1
            Exit
    EndSwitch
WEnd

Func Boucler()
while $sortie = 0
    GUICtrlSetData($libelleLatin,"")
    GUICtrlSetData($libelleFrancais,"")
    Local $hasard = Random(0,8)
    GUICtrlSetData($libelleLatin,$Latin[$hasard])
        Sleep(2000)
        GUICtrlSetData($libelleFrancais,$Francais[$hasard])
        Sleep(2000)
Wend
EndFunc
 

[blacksoul305]

Bonjour,

pour qu'une GUI reste en premier plan, il faut seulement rajouter le style approprié à savoir : $WS_EX_TOPMOST

De cette façon dans votre cas :

Code : Tout sélectionner

$Form1 = GUICreate("Lexique",200, 200, 192, 124,-1,$WS_EX_TOPMOST)

Pour votre sortie de boucle, votre fonction qui est une boucle s'exécute. Et seulement après votre programme vérifie les évènements de votre GUI (un bouton est appuyé, est déplacé etc...). En gros, le programme ne vérifiera rien de votre GUI tant que la boucle ci-dessus n'est pas terminé. C'est pour ça que votre condition $sortie = 0 est toujours vrai, car l'appuie de bouton sortie n'est jamais vérifiée.

Il faut donc que vous essayiez de trouver un moyen de ne pas bloquer la boucle évenementiel de votre GUI.

Bon courage !

[aulus]

Merci pour votre réponse et la résolution du problème 2 : l'affichage au premier plan fonctionne...
Quant au problème 1, je l'ai résolu en passant en mode Evénementiel (Il m'est revenu à la mémoire une ancienne discussion à ce sujet sur ce forum). J'ai supprimé le bouton "Exit" que je n'ai pas su gérer. Voici le résultat :

► Afficher le texte

Code : Tout sélectionner

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

Global $libelleLatin
Global $libelleFrancais
Global $sortie = 0
Global $Latin[9]
Global $Francais[9]

$Latin[0] = "cogi, is, ere, coegi, coactum"
$Francais[0] = "rassembler"
$Latin[1] = "educo, is, ere, eduxi, eductum"
$Francais[1] = "faire sortir"
$Latin[2] = "volito, as, are, volitavi, atum"
$Francais[2] = "voler"
$Latin[3] = "nato, as, are, navi, natum"
$Francais[3] = "nager"
$Latin[4] = "quiesco, cis, cere, quievi, quietum"
$Francais[4] = "se reposer"
$Latin[5] = "fingo, is, ere, finxi, fictum"
$Francais[5] = "fabriquer"
$Latin[6] = "do, das, dare, dedi, datum"
$Francais[6] = "donner"
$Latin[7] = "immitto, is, ere, immisi, immissum"
$Francais[7] = "envoyer"
$Latin[8] = "detraho, is, ere, traxi, tractum"
$Francais[8] = "retirer"

$Form1 = GUICreate("Lexique",200, 200, 192, 124, -1,$WS_EX_TOPMOST)
GuiSetOnEvent(-3, "_Close", $Form1)
$libelleLatin = GUICtrlCreateLabel("", 20, 20 , 200 , 50)
$libelleFrancais = GUICtrlCreateLabel("", 20, 80 , 200 , 50)

GUISetState(@SW_SHOW)

Opt("GUIOnEventMode", 1)  ; Passe en mode événement

Boucler()

Func Boucler()
while $sortie = 0
    GUICtrlSetData($libelleLatin,"")
    GUICtrlSetData($libelleFrancais,"")
    Local $hasard = Random(0,8)
    GUICtrlSetData($libelleLatin,$Latin[$hasard])
        Sleep(2000)
        GUICtrlSetData($libelleFrancais,$Francais[$hasard])
        Sleep(2000)
Wend
EndFunc

Func _Close()
    $sortie = 1
   GuiDelete(@GUI_WinHandle)
EndFunc