Sélection par le clavier dans une combobox en mode DropdownlistRésolu

Question

Bonjour,
J'ai écrit en VB.net un logiciel pour un de mes client, dans lequel il peut sélectionner un de ses prospects dans une liste de type Combobox, en mode Dropdownlist. Cette liste comporte plus de 3000 items. Le client utilise donc le clavier pour se positionner rapidement dans la liste. Cependant, si sa saisie n'est pas assez rapide - et c'est souvent le cas - la sélection devient difficile.
Exemple pour trouver DUPONT dans la liste
Le client tape D, puis U au bout d'une demi-seconde, puis P au bout d'une seconde. La liste va se positionner sur les noms démarrant par D, puis par DU, puis par P car il a attendu trop longtemps pour taper la lettre P. Y-a-t'il un moyen de modifier la temporisation de saisie? Je n'ai rien trouvé sur internet à ce sujet.
Merci de votre aide

Zermelo · Accepted Answer

Bonjour.

J'ai oublié de vous dire que ce que j'ai appelé les Inscrits doivent se présenter en ordre alphabétique. Mais vous l'avez sans doute compris vu le principe dichotomique employé pour le calcul des index.

Cordialement.


Étant illettré, je signe d'une croix : ×

Zermelo · Answer

Bonjour EISDCC.

Effectivement, la temporisation d'un ComboBox n'est pas accessible. Par contre, si vous copiez, temporairement ou non, le contenu du ComboBox dans un fichier ou un tableau, il serait facile de faire cette saisie au clavier en prenant tout son temps. J'ai fait cela en vb6 il y a plus de 10 ans avec noms et patronymes. Si vous avez des notions sur cet outil, vous pourriez transposer ce bout de programme. Faites-moi savoir si cela vous intéresse.



Cordialement

Étant illettré, je signe d'une croix : ×

EISDCC · Answer

Bonjour Zermelo
J'ai longtemps programmé en vb6 (et encore actuellemnt pour certains clients). Je suis effectivement intéressé par ce code que je pourrai transposer car c'est un problème remonté par de nombreux clients. Je n'ai pas cherché de moyen détourné pour y arriver, espérant toujours accéder à la valeur de temporisation, éventuellement par une API.
Merci d'avance

Zermelo · Answer

Bonjour EISDCC.

Voici le code promis. Il met en jeu trois contrôles,
a) un contrôle tSél As TextBox, pour la sélection.
b) un contrôle tRst As Label, pour afficher le résultat définitif,
c) un contrôle tRsts As ListBox, pour afficher les résultats intermédiaires.
En espérant que ce vous sera utile.

Option Explicit
Option Compare Text
Private Inscrits() As String
Private Rsts() As String

Private Sub Form_Initialize()
ReDim Inscrits(0 To 6)
Inscrits(1) = "Tata"
Inscrits(2) = "Titi"
Inscrits(3) = "Toto"
Inscrits(4) = "Totou"
Inscrits(5) = "Tutu"
Inscrits(6) = "Tu"
ReDim Rsts(0 To 0)
End Sub

Private Sub tSél_Change()
Dim Txt As String, i As Long, n As Long
Txt = tSél.Text
    Rsts = Résultats(Txt, Inscrits)
    n = UBound(Rsts)
    tRst.Caption = "": tRsts.Clear
    If n = 1 Then
        tRst.Caption = Rsts(1)
    Else
        For i = 1 To n
            tRsts.AddItem (Rsts(i))
        Next i
    End If
End Sub

Private Sub tRsts_Click()
    Dim r As Integer
    r tRsts.ListIndex: tRst.Caption tRsts.List(r): tRsts.Clear
End Sub

Private Function Résultats(Txt As String, Lst() As String) As String()
Dim Rsts() As String, IndI As Long, IndS As Long
Dim Ok As Boolean, i As Long, n As Long
ReDim Rsts(0 To 0)
If Len(Txt) > 0 Then IndI IndiceInférieur(Txt, Lst): IndS IndiceSupérieur(Txt, Lst)
Ok = ((IndI > 0) And (IndS > 0))
If Ok Then
    n = IndS - IndI + 1
    ReDim Rsts(0 To n)
    For i = 1 To n
        Rsts(i) = Lst(IndI + i - 1)
    Next i
End If
Résultats = Rsts
End Function

Private Function IndiceInférieur(Txt As String, Lst() As String) As Long
Dim n As Long, Ind As Long, a As Long, b As Long, c As Long, p As Long
n UBound(Lst): Ind 0: p = Len(Txt)
a 1: b n
Do
    If b - a = 1 Then Exit Do
    c = Int((a + b) / 2): If Txt <= Left(Lst(c), p) Then b = c Else a = c
    Loop
If Txt = Left(Lst(a), p) Then
    Ind = a
ElseIf Txt = Left(Lst(b), p) Then
    Ind = b
End If
IndiceInférieur = Ind
End Function

Private Function IndiceSupérieur(Txt As String, Lst() As String) As Long
Dim n As Long, Ind As Long, a As Long, b As Long, c As Long, p As Long
n UBound(Lst): Ind 0: p = Len(Txt)
a 1: b n
Do
    If b - a = 1 Then Exit Do
    c = Int((a + b) / 2): If Txt >= Left(Lst(c), p) Then a = c Else b = c
Loop
If Txt = Left(Lst(b), p) Then
    Ind = b
ElseIf Txt = Left(Lst(a), p) Then
    Ind = a
End If
IndiceSupérieur = Ind
End Function


Étant illettré, je signe d'une croix : ×

EISDCC · Answer

Bonjour
Merci pour ce code. Je n'avais pas cherché à utiliser d'autre types de contrôle pour ma saisie. Le code est effectivement facile à adapter à vbnet.
Cela fonctionne parfaitement.
Cordialement

Sélection par le clavier dans une combobox en mode Dropdownlist

5 réponses

Votre réponse