Discussion :

[Marc_27]

Bonjour à tous,

voilà une question simple qui je n'arrive pas à le faire, est-ce que quelque bonne alme peut m'aider, svp?

J'ai besoin de remplir une ComboBox avec des mois de l'année (Janvier, Février, ...) et qu'ils ayent les valeurs (1, 2, ...)

J'ai déjà essayé par array:

Code :

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

1
2
3
Dim arrMois(11,1) as String
arrMois(0,0)="Janvier"
arrMois(0,1)=1

Avec deux arrays:

Code :

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

1
2
3
4
Dim arrMois(11) as String
Dim arrId(11) as Integer
arrMois(0)="Janvier"
arrId(0)=1

par DataTable:

Code :

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

1
2
3
4
5
Dim dtMois As New DataTable
dtMois.Columns.Add("Mois")
dtMois.Columns.Add("Value")
dtMois.Rows.Add("Janvier", 1)
dtMois.Rows.Add("Février", 2)

Mais je n'arrive pas à faire le Binding...


Est-ce que quelqu'un peut m'aider, svp?
Merci d'avance...

[leeloo95]

Il me semble que tu ne peux pas mettre deux valeurs distinctes sur la même ligne.
Le mieux est de créer ta ligne en entier, et lorque tu cherches quelque chose en particulier de prendre cette ligne et de rechercher dans cette ligne la valeur que souhaite annalyser

Code :

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

ComboBox1.Items().Add("Fevrier" & " " & "1")

Sinon, ce que je te propose c'est que si tu cherches le mois de janvier avec la valeur 1, dans ta combobox tu n'as cas récupérer l'index de l'item de janvier qui sera placé en premier dans ta combobox.

(Indexcb= 1) Janvier 1
(Indexcb= 2) Fevrier 2
(Indexcb= 3) Mars 3
...

C'est un sytem D...
Attends de voir si il y a vraiment une possiblité de rajouter deux valeurs sur la même ligne dans un combobox...

[BoBoCom1]

Bonjour,
Je te propose la démarche suivante pour réaliser un beau binding de ta combo

1. crée une classe spécifique pour tes mois de l'année

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
 
Public Class MoisAnnee
    Private _moisString As String
    Private _moisInteger As Integer
 
    Property MoisString() As String
        Get
            Return _moisString
        End Get
        Set(ByVal value As String)
            _moisString = value
        End Set
    End Property
 
    Property MoisInteger() As Integer
        Get
            Return _moisInteger
        End Get
        Set(ByVal value As Integer)
            _moisInteger = value
        End Set
    End Property
 
    Public Sub New(ByVal i As Integer, ByVal s As String)
        _moisString = s
        _moisInteger = i
    End Sub
 
End Class

Puis tu initialise une liste d'objets moisAnnee (dans le load de la form par exemple) que tu lies (Binding...) à ton contrôle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim listeMoisAnnee As New List(Of MoisAnnee)
        listeMoisAnnee.Add(New MoisAnnee(1, "janvier"))
        listeMoisAnnee.Add(New MoisAnnee(2, "fevrier"))
        listeMoisAnnee.Add(New MoisAnnee(3, "mars"))
        listeMoisAnnee.Add(New MoisAnnee(4, "avril"))
 
        'Initialisation du binding du contrôle
        Me.ComboBox1.DataSource = listeMoisAnnee
        Me.ComboBox1.DisplayMember = "MoisString"
        Me.ComboBox1.ValueMember = "MoisInteger"
End Sub

Et tu termines par récupérer la valeur lorsque la séléction change dans la combobox

Code :

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

1
2
3
4
 
Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
        Dim i As Integer = ComboBox1.SelectedValue
End Sub

[Marc_27]

Merci leeloo95.

En fait, c'est pas mettre les deux valeurs dans la même ligne, mais utiliser les proprietes ValueMember et DisplayMember.

Je voudrais que "Janvier" soit le DisplayMember avec un ValueMember 1
"Février" de DisplayMember avec un ValueMember 2...

[Marc_27]

Merci à toi aussi BoBoCom1.

C'est bien ça...
Mais c'est pas evident. J'ai pensé qu'il serait beaucoup plus simple...

[BoBoCom1]

Bonjour Marc27,

C'est vrai que ce n'est pas forcément le plus simple, ou le plus direct.

Néanmoins la combobox n'autorise que le binding avec des composants qui implémentent l'interface 'IList'....tu es donc limité dans le choix de la collection utilisable.
D'autre part l'emploi de l'objet "MoisAnnee" est un choix de développement...tu peux surement faire plus simple
A plus

[Marc_27]

Alors,
on y va. Je vais donc l'essayer

Merci encore une fois BoBoCom1 et leeloo95.