Compter le nb de form [Résolu]

Signaler
Messages postés
104
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
28 septembre 2006
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Bonjour ,

dans mon code , j'ai :

Dim f As frmPopUp

    Set f = New frmPopUp
    f.Show
   
    Set f = New frmPopUp
    f.Show

Comment connaitre le nombre de form "frmPopUp" ouverte ?

Merci

4 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
Dim nCount as long
Dim F as Form

For Each F in Forms
    If TypeOf F Is frmPopUp
      nCount = nCount +1
    End If
Next F

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
56
Salut,

Dans un Module tu peux mettre une Variable Public

Public NbrForm As Integer

Et dans l'événement Load de FrmPopUp
NbrForm = NbrForm + 1

Mais le seul truc c'est que jhe ne sais pas quand faire le NbrForm = NbrForm -1

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>
Messages postés
104
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
28 septembre 2006

Allez  je suis grand prince , je met reponse acceptée (meme s'il manque le Then !)
Je plaisante.

Merci.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
le genre d'oubli qui arrive, quand on écrit de tête ^^

Renfield
Admin CodeS-SourceS- MVP Visual Basic