Ajouter des controls

Bonjour, j'aimerais  ajouter dynamiquement des controls dans un fichier ascx.

Voilà comment je procède, mais cela ne m'affiche que le dernier.

'Pour chaque person présente
For i AsInteger = 0 To person.Length - 1
   'Récupere le nom & prenom
   Dim name() AsString = Split(person(i), " ")
   'Procedure stockée qui me retourne le n° d'une personne
   Dim homeNoCommand AsNew OleDbCommand("AAA_getNumber " & name(0) & ", " & name(1) & ", " & type, Conn)
  
   Conn.Open()
   Dim number AsString = homeNoCommand.ExecuteScalar
   Conn.Close()
   
   'personPanel est un panel avec 3 control (les 3 en-dessous)
   Dim myPane As Panel = personPanel
   'Affectation des différentes valeurs
   CType(myPane.FindControl("fNameVal"), Label).Text = name(0)
   CType(myPane.FindControl("lNameVal"), Label).Text = name(1)
   CType(myPane.FindControl("phoneNo"), Label).Text = number

   'Ajoute le panel dans le plus grand panel
   phonePanel.Controls.Add(myPane)
Next

Mais voilà, comme dit plus haut, seule la dernière personne apparait.

Merci d'avance, et bon après-midi

 ElpenS

Salut,
Le problème dans ton code est qu'en réalité tu crées pas de "personPanel" à chaque iteration, tu crées juste une variable "myPane" qui pointe vers le "persoPanel" d'origine !

Si "personPanel" est un Panel que tu as ajouté à ta page, tu vas plutôt l'enlever et d'abord créer un custom control, qui va hériter de Panel, et qui va lui-même contenir trois labels, et qui lui va s'appeller PersonPanel.

Et ensuite tu fais :

Dim myPane As New PersonPanel() 
'Affectation des différentes valeurs
   CType(myPane.FindControl("fNameVal"), Label).Text = name(0)
   CType(myPane.FindControl("lNameVal"), Label).Text = name(1)
   CType(myPane.FindControl("phoneNo"), Label).Text = number

A++

---

Nurgle (Antoine)

Je suis désolé, mais je n'ai pas réussi...

J'ai créer un control ascx (personPane) que j'ai registré dans PhonePane comme ceci :

<%

@RegisterSrc="personPane.ascx"TagName="persoPane"TagPrefix="ucPerson" %>

Ensuite, j'ai fait :

Dim myPane As New PersonPanel() 
'Affectation des différentes valeurs
   CType(myPane.FindControl("fNameVal"), Label).Text = name(0)
   CType(myPane.FindControl("lNameVal"), Label).Text = name(1)
   CType(myPane.FindControl("phoneNo"), Label).Text = number

Mais j'obtient l'erreur :  Object reference not set to an instance of an object.

Et si je test myPane.fNameVal = name(0) l'erreur est : myPane.fNameVal is not accessible in this context because it is 'Protected

Merci pour ton aide

 ElpenS

Eh bien, utilises des propriétés, dans ton PersonPanel :

Public Property FirstName As String
   Set(value As String)
      Me.fNameVal.Text = value
   End Set
   Get
      Return Me.fNameVal.Text
   End Get
End Property

Et tu fais pareil pour LastName et PhoneNumber, et comme ça tu n'as plus qu'à faire :

myPane.FirstName = name(0)
myPane.LastName = name(1)
myPane.PhoneNumber = number

A++

---

Nurgle (Antoine)

Merci, mais cela ne fonctionne toujours pas  ...

J'obtient toujours l'erreur :  {"Object reference not set to an instance of an object."}

C'est bien la m.....

A+ et merci

 ElpenS

Quelle ligne exactement te renvoie cette erreur ?

---

Nurgle (Antoine)

Hello,

C'est la ligne dans les propriétés de mon personPanel :

Me.fNameVal.Text = value

Merci

 ElpenS

En fait, quand je debug, il me met l'erreur a la ligne que je t'ai indiqué avant.

Mais quand je regarde la stack (at personPane.get_FirstName()),  la ligne indiquée est la suivante : Return Me.fNameVal.Text

Voilà, encore merci pour tout

 ElpenS