[VB.net] Affichage valeur dans une ComboBox

Bonjour,

Je remplis ma ComboBox comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

strSQL = "SELECT LD.Libelle,LD.Identifiant FROM Lib_Divers LD, Lib_DiversType LDT WHERE LD.Id_Type = LDT.Id_Type AND LDT.Libelle = 'Energie'" Dim maComm3 AsNew SqlClient.SqlCommand(strSQL, My.Forms.Form1.maConn) maComm2.CommandType = CommandType.Text Dim dtaRead3 As SqlClient.SqlDataReader = maComm3.ExecuteReader() While dtaRead3.Read Me.ComboEnergie.Items.Add(New itemComboBox(dtaRead3.GetSqlString(0), dtaRead3.GetSqlInt32(1))) EndWhile dtaRead3.Close()

---

Je voudrais afficher une valeur dans mon ComboBox parmi celles rentrés avec le code ci dessus.
Je recupere un identifiant qui correspond à mon deuxieme parametre d'une de mes itemComboBox qui remplissent ma ComboBox.
J'ai donc l'identifiant de l'item à afficher mais je ne sais pas comment faire pour que la ComboBox affiche cet item.
La méthode SelectedIndex ne marche pas dans mon cas. J'ai essayé de me pencher sur la methode SelectedItem sans succes.

Je fais donc appel à vous pour m'aider ! :D

J'espere avoir été clair et merci d'avance.

Il faut parcourir la collection Combobox.Items pour rechercher l'objet qui correspond à l'id.
Ensuite le sélectionner en affectant ComboBox.SelectedIndex ou ComboBox.SelectedItem

Merci de ta reponse ;)

Le truc c'est que je ne sais pas du tout comment parcourir la collection Items et trouver celui correspondant à mon identifiant.
Si vous aviez un bout de code ou un lien je suis preneur.
C'est la premiere fois que j'utilise des Items autre qu'un simple libelle dans une ComboBox :roll:

On fait simplement une boucle for ou foreach pour tester tous les objets de ComboBox.Items en comparant leur valeur avec l'identifiant voulu.

Je ne connais pas la syntaxe VB mais c'est classique, regardes un exemple de foreach.

Code:

---

1 2 3 4 5 6 7 8 9

While dtaRead4.Read ForEach element InMe.ComboEnergie.Items Dim idElement AsInteger = element.getId If (idElement = dtaRead4.GetSqlInt32(0)) Then Me.ComboEnergie.SelectedItem = element EndIf Next EndWhile

---

Voici le code qui m'a permis de faire ce que je voulais :D

Merci de ton aide ! ;)