[VB.Net 2.0] Comment passer de List<> en SortedList<> ?

Version imprimable

J'ai beau retourner le problème dans tous les sens, impossible de transformer List (of pédigré) en sortedList(of Tkey,Tvalue).
Quelle est la syntaxe pour préciser que Pédigré._nom est la clef à utiliser ?
ou du moins qu'est-ce que je mets comme Tkey, Tvalue ?

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
35
36
37
38
39
40
41
 
Imports System.Collections.Generic
Imports System.SerializableAttribute
 
 
<Serializable()> Public Class Pédigré
    Private _code As UShort                     ' code interne (2oct)
    Private _nom As String                       ' Nom 
    Private _année As UShort                    ' Année de naissance
    Private _sexeIsMale As Boolean            ' Sexe 
    Private _père As UShort                      ' code interne Père
    Private _mère As UShort                      ' code interne Mère
 
    Public Property code() As UShort
        Get
            Return _code
        End Get
        Set(ByVal value As UShort)
            _code = value
        End Set
    End Property
    Public Property nom() As String
        Get
            Return _nom
        End Get
        Set(ByVal value As String)
            _nom = value
        End Set
    End Property
    Public Property année() As UShort
        Get
            Return _année
        End Get
        Set(ByVal value As UShort)
            _année = value
        End Set
    End Property    
End Class
<Serializable()> Public Class ColPédigré
    Inherits List(of Pédigré)
End Class

Merci d'avance

PS : Je débute... désolé si ma question vous fait sourire :oops:

Peut-être ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
//...
 
<Serializable()> _
Public Class PedigreeList
    Inherits List(of Pedigree)
    //...
End Class
 
<Serializable()> _
Public Class PedigreeSortedList
    Inherits SortedList(of String, Pedigree)
 
    Public Sub New(ByVal liste As PedigreeList)
       For Each item As Pedigree in liste
          MyBase.Add(item.nom, item)
       Next
    End Sub
End Class

Avertissement: il faut que tu sois sûr que le nom est unique sinon mon code lèvera cartainement une exception

29/04/2006, 14h04
Maniak

(en même temps, faire deux classes vides juste pour un foreach d'une ligne, c'est peut-être *un peu* exagéré :)

Citation:

Envoyé par Maniak

(en même temps, faire deux classes vides juste pour un foreach d'une ligne, c'est peut-être *un peu* exagéré :)

:lol: oui jme suis contenter de répondre bêtement à la question sans cherche à savoir le reste de son implémentation.

Sinon en effet on peut faire directement aussi
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 // ... <Serializable()> _ Public Class PedigreeSortedList Inherits SortedList(Of String, Pedigree) Public Overrides Sub Add(ByVal p As Pedigree) MyBase.Add(p.nom, p) End Sub End Class //...

12/05/2006, 11h08
lacsap49

Je viens un peu tardivement vous remercier de vos réponses...:oops:
Mais j'ai fouillé un peu partout et relu certains tuto pour maitriser un peu mieux. j'ai aussi pris un peu de vacances.8-)
J'ai donc un peu avancé dans mon projet et continue à découvrir les outils fabuleux à notre disposition pour développer aujourd'hui. Je developpai professionnellement dans les années 80.. d'ou le décalage avec les outils d'aujourd'hui. Entre la POO et l'assembleur que nous utilisions, les RAM de 2 Go et les 64 ko que se partageait les appli de gestion... il y a un monde.
Merci encore.
Pascal