Supprimer un objet d'une liste d'objet anonyme

Le titre est bien explicite alors je vous montre en code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Shared newTrainerList As New List(Of Object)   Public Shared Function getNewTraineList() As List(Of Object) Return newTrainerList End Function   Public Shared Sub addNewTrainer() Static id As New Integer id = id + 1   newTrainerList.Add(New With {.Id = id}) End Sub   Public Shared Sub removeNewTrainer(ByVal id As Integer) ?????????? End Sub

---

Alors voila, ma methode removeNewTrainer recoit un id, qui est l'id stocké dans mon objet anonyme. Maintenant, comment supprimer l'objet qui possède cet ID?

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Private Shared newTrainerList As New List(Of Object)   Public Shared Function getNewTraineList() As List(Of Object) Return newTrainerList End Function   Public Shared Sub addNewTrainer() Static id As New Integer id = id + 1   newTrainerList.Add(New With {.Id = id}) End Sub   Public Shared Sub removeNewTrainer(ByVal id As Integer) Dim found As Object   For Each o As Object In newTrainerList If (CType(o.GetType().GetProperty("Id").GetValue(o, Nothing), Integer) = id) Then found = o Exit For End If Next   If Object.Equals(found, Nothing) Then newTrainerList.Remove(found) End If   End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load addNewTrainer() removeNewTrainer(1) End Sub

---

Cependant ce n'est pas parce que l'on peut faire quelque chose qu'il faut le faire. Ce n'est vraiment pas l'idéal d'utiliser les types anonymes dans le cas présent.

rien compris au code, mais un dictionary serait surement plus adapté qu'un list, non ?

Oui je sais que ce n'est pas nécessaire dans ce cas, mais je l'ai simplifié, merci!

Je programme depuis longtemps, mais je suis débutant en vb, quel sont les désavantages d'utiliser un objet anonyme dans un cas semblable?

EDIT

Spearot, je fait une application MVC et ce code est dans un helper, qui gère mes listes pour le controller. Cela m'évite de faire des variables sessions, ce que je déteste.

Tu sens pas que c'est un peut space d'accéder aux membres des objets en question ?

ps.

Je ne vois pas comment tu fais, en partant de

Citation:

---

Envoyé par blackshadow153

je fait une application MVC

---

tu arrives à

Citation:

---

Envoyé par blackshadow153

Cela m'évite de faire des variables sessions

---

, sincèrement.

Dans le cas présent j'aurai juste crée une autre classe (une vraie, pas une anonyme) avec toutes les propriétés que je veux sur mon objet, et j'aurai construit la liste à partir de ces instances de classes.

au moins une interface avec la propriété à tester

Travailler avec des type Object c'est faire des liaisons tardives donc risquer des bug. Exemple :

Code:

---

If (CType(o.GetType().GetProperty("Id").GetValue(o, Nothing), Integer) = id) Then

---

Si tu fais une faute de frappe sur "Id" le compilateur ne va rien dire et à l'exec ça va crasher. Tu perds tout l'interêt de l'IntelliSense de l'IDE.

De plus les opération de Cast (CType-TryCast-DirectCast) sont des opération couteuse en ressources...

Bref comme le disait smyley ça fonctionne mais c'est pas top du tout.

Ne connaissant pas cette syntaxe pour le With "newTrainerList.Add(New With {.Id = id})". J'ai copié collé le code et chez moi il n'en veut pas du With.
C'est du VB 2008 ? Ici je suis en 2005.

Citation:

---

Envoyé par MaelstroeM

C'est du VB 2008

---

Oui, les types anonymes ça n'existe pas en 2005.

Bah ce n'est pas plus mal :yaisse2:

Ca veut dire quoi ca alors "With {.Id = id}" ?
Ajouter moi un objet qui à une propriétée .Id qui vaut id ?
Arff C'est immonde. :aie:

Citation:

---

Envoyé par MaelstroeM

Ajouter moi un objet qui à une propriétée .Id qui vaut id ?

---

Exactement : le compilateur crée une classe qui implémente les propriétés que l'on veux et en crées une instance avec les paramètres voulus.

Citation:

---

Envoyé par MaelstroeM

Arff C'est immonde. :aie:

---

Entièrement d'accord :mrgreen::aie:

Ca va a l'encontre de toute POO digne de ce nom.
Même en VB6 yavait pas aussi laid. :aie:
J'ai du mal à trouver un cas où l'on puisse justifier ce genre de chose...
Ya plein de solution propre pourtant... Héritage, Interface etc...

Bon je suis d'accords avec vous, les objects anonymes n'ont pas l'air d'être une solution "Propre". Pour le cas précédent, j'ai utiliser une liste d'integer et j'ai pu me débrouiller avec sa et sa fonctionne bien. Cependant, puisque je suis dans une application MVC, ou est-ce que je peut placer un fichier de classe vb accessible de mon controller?

Pour l'instant, le code est placer dans un Helper et donc pas besoins d'instancier, est-ce une bonne pratique?

Finalement, voici le seule cas ou j'utilise encore des objets anonymes, peut-être pourrez vous me donner une meilleur solution:

Controller:

Code:

---

1 2 3 4 5 6 7 8 9

' Many-to-many controls Dim TrainerList As New List(Of Object)   For Each trainer In line.EntraineursEquipes TrainerList.Add(New With {.Id = trainer.Id, .TrainerType = trainer.Type, .TrainerId = trainer.Entraineur, .TrainerName = trainer.HoEntraineur.Nom}) Next   ViewData("TrainerList") = TrainerList

---

Vue:

Code:

---

1 2 3 4 5 6 7 8

<%For Each item As Object In ViewData("TrainerList")%> <tr> <td><%=Html.ActionLink(item.TrainerName, "Edit", "Entraineurs", New With {.ID = item.TrainerId})%></td> <td><%=Html.DropDownList("TrainerType" & item.Id, New SelectList(New ahmsi.DAL.Horaire_dev.TypeEntraineurCollection().Load(), "Id", "Nom", item.TrainerType))%></td> <td><small><%=Html.ActionLink("Supprimer", "DeleteTrainer", New With {.ID = item.Id})%></small></td> </tr> <%Next%>

---