Empêcher une fenêtre de s'ouvrir plusieurs fois en VB6 ?Résolu

Question

Bonjour, 

Ma question est double en fait. Il s'agit ici de VB6.

La premi&#232;re partie de ma questions est la suivante : &#224; l'ouverture d'un application, je voudrais emp&#234;cher que l'utilisateur puisse ouvrir plusieurs fois la m&#234;me fen&#234;tre &#224; partir du menu. 

La seconde partie de ma question concerne la fermetue : je voudrais qu'il ne soit pas possible de fermer l'application si jamais une des fen&#234;tre est encore ouverte. 

Par avance je vous remercie. 

Marco.

Cotmar

cs_cotmar · Accepted Answer

Bonjour,

En fait j'ai presque honte de moi. Mais la solution que je viens de trouver est la plus simple qui soit : je fais un Load de ma form. Cel&#224; &#233;tait d&#251; aussi &#224; une mauvaise compr&#233;hension de ma part par rapport &#224; la demande initiale du client. Je pense aussi que j'ai peut &#234;tre cherch&#233; quelquechose de trops compliqu&#233; au d&#233;part. Mea culpa donc.

Sinon, j'ai bien test&#233; ce que vous m'avez donn&#233; comme id&#233;es et c'est vrai que c'est tr&#232;s int&#233;ressant. Je pense que &#231;a va quand m&#234;me bien me servir pour une prochaine fois. En imaginant par exemple que l'on doive limiter le nombre d'apparitions d'une fen&#234;tre... Par exemple.


La seconde partie du probl&#232;me m'a &#233;t&#233; donn&#233;e par un coll&#232;gue de travail :


'D&#233;claration au niveau global &#224; la fen&#234;tre d'un bool&#233;en
Private blnNotFin As Boolean

'Dans les proc&#233;dures...
Private Sub Form_Unload(Cancel As Integer)
    If Forms.Count = 1 Then
        Cancel = blnNotFin
        If Not blnNotFin Then
            'Liste d'actions &#224; faire avant de quitter...
        End If
    Else
        Cancel = True
    End If


End Sub


Qu'en pensez vous ?

Cotmar

jannoman · Answer

tu te fais une variable globale bool&#233;enne par fenetre que tu as
isopenform1 = false initialement
au menu :
if not isopenform1 then
isopenform1 = true
load form1
form1.show
end if

et &#224; form1_queryunload :
isopenform1 = false

idem avec les autres fenetres. place tes variables bool&#233;ennes globales dans un module

. A+. Thomas.

cs_cotmar · Answer

Bonjour,

Merci, je vais essayer cette solution.
Voici ce que j'avais commenc&#233; &#224; faire de mon c&#244;t&#233; en attendant.

Private Sub CmdGestionDesOperations_Click()
'Option 2
    Dim MyGestOpe As frmGestOpe
    Set MyGestOpe = New frmGestOpe
    If MyGestOpe.Count = 0 Then
        MyGestOpe.Show
    End If
End Sub

Apparemment le count renvoie le nombre de contr&#244;le contenus dans la fen&#234;tre. 

Comment obtenir le nombre d'instances de la fen&#234;tre ?

Cotmar

cs_ketchoupi · Answer

Salut,

Pour ton probl&#232;me tu as 2 solutions :

1.Mettre tes fen&#234;tres en modal ( cad que tu ne peut pas acc&#233;der aux autres fenetres temps que n'a pas fermer celle ci)

2. Faire un module avec un compteur 
      exemple :
            dans le moduleFenetre
                  public compteurForm as integer

         a chaque fois que tu ouvre une fenetre tu incremente le compteur de 1 et a chaque fois que tu ferme une fenetre -1

   Comme ca tu fait un controle  tant que compteurform <>0 tu interdiit le close de ton application

Ketchoupi

cs_cotmar · Answer

Merci je viens de trouver une solution.
A tr&#232;s bient&#244;t.

Cotmar

crenaud76 · Answer

Il serait de bon ton de donner cette solution, qu'elle serve à d'autre .. et eventuellement qu'on la commente ...

CR

cs_cotmar · Answer

Bonjour,

Je reviens apr&#232;s pas mal de temps sur ce sujet.

P&#235;rsonne n'a trouv&#233; &#224; le commenter ou &#224; faire des observatiuons dessus ?

A bient&#244;t.

Cotmar

Empêcher une fenêtre de s'ouvrir plusieurs fois en VB6 ?

7 réponses

Discussions similaires