Dupplication de formRésolu

Question

Salut tout le monde,

j'ai un petit soucis pour comprendre comment &#231;a marche la dupplication de form :
Voici mon code :

Private Sub LoadNewForm()
Dim frmNewForm As New frmAdminBDD ' frmAdminBDD => form
   Load frmNewForm
   frmNewForm.Show
End Sub

Avec &#231;a j'arrive &#224; duppliquer ma form mais je n'arrive pas &#224; disinguer 2 frmAdminBDD dans mon code.
Par exemple si je veux d&#233;charger une de mes form, je n'arrive pas &#224; lui sp&#233;cifie laquelle... Comment faire ?
Si quelquun &#224; une solution,chui preneur.
Merci d'avance.

 Fiko ;-)

crenaud76 · Accepted Answer

Tu pourras les distinguer via leur propriété Tag par exemple : Cette propriété sert à ... ceux que tu veux. Tu peux y mettre la valeur que tu veux : Un compteur sur le N° de form par exemple, via une petite variable statique.
Ca donnerais ca :

Private Sub LoadNewForm()
Dim frmNewForm As New frmAdminBDD 
Static frmTag as long

   Load frmNewForm
   frmNewForm.Show
   frmTag = frmTag + 1
   frmNewForm = frmTag
End Sub

Et pour décharger la n ième form, un truc du genre ...
sub UnloadForm(n as long)
Dim F As Form

for Each F in Forms
  If F.Tag = n Then
     Unload F
     Exit Sub
  End If
Next
End Sub

fiko81 · Answer

Super merci. Il me manquait en fait le : for Each F in Forms

 Fiko ;-)

Dupplication de form

2 réponses

Discussions similaires