Fermer des forms portant le même nom.Résolu

Question

Re :) le problème est en fait trés simple, enfin je pense lol. Voila en cherchant un moyen d'ouvrir plusieur fois le même form j'ai trouvé la source 30625 qui m'a appris comment ouvrir un meme form plusieur fois. Le code mar trés bien le voici dailleur:

'=================================================================
'=================================================================
'à mettre dans un formulaire se nommant ButtonForm avec dedans un CommandButton
'=================================================================
'=================================================================
PrivateSub CmdOk_Click()
Unload Me 'décharge le formulaire lorsque l'on clique sur OK
EndSub
'=================================================================
'=================================================================
'à mettre dans un formulaire se nommant ButtonGen avec dedans deux CommandButtons
'=================================================================
'=================================================================
PrivateFunction CréerDesForm() 'fonction qui permet d'afficher le même formulaire plusieurs fois
Dim NewForm As ButtonForm 'Défini la variable NewFrom comme le formulaire ButtonFrom
Set NewForm = New ButtonForm 'attribue à la variable NewForm un nouveau formulaire ButtonForm
NewForm.Show'Montre le formulaire créé
EndFunction
PrivateSub CmdNo_Click()
End'si on clique sur non quit le programme
EndSub
PrivateSub CmdYes_Click() 'sub s'éxécutant lorsque l'on clique sur oui
x 50 'x nombre de formulaire (alias boutons) à afficher
While x <> 0 'tant que x est différent de 0 éxécute le code entre While et Wend
x = x - 1 'enlève une unité à x
CréerDesForm 'éxécute la fonction qui permet d'afficher le même formulaire plusieurs fois
Wend
EndSub

Bien entendu je vais le modifier pour qu'il soit utile dans mon programme, mais je voudrai mettre un boutton pour fermer tous les formulaire d'un coup. j'ai essayer NewForm.hide sans résultat ainsi que ButtonForm.hide sans aucun résulat, j'ai aussi essayer unload ButtonForm et unload NewForm. Y a t'il un moyen pour fermer ou décherger toutes les form d'un coup? Ou bien est ce que je doit faire un enumwindow et fermé d'est que la fenetre contient le nom recherché? Merci et bonne nuit je vais me couché :)

cs_DARKSIDIOUS · Accepted Answer

Il te faut parcourir ta collection de fenêtre, par exemple :

For each oForm in Forms

    if oForm.Name = "toto" then

        Call Unload(oForm)
    
    end if

end if

Utilise Unload et non Hide pour décharger la feuille de la mémoire et non uniquement la masquer à l'écran ! Sinon fuite de mémoire !

lolpop · Answer

Merci beaucoup je vais testé, par contre juste une petite erreur tu a mis end if a la place de next.

cs_DARKSIDIOUS · Answer

Oui exact, à corriger donc ;)

Fermer des forms portant le même nom.

3 réponses

Votre réponse

Discussions similaires