Discussion :

[cotmar]

Bonjour,

Ma question est double en fait.
La première partie de ma questions est la suivante : à l'ouverture d'un application, je voudrais empêcher que l'utilisateur puisse ouvrir plusieurs fois la même fenêtre à 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être est encore ouverte.

Par avance je vous remercie.

Marco.

[jmfmarques]

Question : Que sont ces "fenêtres" ?
D'autres applications que tu ouvres ou de simples "Forms" appartenant à ton application ?
La réponse dépend de cette précision !

[cotmar]

Bonjour jmmarques et merci de ta prompte réponse,

En fait il s'agit bien de form en VB6.

J'ai essayé de les instancier de la manière suivante. Mais j'ai quelques soucis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
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 non pas le nombre d'instances de ma fenêtre mais bien le nombre d'objets qu'elle contient (il me donne 31 à chaque fois).

Ensuite il existe peut être une méthode plus simple. J'avais pensé à celle ci car je suis prestataire et ici il veulent plutôt du "tout objet".

A bientôt.

Marco.

[jmfmarques]

Bonjour,
Pourquoi ne pas tout simplement "jouer" avec la collection Forms ?
Son utilisation, dans ce cas, me parait tout-à-fait adaptée

[ThierryAIM]

ou une collection de frmGestOpe qui sera limitée à un élément

[cotmar]

Merci à tous les deux,

Qu'entends tu par "jouer" ?

Par ailleur que diriez vous pour la deuxième partie de ma question ? Pour le fait de ne pas pouvoir fermer l'application tant que une "sous fenêtre" est encore active (je ne suis pas dans un cas de projet avec des fenêtres MDI).

Par avance merci.

Marco.

[ThierryAIM]

Par ailleur que diriez vous pour la deuxième partie de ma question ? Pour le fait de ne pas pouvoir fermer l'application tant que une "sous fenêtre" est encore active (je ne suis pas dans un cas de projet avec des fenêtres MDI).

A gérer dans l'evenement Form_QueryUnload de ta Form principale

[cotmar]

Merci les amis, Ca fonctionne.
A bientôt pour d'autres aventures.