listbox et element selectionné

Bonjour
Voici ma question
En VB6 :
J’ai une listbox avec par exemple 3 éléments
• Element 1
• Element 2
• Element 3
Et une textbox , je voudrais que si la valeur de cette texbox est Element 2, l’item de la listbox soit surligné, comme si il avait été sélectionné.
• Element 1
• Element 2
• Element 3

J’ai beau chercher, je ne trouve pas !
Merci par avance de votre aide.

Salut, bienvenue sur DVP

Il faut parcourir chaque Items du ListBox et comparer le contenu du TextBox pour chaque changement du texte.
Un exemple basic pour une liste sans trop d'items (200 ... 300) qui reste suffisamment rapide sans avoir à utiliser une API.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Text1_Change() Dim T As Integer If List1.SelCount >= 1 Then For T = 0 To List1.ListCount - 1: List1.Selected(T) = False: Next T End If For T = 0 To List1.ListCount - 1 If LCase(List1.List(T)) = LCase(Text1.Text) Then List1.ListIndex = T: Exit For Next T End Sub

---

Merci beaucoup

Cordialement