Discussion :

[method_man]

Hello World !! How are you ??

J'aimerais intégrer dans mon application VB6 la saisie semi-automatique dans mes combobox. Les données qui y sont contenues sont isssues de ma base de données SQL Server et comme elles sont très nombreuses, ce serait bien de faciliter la recherche pour les utilisateurs grâce à cette méthode.

Si quelqu'un peut m'aider, j'ai essayé plusieurs implémentations mais je n'arrive à rien, et là je sèche ...

Merci d'avance pour vos contributions !!

[La Praline]

Bonjour bonjour,


Je ne te rappellerais pas que Google est ton ami...
Néanmoins après avoir tapé "saisie semi-automatique dans combobox vb" sous google, et en ayant regardé les trois premiers lien...
Je suis tombé comme par enchantement sur ce code, j'espère qu'il va te servir(disons au moins avant que ceux qui s'y connaissent vraiment, donc pas moi ^^, s'interesse à ton cas...).

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
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
   'Saisie semie-automatique
   If KeyCode = vbKeyBack Then Exit Sub
   Dim inc1 As Integer
   Wcount = Len(Combo1.Text)
   If Combo1.Text = "" Then Exit Sub
   For inc1 = 0 To Combo1.ListCount - 1
      If LCase(Combo1.Text) = LCase(Left(Combo1.List(inc1), Wcount)) Then
         Combo1.Text = Combo1.Text & Mid(Combo1.List(inc1), Combo1.SelStart + 1)
         Combo1.SelStart = Wcount
         Combo1.SelLength = Len(Combo1.Text)
         Exit For
      End If
   Next inc1
End Sub

Je ne l'ai pas testé, donc bonne chance...


~~ La Praline ~~
... un choco sponsorisé par google... son ami...

[method_man]

Tu sais quoi mon ami, ca marche parfaitement ton code !!

Merci La praline !!

[La Praline]

Rhô c'te classe... je vais faire un screenshot et la mettre en signature ta phrase

Bon allé, ravi d'avoir pu t'aider... Pense à mettre la balise "RESOLU" pour le prochain qui cherche la même chose que toi



~~ La Praline ~~
... un choco utile !!! qui l'eut cru !!!

[ThierryAIM]

dommage d'aller chercher chez le concurrent alors qu'il existe :
http://vb.developpez.com/faq/?page=Controles#auto_combo

[La Praline]

Arf, je savais que ca ne pouvait pas être aussi parfait
Gomenosaï !!!



~~ La Praline ~~
... un choco qui fait de la concurrence déloyalle...

[method_man]

Veuillez pardonner ma lourdeur, mais j'aimerais placer ce code de saisie semi-automatique dans un module et le mettre en public, de sorte à pouvoir l'utiliser dans chacun de mes combobox.

Le problème est que je ne vois pas trop comment faire.
Faut-il passer le nom du combobox en paramètre?
Est-ce que Me fonctionne dans un module public?

Bref j'ai besoin de vous car je n'y arrive pas. Merci d'avance ...

[ThierryAIM]

il te faut écrire une sub que tu appellera dans chaque événement Change (ou autre) de tes combo
oui, il faut paramétrer le nom du combo
non, Me ne fonctionne pas dans un module

exemple :
dans le module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub ComboChange(Cbo As Control)
    Dim i As Integer, start As Integer
    start = Len(Cbo.Text)
    For i = 0 To Cbo.ListCount - 1
        If LCase(Left(Cbo.List(i), start)) = LCase(Cbo.Text) Then
            Cbo.Text = Cbo.List(i)
        End If
    Next
    Cbo.SelStart = start
    Cbo.SelLength = Len(Cbo.Text)
End Sub

dans ta form

Code :

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

1
2
3
Private Sub Combo1_Change()
    ComboChange Combo1
End Sub