Groupe de form

Salut,

Non mais il existe la collection Forms pour ca :

Dim oForm as Object '//Ou as Form
Dim bEnabled as Boolean
bEnabled = False
For Each oForm In Forms
oForm.Enabled = bEnabled
Next

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



groupe de form <anonymous@discussions.microsoft.com> a écrit :

Bonjour à tous,

est il possible de faire un groupe de form
Je veux accéder après de cette façons
For i=0 to 5
form(i)=enabled
next

Merci d'avance

Salut

le seul truc que je connaisse sur les forms indexés c'est
une duplication de form.
...
Private Sub Form_Click()
Dim MesForm(5) As Form1
For n = 1 To 5
Set MesForm(n) = New Form1
MesForm(n).Show
Next n
End Sub
...
Mais comme on peut lister les object je suppose que c'est
valable pour des forms différents aussi, mais la je passe
à léquipe :o)

Pascal

-----Message d'origine-----
Bonjour à tous,

est il possible de faire un groupe de form
Je veux accéder après de cette façons
For i=0 to 5
form(i)=enabled
next

Merci d'avance
.

Salut,

Surtout ne pas oublier de faire le ménage :

Private Sub Form_Click()
Dim MesForm(5) As Form1, n as Integer
For n = 1 To 5
Set MesForm(n) = New Form1
Call MesForm(n).Show
Set MesForm(n) = Nothing
Next n
End Sub

Sinon pourquoi utiliser un tableau en local ? Il sera détruit et on sera
obligé de repasser par la collection Form, donc soit utiliser un tableau
Global contenant les ref :

Dim MesForm(5) As Form1

Private Sub Form_Click()
Dim n as Integer
For n = 1 To 5
Set MesForm(n) = New Form1
Call MesForm(n).Show
Next n
End Sub

'//dans le form_unload :
Dim n as Integer
For n = 1 To 5
Set MesForm(n) = Nothing
Next n

Ou soit faire simplement ca :

Private Sub Form_Click()
Dim oNouvForm As Form1, n as Integer
For n = 1 To 5
Set oNouvForm = New Form1
Call oNouvForm.Show
Set oNouvForm = Nothing
Next n
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



anonymous@discussions.microsoft.com <anonymous@discussions.microsoft.com> a
écrit :

Salut

le seul truc que je connaisse sur les forms indexés c'est
une duplication de form.
...
Private Sub Form_Click()
Dim MesForm(5) As Form1
For n = 1 To 5
Set MesForm(n) = New Form1
MesForm(n).Show
Next n
End Sub
...
Mais comme on peut lister les object je suppose que c'est
valable pour des forms différents aussi, mais la je passe
à léquipe :o)

Pascal

-----Message d'origine-----
Bonjour à tous,

est il possible de faire un groupe de form
Je veux accéder après de cette façons
For i=0 to 5
form(i)=enabled
next

Merci d'avance
.

Hello,

"ng" <ng@babeuk.net> a écrit dans le message de
news:%23Yae0kMPEHA.644@tk2msftngp13.phx.gbl

Surtout ne pas oublier de faire le ménage :

Peut-être aussi unloader les feuilles avant de détruire brutalement l'objet?

Private Sub Form_Click()
Dim MesForm(5) As Form1, n as Integer
For n = 1 To 5
Set MesForm(n) = New Form1
Call MesForm(n).Show
Unload MesForm(n).Show
Set MesForm(n) = Nothing
Next n
End Sub

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net