Discussion :

[blackshadow153]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[smyley]

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pol63]

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

[blackshadow153]

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.

[smyley]

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

[smyley]

ps.

Je ne vois pas comment tu fais, en partant de

je fait une application MVC

tu arrives à

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.

[Pol63]

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

[MaelstroeM]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.