Discussion :

[modafine]

Bonjour.

J'ai une question relative aux combobox.

Je souhaite ajouter la fonctionnalité suivante:
Dès qu’on tape des caractères dans le champ éditable du combobox , la liste est filtrée et ne laisse apparaître que les libellés commençant par ces lettres.

Merci pour votre aide.

[ucfoutu]

Bonjour,

Bon ...

Un exemlple avec utilisation de la fonction SendMessage de l'Api de Windows (c'est le plus rapide à l'exécution) :

Sur ta Form : une Combobox nommée Combo1 et une Textbox nommée Text1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
 
  Private Sub Form_Load()
   Combo1.Clear
   Combo1.AddItem "Tomates"
   Combo1.AddItem "bananes"
   Combo1.AddItem "tubercules"
   Combo1.AddItem "biscuits"
   Text1.Text = ""
End Sub
 
Private Sub Text1_Change()
  Combo1.ListIndex = SendMessage(Combo1.hwnd, &H14C, -1, ByVal Text1.Text)
End Sub
 
Private Sub Combo1_Change()
  Combo1.ListIndex = SendMessage(Combo1.hwnd, &H14C, -1, ByVal Combo1.Text)
End Sub

Tu t'apercevras vite de l'intérêt qu'il y a à utiliser la textbox plutôt que la zone éditable de la Combo.
Avec la textbox : frappe de b ===>> bananes ... bi ===>> biscuits (ce qui est mille fois plus pratique)

Sers-t-en bien

Edit : Il est maintenant clair que si tu veux que n'apparaissent que certains libellés, on saura faire également, mais là encore :

- ou ta combobox n'est liée à aucune source de données (et on ne le sait toujours pas ...) et on saura utiliser la récursivité et un tremplin (juste un peu d'acrobatie)
- ou ta combobox est liée à une base de données et tu n'auras alors d'autres choix que l'un des deux suivants :
--- reconstituer ton recordset avec utilisation de l'opérateur Like et rafraichir ta combobox
ou
---- utiliser la récursivité, faire apparaître une seconde combobox et rendre invisible la première.

[modafine]

Merci pour la réponse,
En fait ma combobox est liée a une base de données.
Pour le choix suivant:

--- reconstituer ton recordset avec utilisation de l'opérateur Like et rafraichir ta combobox

Comment je dois modifier ma recordset en fonction des lettres saisies par l'utilisateur.

Merci.

[ucfoutu]

Bon...
Il te faut, pour y parvenir, passer par un controle Data et faire une ou 2 acrobaties. (tout cela est expliqué dans ton aide en ligne à la rubrique DATA (contrôle DATA)

Mais je me demande si tu ne trouveras pas beaucoup plus à ta portée d'utiliser tout simplement un contrôle DataCombo ...(c'est bien plus facile à gérer)