Saisir dans une combo box

Commenter

Contenu du snippet

ce code permet de se rendre a la premiere ligne correspondante a une saisie dans une combo box.ce n'est pas facile a expliquer prenez le code est vous verez bien.
en tout cas c'est pratique.

Source / Exemple : 


'a ecrire dans le module.
Public sub SetTextCombo(combo1 as comboBox)
    dim pos,x as long
    pos=len(combo1.text)
    for x =0 to combo1.listcount-1
       if ucase(left(combo1.list(x),pos))=ucase(combo1.text) then
           combo1.text=Combo1.list(x)
       exit for
     end if
    next x
    combo1.selstart=pos
    combo1.sellength=len(combo1.text)-pos
end sub
'dans le formulaire sur l'evenement key up de la combo box
private sub combo1_keyup(keycode as integer,shift as integer)
   if keycode<>8 then
      call setTextCombo (combo1)
    end if
end sub
'le combo1 dans la procedure sur key up doit etre remplacer par le nom de la combo box sur laquelle on travaille

Conclusion :


voila si il y a des bugs tenaient moi au courant pour une mise a jour.merci.
je tiens a remercier tout particulièrement ShanaBurns pour m'avoir apporter la première ébauche du code.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Mcgrady)