Bonjours, j'ai une liste d'Entreprise dans une listebox et je voudrais que lorsque je tape une lettre ou un groupe de lettre dans un Edit.Text une recherche s'effectue dans le listbox pour chacune des lettres. ex: si j'ai métal inc,bijoux ltee et vadrouille inc. Je veux que si je tape «V» minuscule ou majuscule le setfocus de la listbox se positionne sur vadrouille. Dans la même optique si je tape «bij» je veux que la recherche s'effectue pour chaque lettre à la grandeur de la liste et que le setfocus se promène jusqu'à ce qu'il tombe sur le nom bijoux inc... Présentement mon code permet de faire promener le setfocus sur chaque mot lorsque j'entre une lettre dans le édit, cependant il revient toujours au début. Voici mon code Dim i
Dim a
Cmd_ajout.Enabled = True
Cmd_sup.Enabled = False
For i = 0 To List1.ListCount - 1
List1.SetFocus
'txt_entreprise.text.sellength = List1.List[i]
txt_entreprise.SetFocus
Next i
a = Left(txt_entreprise, Length)
List1.SetFocus
'if txt_entreprise[a] = List1.List[i]then
End Sub
merci de votre collaboration ! Elle est toujours très apprécié :-) emarck
A voir également:
Je voudrais recréer une fonction de recherche comme celle de MSDN