Discussion :

[Laurent-BED]

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.

[ProgElecT]

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 :

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

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

[Laurent-BED]

Merci beaucoup

Cordialement