Gambas France BETA


Pas de compte ? Incription

Fermer toutes les fenetres d'un projet

Ce sujet est résolu.

1
AuteurMessages
spheris#1 Posté le 2/12/2020 à 07:09:41
Bonjour,
Existe t il un moyen simple de fermer toutes les forms d'un projet sans être obligé de faire :

Form1.close
Form2.close
myform.close, Etc....

Merci pour votre réponse.
;)
vuott#2 Posté le 2/12/2020 à 10:48:34
Ne cedere ineluctabili possimus1) Voulez -vous détruire les fenêtres secondaires et conserver uniquement le Form principal (FMain) du projet ?


2) Dans ce cas, chacune de ces fenêtres (Form) a-t-elle reçu un nom spécifique pour sa propriété ".Caption" ?
« Vita non suavis esse potest, nec Mors amara. »
spheris#3 Posté le 2/12/2020 à 23:01:41
1) Oui.
2) Caption est dans 'Visual basic', tu veux peut être dire la propriété Name.
Les noms sont bien différents dans la propriété NAME.
;)
vuott#4 Posté le 2/12/2020 à 23:53:50
Ne cedere ineluctabili possimusJe voulais utiliser le mot "titre", mais j'ai utilisé le mot inapproprié "nom".
Je me suis posé des questions à ce sujet:
https://gambaswiki.org/wiki/comp/gb.qt4/window/caption

Cependant, si le "nom-visible" (id est: titre) des fenêtres est le même, je propose ce code possible (le Composant gb.desktop doit être activé):
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PUBLIC SUB Form_Open()

Form1.Show

Form2.Show

Form3.Show

END

PUBLIC SUB Button1_Click()

DIM dw AS DesktopWindow

FOR EACH dw IN Desktop.Windows
IF (dw.Id <> FMain.Id) AND (dw.VisibleName == FMain.Caption) THEN dw.Close
NEXT

END
« Vita non suavis esse potest, nec Mors amara. »
spheris#5 Posté le 29/12/2020 à 09:44:25
Merci sujet résolu.
1