Saisie semi-automatique

Soyez le premier à donner votre avis sur cette source.

Vue 8 180 fois - Téléchargée 721 fois

Description

Ce code sert a faire comme sur Netscape, quand vous taper un certain nombre de caractère il vous donne une fin possible a partir d'une URL que vous avez déjà taper au paravant. L'exemple est avec un ListBox & TextBox, mais vous pouvez le remplacer par un Array, Collection etc.....

ATTENTION : Tjr utiliser ce code dans le KeyPress du textbox

Source / Exemple :


Public Function TrouveFin(cTextBox As TextBox, KeyCode As Integer, cList As ListBox, Optional Sensibility As Long = 1)
    '**************************************
    'Attention, ce code doit être placer  *
    'dans un le KeyUp d'un TextBox, vous  *
    'Pouvez facilement le remplacer par un*
    'Array ou un Collection etc...        *
    '**************************************
    Dim a As Long, b As Long
    If cTextBox.Text = vbNullString Or KeyCode = 8 Or Len(cTextBox) < Sensibility Then Exit Function 'Pour ne pas le faire inutilement
    b = cTextBox.SelStart 'Enregistrer le selstart
    For a = 0 To cList.ListCount - 1 'Scan tout le ListBox pour trouvé une chaine ressemblante
        If cList.List(a) Like cTextBox.Text & "*" Then 'Si elle ressemble
                With cTextBox 'Propriété ratacher au TextBox
                    .Text = cList.List(a) 'Texte a afficher
                    .SelStart = b 'Assurer que sa se mêle pas
                    .SelLength = Len(.Text) - b 'Pour selectionner
                End With
            Exit Function
        End If
    Next a
End Function

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    TrouveFin Text1, KeyCode, List1, 3 '3 caractère minimum avant de proposé
End Sub

Conclusion :


:-)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
30
Date d'inscription
mardi 21 mars 2006
Statut
Membre
Dernière intervention
3 décembre 2007

c'est vraiment super, ca m'aide bien
Messages postés
264
Date d'inscription
mercredi 16 avril 2003
Statut
Membre
Dernière intervention
23 mars 2012

Bonjour, je voudrais savoir s'il est possible de faire la meme chose , mais avec un listview qui contient des subitems. Si oui comment faire ..



Merci
DraaFil
Messages postés
629
Date d'inscription
mercredi 3 juillet 2002
Statut
Membre
Dernière intervention
9 octobre 2006

Excellent ! je vais me lancer dans un gros travail, convertir une appli QBasic faite y'a 3 ans en VB... et j'avais déjà fait la saisie "semi-automatique" (c'est le nom).
Le truc utile à prévoir, c'est à la validation/sauvegarde... tout dépend de l'appli que vous faites, de sauvegarder les textes tapés dans le registre, un ini...
IE fait ça :
- on tape une url http://iubito.free.fr, le site existe donc IE sauvegarde l'url quelque part.
- si on tape une url qui n'existe pas http://nexistepas.prout.fr, on a une "page non trouvée" et l'url n'est pas sauvegardé.
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008

IE le fait aussi ;)

c bien...moins compliqué que les autres que j'ai vu, 8/10

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.