Discussion :

[Cereal123]

Bonjour,

Je voudrais associer à chaque élément de ma combo une clé, afin que lorsque l'utlisateur sélectionne un élement, je ne récupère pas l'index ou le libellé de l'élément, mais sa clé.
En cherchant sur les forums, j'ai vu que la fonction SetItemData(ListBox1, Indice, Clé) existait dans VB6 mais ce n'est pas très propre de l'appeler en .net.
Comment faire en VB.net ?

[bifidus]

En DotNet une ComboBox a pour Item des Objets quelconques et pas seulement des paires Key, Value.

1) Tu fais Une Classe ItemSource avec des propriétés qui vont servir de cle et de valeur pour ta ComboBox

2) Tu fais Une Collection héritant de CollectionBase qui renvoie des Objets ItemSource.

3) Tu Binde ta ComboBox avec ta Collection en spécifiant quelles propriétés servent de cle et d'affichage !

Si tu veux je peux te poster un exemple de Code en VB...

[Cereal123]

Je pense avoir compris.
Si tu as un exemple, il serait le bienvenu.
Merci.

[Piotrek]

Salut

A mon avis la solution la plus clean c'est
- tu cree une classe avec les props que tu souhaite (text, key...)
- tu ajoute une instance de classe pour chaque element dans une collection (arraylist par ex)
- tu fais un binding sur cette collection

il devient simple de recuperer l'objet et ses proprietes (avec un petit cast)

Si t'as rien compris a ce que je viens de dire (normal c'est le matin et je suis pas encore bien reveille) voila un petit ex en live avec des guitares
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q313640
Rock'n'Roll

[bifidus]

Bon vla un exemple:
1) Une classe d'Items avec un Index integer et une Key string

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
  Public Class BaseClass
    Private _Index As Integer
    Private _Key As String
    Private _Texte As String
 
    Public Overridable Property Index() As Integer
      Get
        Return me._Index
      End Get
      Set(ByVal value As Integer)
        Me._Index = value
      End Set
    End Property
 
    Public Property Key() As String
      Get
        Return Me._Key
      End Get
      Set(ByVal Value As String)
        Me._Key = Value
      End Set
    End Property
 
    Public Property Texte() As String
      Get
        Return Me._Texte
      End Get
      Set(ByVal value As String)
        Me._Texte = value
      End Set
    End Property
 
    Public Sub New()
 
    End Sub
 
    Public Sub New(ByVal index As Integer, ByVal key As String, ByRef texte As String)
      Me._Index = index
      Me._Key = key
      Me._Texte = texte
    End Sub
  End Class

2) Une Collection (comme dit Piotrek on peut prendre une ArrayList ou un Array ou tout ce qui implémente IList) Renvoyant des Objets BaseClass
La aussi on peut caster aprés, mais je préfère avoir des collections fortement typées.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Class ItemsCollection
    Inherits BaseCollection
 
    Default Public Overridable Property Item(ByVal index As Integer) As BaseClass
      Get
        Return CType(innerlist.Item(index), BaseClass)
      End Get
      Set(ByVal Value As BaseClass)
        Me.InnerList.Item(index) = Value
      End Set
    End Property
 
    'Pour récupérer les éléments par la clé string
    Default Public ReadOnly Property Item(ByVal key As String) As BaseClass
      Get
        Dim Item As BaseClass
        For Each Item In Me.InnerList
          If Item.Key = key Then Return Item
        Next
        Return Nothing
      End Get
    End Property
 
    Public Sub Add(ByVal value As BaseClass)
      Me.InnerList.Add(value)
    End Sub
 
    Public Sub Create(ByVal index As Integer, ByVal keyTexte As String)
      Dim FFEItem As New BaseClass(index, keyTexte, keyTexte)
      Me.Add(FFEItem)
    End Sub
 
    Public Sub Create(ByVal index As Integer, ByVal key As String, ByVal texte As String)
      Dim Item As New BaseClass(index, key, texte)
      Me.Add(Item)
    End Sub
 
  End Class

3) On Binde la ComboBox

Code :

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

1
2
3
4
5
6
  Dim SexesCollection as new ItemsCollection
  SexesCollection.Create(0,"M","Masculin")
  Sexes.Collection.Create(1,"F","Féminin")
  Combo.DisplayMember = "Texte"
  Combo.ValueMember = "Index"
  Combo.DataSource = SexesCollection

C'est vrai que ca fait beaucoup de Lignes...
(Maniak va me soutenir que non !)
Mais ensuite je peux utiliser ma Collection de Sexes partout (WebForms et WinForms) et créer facilement des Objets qui héritent de ma BaseClass comme sources de ComboBox.

[Cereal123]

Merci : je vais tester tout ça de ce pas...
Bon week-end.

[Nimothenicefish]

Bonjour,

J'ai remarqué une erreur dans ton code. Ce n'est pas BaseCollection mais CollectionBase dans :

Code :

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

1
2
Public Class ItemsCollection
    Inherits BaseCollection

Sinon j'ai un p'tit soucis dans l'utilisation des DisplayMember, ValueMember et DataSource. Visual studio me dit que qu'ils ne sont pas membre de System.Windows.Forms.TextBox
Quelqu'un serait pourquoi et surtout comment contourner le problème ?

Merci de votre compréhension

Cordialement, Nimo