Discussion :

[mcay]

bonjour,

voilà je voulais adapter cette fonctionnalité à une dataCombo, le code ci-dessous est pour une combobox :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Private Sub Combo1_KeyPress(KeyAscii As Integer)
    Dim Trouve As Long, Position As Integer, Taille As Integer
    Dim strTemp As String
    With Me.Combo1
        If KeyAscii = 8 Then
            If .SelStart = 0 Then Exit Sub
            .SelStart = .SelStart - 1
            .SelText = ""
        Else
            Position = .SelStart
            strTemp = .Text
        End If
        .SelText = Chr(KeyAscii)
        Trouve = SendMessage(.hwnd, CB_FINDSTRING, 0, ByVal .Text)
        If Trouve = -1 Then
            ' les trois lignes suivantes doivent être enlevées
            ' en cas de non correspondance possible
            .Text = strTemp
            .SelStart = Position
            .SelLength = (Len(.Text) - Position)
            KeyAscii = 0
            Exit Sub
        Else
            Position = .SelStart
            Taille = Len(.List(Trouve)) - Len(.Text)
            .SelText = .SelText & Right(.List(Trouve), Taille)
            .SelStart = Position
            .SelLength = Taille
            KeyAscii = 0
        End If
    End With
End Sub

et bien sur la propriété ".List", n'existe pas pour une datacombo, donc j'ai essayé avec la listField, mais ça pose un pb aussi, vu que ça ne renvoie pas le même type de valeur.

Si quelqu'un peut m'aider s'il vous plait, merci

[jacma]

Bonjour

Peux tu poser ta question en texte et non en code, afin que l'on ne soit pas obligés de plonger dans ce code pour savoir ce que tu veux. Merci.

Ceci étant, tu trouveras un exemple de ce que tu veux obtenir dans "Accès aux données ADO" (accessible par la signature), et plus précisément dans frmRecherceher. Il y est utillisé une ListBox et l'API SendMessage.

Pour utiliser une DataList (ou DataComblo), il suffit d'en préciser la source. Mais là aussi, tu as a ta disposition des cours, par exemple "Initiation à l'accès aux données" pour l'utilisation d'une DataList.

Alors, bon courage .

[mcay]

en fait, justement je me suis servi de ce cours pour remplir ma dataCombo. Et ma question est, quand je tape une lettre sur ma dataCombo, ben qu'il me positionne sur les mots ou noms qui commencent par cette lettre et ainsi de suite si je tape sur une 2ème et 3ème lettre.

Je ne sais pas si je me suis bien exprimé.

[jacma]

Je ne sais pas si je me suis bien exprimé.

Heu... pas vraiment

[mcay]

alors je vais essayer de mieux m expliquer, j ai une dataCombo qui contient des données. Pour sélectionner dans ma dataCombo, je peux chercher dans ma liste déroulante et sélectionner celui que je cherche. Ce que je veux faire là, c est que au lieu de chercher dans ma liste déroulante, je saisi dans ma liste déroulante.

Par exemple je saisi dans une premier temps C, ben que dans ma liste déroulante je sois positionner à partir de tous le noms qui commencent par C, si je saisi un A après, donc que je sois positionné sur les noms qui commencent par CA et anisi de suite dans ma liste déroulante.

Est ce que mon explication est mieux ??

en fait, le code que j ai mis au début, je l ai vu dans la faq VB, et apparemment ça le fait pour comboBox, je voudrais faire la même chose pour une dataCombo, mais il y a des propriétés qui ne sont pas similaires pour les 2.

[jacma]

Il me semble avoir été confronté au problème pour le praticiel indiqué, et c'était pour celà que j'avais mis une zone de texte dans laquelle on saisis la recherche, et la liste qui affiche le premier nom correspondant à la séquence saise.

Là, je n'ai pas le temps. Je regarderai de plus près ce soir ou demain.

[jacma]

Bonjour

Je me suis replongé un peu dans mon praticiel, j'ai mis une ComboBox, sans plus, et cela fait exactement ce que tu veux. Donc pour moi, pas de problème.

[mcay]

ok, je regarderais, en attendant, j'ai refait l'appli d'une autre façon, je te remercie, je te tiendrais au courant après avoir testé si ça me fait pareil ou pas.