[VB6] COMBO: se positionner sur un élément

Bonjour, j'ia dans mon projet un combo box en propriete style =0 et je charge ce combo avec une base de donnée et je vx que ce soit modifiable pour la modification d'un rajout dans la table pas de probleme.
Mais par exemple je rentre une valeur qui est deja existante je voudrait que lorsque je tape le texte que si ca commence comme un deja present dans le combo box qu'il me l'affiche exemple:
RENNES : est dans ma liste combo
et si je tape RE je voudrais que rennes s'affiche mais si par exemple je tape apres le "e" une autre lettre que "n" ca n'affiche plus rennes mais ren si aucun texte dans mon combo ne correspond
merci
:evil:

Il faut pour cela utiliser l'événement Change, déclenché par la saisie au clavier.
Tu récupères la chaîne saisie, et tu parcours les éléments de ton combobox pour positionner le ListIndex sur le premier qui correspond, et le laisser à -1 si aucun de correspond.

tu pourrais me donner un exemple de code stp
merci

salut
voila ce que j'ai fait pour mon prog:
j'ai une textbox ou je saisis les premières lettres d'un club et une listbox ou les noms de clubs "montent" en fonction de la saisie

Code:

---

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

Private Sub text_recherche_Change() Dim i As Integer Dim trouve As Boolean i = 0 trouve = False Do If Left(list_nageurs.List(i), Len(text_recherche.Text)) = text_recherche.Text Then trouve = True i = i + 1 Loop Until trouve = True Or i = list_nageurs.ListCount If trouve Then list_nageurs.ListIndex = i - 1 Else list_nageurs.ListIndex = -1 End If   Dim a As Integer a = list_nageurs.ListIndex If list_nageurs.ListCount < a + 9 Then list_nageurs.ListIndex = list_nageurs.ListCount list_nageurs.ListIndex = a Else list_nageurs.ListIndex = a + 8 list_nageurs.ListIndex = a End If   End Sub

---

à toi de l'adapter à ton combo :wink:

bonjour merci pour ton code par contre a quoi sert ce bout de code

Code:

---

1 2 3 4 5 6 7 8 9

Dim a As Integer a = list_nageurs.ListIndex If list_nageurs.ListCount < a + 9 Then list_nageurs.ListIndex = list_nageurs.ListCount list_nageurs.ListIndex = a Else list_nageurs.ListIndex = a + 8 list_nageurs.ListIndex = a End If

---

car j'ai bien mon texte qui s'affiche mais je ne peux taper plusieurs lettre cad que si j'ai dans ma liste ddaf dde apres mon 1er d je ne peux pas taper autre chose et j'ai une erreur dans le code ci-dessus a la ligne
list_nageurs.ListIndex = list_nageurs.ListCount
" erreur d'execution '380'
valeur de propriete incorrecte

Citation:

---

Envoyé par taurus

car j'ai bien mon texte qui s'affiche mais je ne peux taper plusieurs lettre cad que si j'ai dans ma liste ddaf dde apres mon 1er d je ne peux pas taper autre chose et j'ai une erreur dans le code ci-dessus a la ligne

---

Si la saisie se fait directement dans ta liste, et que la première lettre rentrée te positionne sur un élement de ta liste, alors oui, tu ne pourras pas saisir d'autres lettres de manière simple, vu que tu as impacté la zone de texte de ton combo.

Soit tu passes par une saisie dans une textbox à côté, soit ...
Je jette un oeil savoir comment contourner ce problème et je te tiens au courant.

PS : pense aux balises codes ;)

Mouais, c'est compliqué à gérer dans la même zone, la saisie de la chaîne de recherche, et le positionnement, je m'emmêle les pinceaux :?

Bref, si tu veux faire simple, gère la saisie de ta chaîne de recherche dans un textbox à côté.

Si qqun d'autre a une solution à proposer, ça m'intéresse aussi ;)

ok mais par contre a quoi sert le code que j'ai mis en dernier car sans ca ca marche donc je ne vois pas l'interet?
:?

Citation:

---

Envoyé par taurus

ok mais par contre a quoi sert le code que j'ai mis en dernier car sans ca ca marche donc je ne vois pas l'interet?
:?

---

Je ne sais pas, mais il est certain que la ligne

Code:

---

list_nageurs.ListIndex = list_nageurs.ListCount

---

va tomber en erreur 380 à tous les coups, vu que la valeur max de ListIndex, c'est ListCount -1 !
Donc si ça tombe en erreur et que ça ne te sert pas, tu ne t'en sers pas ... ;)

Avant de te proposer une solution, je veux juste savoir si ton combo est lié directement à la bdd (propriétés dataSource et dataField renseignées) ou non ?

NON elle n'est pas directement relie a la bdd
:(

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Combo1_Change() Dim i As Integer, start As Integer start = Len(Combo1.Text) For i = 0 To Combo1.ListCount - 1 If Left(Combo1.List(i), start) = Combo1.Text Then Combo1.Text = Combo1.List(i) End If Next Combo1.SelStart = start Combo1.SelLength = Len(Combo1.Text) End Sub

---

Pas mal mais ... j'ai constaté 2 soucis :

a- il faut tester la longueur de .Text, pour ne pas faire de tests sur une chaine de longueur 0, et gérer la comparaison sur min/MAJ : pas trop dur à gérer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Combo1_Change() Dim i As Integer, start As Integer   start = Len(Combo1.Text)   If start > 0 Then For i = 0 To Combo1.ListCount - 1 If Ucase(Left(Combo1.List(i), start)) = Ucase(Combo1.Text) Then Combo1.Text = Combo1.List(i) End If Next   Combo1.SelStart = start Combo1.SelLength = Len(Combo1.Text) End If End Sub

---

b- ça désactive les touches BackSpace et Suppr, utiles si tu souhaites revenir en arrière dans ta saisie (c'est un peu ça qui m'a cassé les pieds ce matin ...)

j'attends de nouvelles propositions

Citation:

---

Envoyé par taurus

j'attends de nouvelles propositions

---

Un peu "abrupt", comme relance !

Merci de penser que les personnes qui te propose de l'aide sur ce forum sont bénévoles, qu'elles font ça sur leur temps disponible, et qu'elles ne pas soumises à obligation de résultat.

Avec le code qui t'a été fourni, je trouve que tu as été pas déjà été pas mal aiguillé. Si tu ne t'en sors pas avec ça, revois ta manière de faire plutôt que d'exiger que l'on te fasse ton code à ta place !!!

ok merci @ +