chercher un éléments dans une liste

Question

Bonjour,

J'ai un problème c'est que je veux taper une partie d'un nom et mon programme cherche tout les nom qui sont proche, et ça soit avec liste déroulante ou n'importe qu'elle liste.

Merci

mahriamed · Answer

merci

adnennahali · Answer

ton probleme va se resoudre comme sa
1/ Declaration d'un fonction qui s'appelle SendMessage  
 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
2/ Declaration deux constantes
2-1 Private Const LB_FINDSTRINGEXACT = &H1A2
2-2 Private Const CB_FINDSTRINGEXACT = &H158
*********tous ce la sera déclaré dans un module

puis dans un form tu insere un combobox avec la propriété suivant :

style = simple combo
name = utilisateur

puis :


Private Sub utilisateur_Change()
    Dim start As Integer
    start = Len(utilisateur.Text)
    If SendMessage(utilisateur.hwnd, CB_SELECTSTRING, ByVal utilisateur.ListIndex, ByVal utilisateur.Text) <> CB_ERR Then
        utilisateur.SelStart = start
        utilisateur.SelLength = Len(utilisateur.Text)
    End If

End Sub


j'éspére que la meilleure solution 
voila

Chercher un éléments dans une liste

2 réponses

Votre réponse

Discussions similaires