Discussion :

[hotsizzle]

Je me sens un peu ridicule de poster pour savoir celà, mais bon...
Voilà j'ai une combobox que je souhaite remplir avec 2 valeurs et 2 valeurs à afficher.
Je sais le faire lorsque c'est des données provenant de ma DB.

Je souhaite avoir un combo avec 2items
item1 value : 1
item1 valeur à afficher : contact
item2 value : 2
item2 valeur à afficher : délégué

Si quelqu'un pourait m'aider à remplir ma petite combo ca serait cool.

a+

[Invité]

Salut

Tu peux te monter une DataTable contenant tes données, après tu fais comme quand tu les reçois d'une BD.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim cb AsNew ComboBox
Dim dt AsNew DataTable
 
dt.Columns.Add("Value")
dt.Columns.Add("Texte")
dt.Rows.Add("1", "Contact")
dt.Rows.Add("2", "Délégué")
 
cb.ValueMember = "Value"
cb.DisplayMember = "Texte"
cb.DataSource = dt

[hotsizzle]

Waaa je me rend compte a quel point je suis stupide
Merci beaucoup je pense que mon cerveau était en panne.

[Saten]

N'oublie pas le tag résolu.

[Kelpan]

Si tes valeurs viennent d'une classe, tu peux même te servir des propriétés de la classe.

Exemple

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
 
Private Class MaClass
    Private mStr_Value As String = ""
    Private mStr_Texte As String = ""
 
    Public Sub New( _
        ByVal Str_Value As String, _
        ByVal Str_Texte As String _
    )
 
        mStr_Value = Str_Value
        mStr_Texte = Str_Texte
    End Sub
 
    Public ReadOnly Property Texte() As String
    Get
        Return mStr_Texte
    End Get
    End Property
 
    Public ReadOnly Property Value() As String
    Get
        Return mStr_Value
    End Get
    End Property
 
    Public Overrides Function ToString() As String
        Return Me.Value & " - " & Me.Texte
    End Function
End Class
 
 
Dim arrVals As New ArrayList
arrVals.Add(New MaClass("1", "Contact"))
arrVals.Add(New MaClass("2", "Délégué"))
 
monComboBox.ValueMember = "Value"
monComboBox.DisplayMember = "Texte"
monComboBox.DataSource = arrVals