Chargement d'un Combo en fonction de ce qui est saisi ds celui-ci Résolu

Question

Bonjour, 
Malgr&#233; de multiples recherches sur VBFrance, je n'arrive pas &#224; trouver la r&#233;ponse &#224; mon probl&#232;me.
J'ai un combo qui est destin&#233; a affich&#233; un liste de nom(celui-ci n'est pas bloqu&#233; en saisie), je veux que en fonction de ce que saisi l'utilisateur, seul le noms commencant par ce qui est saisi s'affiche.
Voil&#224; comment j'ai proc&#233;d&#233; : sur l'&#233;v&#232;nement Keypress du combo, j'appelle la proc&#233;dure destin&#233; &#224; remplir le combo. La requ&#234;te de cette proc&#233;dure recherche dans la table tout les noms commencant par ce qui a &#233;t&#233; saisi.
Le probl&#232;me c'est qu'&#224; la premi&#232;re frappe, rien ne se passe, la seconde marche (il y a donc une lettre saisie dans le combo et les noms commencant par cette lettre qui s'affiche mais avec parfois un petit bug dans l'affichage correspondant je pense au temps n&#233;cessaire &#224; l'&#233;xecution de la requ&#234;te), et ensuite bizarrement il est impossible de saisir d'autres lettres.

voici la proc&#233;dure (dont l'appel s'effectue sur le keypress du combo) :
Public Sub CharTouCbSup(Debut As String, Cb As ComboBox)
    If Rs_Sup.State = adStateOpen Then
        Rs_Sup.Close
    End If
    'Je recherche le contenu de la table UTILISATEUR
    Rs_Sup.Open "select * from [SUPPLEMENT] where [Lib_Sup] like '" & Debut & "%'", Cn, adOpenDynamic, adLockOptimistic
    'nettoyage du contenu
    Cb.Clear
    'Tant que je ne suis pas arriv&#233; &#224; la fin de la liste
    While Rs_Sup.EOF = False
       'J'ajoute les champs trouv&#233;s au contenu du combo un par un
        Cb.AddItem Rs_Sup.Fields("Lib_Sup").Value
        'Je passe au suivant
        Rs_Sup.MoveNext
    Wend
    Rs_Sup.Close

Quelqu'un a t'il un moyen plus efficace d'obtenir ce chargement s&#233;lectif ?

Merci d'avance

cs_Eric25 · Accepted Answer

Merci &#224; tous, j'ai finalement trouv&#233; un autre code (le seul que j'ai r&#233;ussi &#224; comprendre) qui marche plutot bien, le voici (source de TequilaTex):

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
     'Saisie semie-automatique
     If KeyCode =  vbKeyBack  Then  Exit Sub
     Dim inc1 As Integer
     Wcount  = Len(Combo1.Text)
     If Combo1.Text =  ""  Then  Exit Sub
     For inc1  = 0 To Combo1.ListCount - 1
        If LCase(Combo1.Text) =   LCase (Left(Combo1.List(inc1), Wcount)) Then
         Combo1.Text  = Combo1.Text & Mid(Combo1.List(inc1), Combo1.SelStart + 1)
         Combo1.SelStart = Wcount
         Combo1.SelLength = Len(Combo1.Text)
         Exit For
        End If
     Next inc1
End Sub

cs_ITALIA · Answer

Regardes dans mes sources il y a ce que tu recherche je crois...

It@li@

guigfs · Answer

Salut essai avec ceci (desole mais aucun commentaire) Private Sub MaListe_KeyPress( ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress Dim maValeur As String = Me.Text Dim nbCaracteres As Integer = maValeur.Length() Dim nbElements As Integer = Me.Items.Count() Dim nbCaract As Integer Dim valeurListe As String Dim positionCurseur As Integer Dim i As Integer If e.KeyChar <> Microsoft.VisualBasic.ChrW(8) Then maValeur = maValeur.ToUpper() If Me.Text <> "" Then For i = 0 To (nbElements - 1) valeurListe = Mid(Convert.ToString(ds.Tables("maTable").Rows(i).Item(macolonne)), 1, nbCaracteres) valeurListe = valeurListe.ToUpper If maValeur = valeurListe Then Me.SelectedIndex = i nbCaract = Me.Text.Length() Me.Select(nbCaracteres, nbCaract) Exit For End If Next End If End If End Sub

guigfs · Answer

Pour info ceci s'appel une combo &#224; saisie semi_automatique(pour les recherches google ca aide)

cs_Eric25 · Answer

Merci, j'essaye de d&#233;coder ce code qui a l'air pas mal mais j'avoue que j'ai un peu de mal sans commentaires...

cs_Eric25 · Answer

Italia : Il me semble que ton code fonctionne lui avec un combo et une TextBox, mais j'essaye de comprendre son fonctionnement pour voir si cela peut marcher dans mon cas...
merci

Chargement d'un Combo en fonction de ce qui est saisi ds celui-ci

6 réponses

Discussions similaires