DLL COMBOSENSE , LE COMBOBOX À SAISIE SEMI-AUTOMATIQUE PARFAIT !

Signaler
Messages postés
589
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
29 avril 2008
-
cs_Nico52
Messages postés
35
Date d'inscription
vendredi 20 février 2004
Statut
Membre
Dernière intervention
11 mai 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/23147-dll-combosense-le-combobox-a-saisie-semi-automatique-parfait

cs_Nico52
Messages postés
35
Date d'inscription
vendredi 20 février 2004
Statut
Membre
Dernière intervention
11 mai 2007

Faux en VB6 C'est pas plus long !!

Static NoSelectText As String ' texte tapé par l'utilisateur
Dim ia As Long ' compteur de boucle
Const RGBerror = 255 ' couleur du fond en cas d'erreur


With TxtClient '<== SEULE LIGNE A MODIFIER

' touche que l'on ne doit pas gérer dans cette procedure
If KeyCode = vbKeyUp Then Exit Sub ' utilisé par VB
If KeyCode = vbKeyDown Then Exit Sub ' utilisé par vb
If KeyCode = vbKeyLeft Then Exit Sub ' pour se déplacer
If KeyCode = vbKeyRight Then Exit Sub ' pour se déplacer

' action spéciale pour la touche BACK
If KeyCode <> vbKeyBack Then
NoSelectText = Mid(.Text, 1, Len(.Text) - .SelLength)
Else
If NoSelectText <> "" Then
NoSelectText = Mid(NoSelectText, 1, Len(NoSelectText) - 1)
End If
End If

' recherche de la correspondance
For ia = 0 To .ListCount - 1
If UCase(NoSelectText) = UCase(Mid(.List(ia), 1, Len(NoSelectText))) Then
.ListIndex = ia
Exit For
End If
Next

' selection de la partie que l'on a rajouté automatiquement
.SelStart = Len(NoSelectText)
.SelLength = Len(.Text)
End With
rapatonilabo
Messages postés
1
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
19 avril 2006

Bonjour à tous!

Une petite question idiote de novice en la matière:
Comment est ce que je peux utiliser ce control combobox sur mon classeur excel????? Quels fichiers utiliser parmis la multitude que l'on trouve dans le fichier .zip???
J'attends avec impatience votre réponse ô maitres de la programmation car ce code m'intéresse vraiment bcp!!!

Merci
cs_Nonos
Messages postés
4
Date d'inscription
mardi 1 mai 2001
Statut
Membre
Dernière intervention
4 février 2006

GOTO --> .NET2
AutoCompleteMode (Suggest)
capuccino_fr
Messages postés
113
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
11 février 2008

nickel ;) 8/10