[VB .NET ] Empêcher a une fenêtre de s'ouvrir plusieurs fois

j'ai une fenetre principale dans laquelle j'ai un bouton qui ouvre un second formulaire.
Je voudrai que lorsque le second formulaire est déjà ouvert, ca ne m'ouvre pas un autre
Comment faire ???


Master

Salut,

tu peux mettre la propriété enabled de ton boutton à False, comme ça plus de problèmes.

@+

En fait, c pas tout a fait un bouton. c'est des composant dynamiques (Panel)
y'en a plusieurs.
En cliquant sur l'un d'eux, j'ouvre une fenetre qui ne doit pas etre une fenetre Modale car l'utilisateur
doit encore agir sur la fenetre principale.
Mais s'il clique sur un autre Panel, ca ouvre une autre fenetre et c ca le probleme.

si ya déjà une fenetre qui est ouverte ca ne doit pas en ouvrir une autre

j'espere que je suis clair ???
comment fairr ?
est ce qui pas moyen de savoir combien d'instance d'un objet ya til ??

Master

et si tu rends tous ces composants "disabled"?

désolé. c'est pas possible. ce sont des composants dynamiques et déplacable par l'utilisateur, faut qu'ils restent donc actifs


Master

alors tu places un flag que tu mets à true quand tu ouvrees une fenêtre. Ensuite dans ton évènement click, tu testes si ce flag est à true, sinon, tu ouvres ta fenêtre.

@+

ok c une solution
mais ya til un moyen de savoir combien d'instance d'un objet (fenetre) existe ?

Master

à part incrémenter un compteur à chaque fois que tu crées une instance, je ne vois pas. Peut-être que c'est possible mais je ne connaît pas. Si c'est le cas, ça pourrait m'intéresser aussi.

@+

ok si je trouve la solution, je te mail et vice-versa 

Master

Bonjour.
 J'emploie l'astuce suivante :
On dit que Form1 est le form principal et Info le form détenu non modal.
Dans la déclaration de form1, je note :
Dim InfoEnCours As Form
Dim Info1 As New Info

Je crée dans form1 la proc suivante :
Sub RappelInfo()
'*** Déclaration et création une nouvelle instance d'objet formulaire "Info"
Dim Info1 As New Info
'*** Ajoute ce form comme détenu au form principal.
Me.AddOwnedForm(Info1)
' Là, c'est l'astuce : on crée une sorte de double de Info1
InfoEnCours = Info1
End Sub

Dans les panel_click j'entre :
Private Sub Panel2_Click(ByVal sender As Object, _
 ByVal e As System.EventArgs)  Handles Panel2.Click
If Info1.Visible = False Then
RappelInfo()
'*** Affiche le double du formulaire (en non modal).
InfoEnCours.Show()
'*** On assigne InfoEnCours à Info1 pour que les évenements Info
'*** soit pris en compte par ce form non modal
Info1 = InfoEnCours
End If
End Sub
Bonne prog.