Saisie semi-automatique

4/5 (4 avis)

Vue 8 778 fois - Téléchargée 755 fois

Télécharger le projet
Commenter

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 :


:-)
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
big wallace Messages postés 30 Date d'inscription mardi 21 mars 2006 Statut Membre Dernière intervention 3 décembre 2007
23 nov. 2007 à 14:34
c'est vraiment super, ca m'aide bien
DraaFil Messages postés 264 Date d'inscription mercredi 16 avril 2003 Statut Membre Dernière intervention 23 mars 2012
8 sept. 2006 à 02:02
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
cs_iubito Messages postés 629 Date d'inscription mercredi 3 juillet 2002 Statut Membre Dernière intervention 9 octobre 2006
5 janv. 2003 à 14:05
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é.
cs_Nox Messages postés 415 Date d'inscription mardi 3 avril 2001 Statut Membre Dernière intervention 26 avril 2008
5 janv. 2003 à 05:36
IE le fait aussi ;)

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

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.

Du même auteur (cs_max12)