Compter le nb de form

Résolu

Zylott

Messages postés: 104
Date d'inscription: jeudi 25 juillet 2002
Statut: Membre
Dernière intervention: 28 septembre 2006

- 7 juil. 2006 à 11:31
Renfield

Messages postés: 17287
Date d'inscription: mercredi 2 janvier 2002
Statut: Modérateur
Dernière intervention: 27 septembre 2021

- 7 juil. 2006 à 12:03

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

A voir également:

Nb net
N nb nb n b vb v b - Meilleures réponses
Vb nb - Meilleures réponses
Enregistrer une image dans une base sql server et afficher avec nb.net ✓ - Forum - VB.NET
Visual Basic / VB.NET : Détecter des le nb de mail ds une boite mail - CodeS SourceS - Guide
Visual Basic / VB.NET : Yahtzee avec nb de joueur presque illimite - CodeS SourceS - Guide
Visual Basic / VB.NET : Avi info : taille , resolution , durée , fps , nb piste ,nb frames) - - Guide
C / C++ / C++.NET : Factorisation d'un nb composé en 2 premiers (par attack en force brute) - Guide

4 réponses

Réponse 1 / 4

Renfield

Messages postés: 17287
Date d'inscription: mercredi 2 janvier 2002
Statut: Modérateur
Dernière intervention: 27 septembre 2021

71
7 juil. 2006 à 11:44

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

Réponse 2 / 4

jrivet

Messages postés: 7393
Date d'inscription: mercredi 23 avril 2003
Statut: Membre
Dernière intervention: 6 avril 2012

59
7 juil. 2006 à 11:36

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>

Réponse 3 / 4

Zylott

Messages postés: 104
Date d'inscription: jeudi 25 juillet 2002
Statut: Membre
Dernière intervention: 28 septembre 2006

7 juil. 2006 à 11:54

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

Merci.

Réponse 4 / 4

Renfield

Messages postés: 17287
Date d'inscription: mercredi 2 janvier 2002
Statut: Modérateur
Dernière intervention: 27 septembre 2021

71
7 juil. 2006 à 12:03

le genre d'oubli qui arrive, quand on écrit de tête ^^

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Votre réponse