[VB6] suggestion des entrés dans un combobox

Version imprimable

18/02/2004, 13h55
s.rais

[VB6] suggestion des entrés dans un combobox

Comment faire pour q'un combobox suggère des entrées (d'après sa liste)au fur et à mesure de la saisie
18/02/2004, 13h58
khany

:D Peux-tu donner un exemple et être plus clair stp ?
Merci !
18/02/2004, 14h03
Catbull

Tu peux utiliser un menu popup peut-être puis gérer l'évènement Tab...
18/02/2004, 14h28
s.rais

suggestion des entrés dans un combobox

il s'agit d'utiliser un combobox dont la liste se forme à partir d'une table lors du chargement d'un formulaire. Lorsque l'utilisateur commence à saisir des données (qui ne peuvent être que des éléments de la liste), le combobox suggére des entrées comme dans la saisie semi-automatique dans excel ou dans les saisies dans les combobox d'access. merci

Heu, j'ai pondu ça dans une fenêtre avec juste un combobox appelé Combo1. Bien sûr, il va falloir tester en long et en large et customiser, mais cela peut être une base, juste pour essayer... :wink:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Option Explicit
 
Private mblnOk As Boolean
 
Private Sub Combo1_Change()
 
Dim intCpt As Integer
Dim intLenght As Integer
 
If mblnOk Then
 
    For intCpt = 0 To Combo1.ListCount - 1 Step 1
        If InStr(1, Combo1.List(intCpt), Combo1.Text) Then
            intLenght = Len(Combo1.Text)
            Combo1.Text = Combo1.List(intCpt)
            Combo1.SelStart = intLenght
            Combo1.SelLength = Len(Combo1.Text) - intLenght
        End If
    Next
 
End If
 
End Sub
 
Private Sub combo1_KeyDown(KeyCode As Integer, Shift As Integer)
 
If KeyCode = vbKeyDelete Or KeyCode = vbKeyBack Then
    mblnOk = False
Else
    mblnOk = True
End If
 
End Sub
 
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "toutamon"
Combo1.AddItem "pachmala"
End Sub

18/02/2004, 15h32
s.rais

Merci ! Mayamok
ça marche !