Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic verif de form

verif de form

4 réponses
Avatar
seb-seb
bonjour
je voudrais savoir si telle fenetre est chargée genre faire le tour de toute
celle qui le sont et leur demander leur nom
mais for each form in app ca marche pas ;-)
parce qu'en fait j'utilise des dim frmqqch as new frmautchose
merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Zoury
Salut Seb! :O)

Tu parles à l'intérieur de ton programme ou de toutes les fenêtres en
générales?

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
"seb-seb" wrote in message
news:
bonjour
je voudrais savoir si telle fenetre est chargée genre faire le tour de


toute
celle qui le sont et leur demander leur nom
mais for each form in app ca marche pas ;-)
parce qu'en fait j'utilise des dim frmqqch as new frmautchose
merci




Avatar
seb-seb
dans mon programme

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:%
Salut Seb! :O)

Tu parles à l'intérieur de ton programme ou de toutes les fenêtres en
générales?

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
"seb-seb" wrote in message
news:
> bonjour
> je voudrais savoir si telle fenetre est chargée genre faire le tour de
toute
> celle qui le sont et leur demander leur nom
> mais for each form in app ca marche pas ;-)
> parce qu'en fait j'utilise des dim frmqqch as new frmautchose
> merci
>
>




Avatar
Zoury
Salut! :O)

Même avec des frm As frmBlabla ça devrait fonctionner.. fait le test ;O)

Exemple
'***
' Démarre un projet avec 2 formulaires dedans (Form1 et Form2) et un
module...
' Module1
Option Explicit

Private Sub Main()

Dim frm As Form
Dim frm1 As Form1
Dim frm2 As Form1
Dim frm3 As Form2

Set frm1 = New Form1
Set frm2 = New Form1
Set frm3 = New Form2

Call frm1.Show
Call frm2.Show
Call frm3.Show

Debug.Print "Nombre de formulaires : " & Forms.Count
For Each frm In Forms
Debug.Print frm.Name
Call Unload(frm)
Next frm

End Sub
'***

Aussi.. tu as dis dans ton premier message :

parce qu'en fait j'utilise des dim frmqqch as new frmautchose



Je te conseilles d'éviter la syntaxe [Dim ... As New ...] :
http://groups.google.com/groups?threadm=OVm4JcG1CHA.452%40TK2MSFTNGP11.phx.gbl

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
"seb-seb" wrote in message
news:%23Z$$
dans mon programme

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:%
> Salut Seb! :O)
>
> Tu parles à l'intérieur de ton programme ou de toutes les fenêtres en
> générales?
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
> Merci de poster les réponses au groupe afin d'en faire profiter à tous
> "seb-seb" wrote in message
> news:
> > bonjour
> > je voudrais savoir si telle fenetre est chargée genre faire le tour de
> toute
> > celle qui le sont et leur demander leur nom
> > mais for each form in app ca marche pas ;-)
> > parce qu'en fait j'utilise des dim frmqqch as new frmautchose
> > merci
> >
> >
>
>




Avatar
seb-seb
en fait c'est le forms que je ne connaissais pas
c surpuissant merci
moi je voulais justement faire un for each mais je savais comment lui dire
que les forms
je tenterais ca demain
a+

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:%23%
Salut! :O)

Même avec des frm As frmBlabla ça devrait fonctionner.. fait le test ;O)

Exemple
'***
' Démarre un projet avec 2 formulaires dedans (Form1 et Form2) et un
module...
' Module1
Option Explicit

Private Sub Main()

Dim frm As Form
Dim frm1 As Form1
Dim frm2 As Form1
Dim frm3 As Form2

Set frm1 = New Form1
Set frm2 = New Form1
Set frm3 = New Form2

Call frm1.Show
Call frm2.Show
Call frm3.Show

Debug.Print "Nombre de formulaires : " & Forms.Count
For Each frm In Forms
Debug.Print frm.Name
Call Unload(frm)
Next frm

End Sub
'***

Aussi.. tu as dis dans ton premier message :

> parce qu'en fait j'utilise des dim frmqqch as new frmautchose

Je te conseilles d'éviter la syntaxe [Dim ... As New ...] :



http://groups.google.com/groups?threadm=OVm4JcG1CHA.452%40TK2MSFTNGP11.phx.gbl

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
"seb-seb" wrote in message
news:%23Z$$
> dans mon programme
>
> "Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
> news:%
> > Salut Seb! :O)
> >
> > Tu parles à l'intérieur de ton programme ou de toutes les fenêtres en
> > générales?
> >
> > --
> > Cordialement
> > Yanick Lefebvre - MVP pour Visual Basic
> > http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> > http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> >
> > Merci de poster les réponses au groupe afin d'en faire profiter à tous
> > "seb-seb" wrote in message
> > news:
> > > bonjour
> > > je voudrais savoir si telle fenetre est chargée genre faire le tour


de
> > toute
> > > celle qui le sont et leur demander leur nom
> > > mais for each form in app ca marche pas ;-)
> > > parce qu'en fait j'utilise des dim frmqqch as new


frmautchose
> > > merci
> > >
> > >
> >
> >
>
>