Chercher un éléments dans une liste

Messages postés
1
Date d'inscription
jeudi 24 juin 2004
Statut
Membre
Dernière intervention
23 avril 2010
- - Dernière réponse : adnennahali
Messages postés
11
Date d'inscription
mercredi 27 janvier 2010
Statut
Membre
Dernière intervention
24 avril 2010
- 24 avril 2010 à 13:00
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
Afficher la suite 

2 réponses

Messages postés
1
Date d'inscription
dimanche 24 janvier 2010
Statut
Membre
Dernière intervention
24 avril 2010
0
Merci
merci
Commenter la réponse de mahriamed
Messages postés
11
Date d'inscription
mercredi 27 janvier 2010
Statut
Membre
Dernière intervention
24 avril 2010
0
Merci
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
Commenter la réponse de adnennahali