Fenetre MdiRésolu

Question

Bonjour
je voudrai savoir comment empêcher l'ouverture de plus de X fenêtres mdi.
J'utilise une form Mdi Parent en feuille principale et les autres feuilles de mon application en mdi filles. Les feuiles sont toutes différentes.

merci

Celui qui ajoute de nouvelles connaissances aux anciennes est le véritable professeur.(Confucius)

cs_cybercorp · Accepted Answer

voici une solution



Private






Function
 Compteur()


Dim
 Form 

As
 Form


Dim
 Cmp 

As



Integer
 = 0


For



Each
 Form 

In



Me
.MdiChildren
  Cmp += 1


Next

If
 Cmp > 4 

Then

  MessageBox.Show(

"5 fenêtres maximum autorisées en ouverture"
, 

"My App"
, MessageBoxButtons.OK)


End



If

Return
 Cmp


End



Functionlors de l'ouverture de la feuille:


If
 Compteur() > 4 

Then



Exit



Sub

Celui qui ajoute de nouvelles connaissances aux anciennes est le véritable professeur.(Confucius)

passylmat · Answer

Ben tu pourrais faire un compteur de feuille. Par exemple:

Dim NbFeuilles as Integer

Public Sub NouvelleFeuille()

if NbFeuilles >20 then exit sub

'là tu charge ta feuille

End SUb

En espérant avoir résolut ton problème, cordialement.

Fenetre Mdi

2 réponses

Votre réponse

Discussions similaires