1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Texte
  5. Compléter un mot pendant la saisie en fonction des données d'une combobox

Compléter un mot pendant la saisie en fonction des données d'une combobox

0/5 (7 avis)

Vue 16 972 fois - Téléchargée 3 310 fois

Télécharger le projet
Commenter

Description

Vous avez une ComboBox remplit de données issues de votre base de données et vous voulez completer la saisie au lieu de dérouler la ComboBox pour chercher votre donnée.
Voilà le code VB ...

Source / Exemple : 


' M O D U L E 
'--------------------------------------------------------------------------------
' www.idev.fr.st
'
' Syntax
' ------
' In the CHANGE event of your ComboBox, put in the following line
'     iSenseChange YourComboBoxName
' Where "YourComboBoxName" is the name of the ComboBox associated with the event.
'
' In the KEYPRESS event of your ComboBox, put in the following line
'     iSenseKeyPress YourComboBoxName, KeyAscii
' Where "YourComboBoxName" is the name of the ComboBox associated with the event.'
'
' ADAPTED FROM :
'--------------------------------------------------------------------------------
' IntelliSense for VB the TextBox Control.
' Danny Young
' dan@mydan.com
' http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=9313&lngWId=1
'--------------------------------------------------------------------------------
Option Explicit

Global WasDelete As Boolean

Public Function IntelliSense(cBox As ComboBox, AddRecord As Boolean) As String
    Dim i As Integer
   
    Dim Done As Boolean
    
    If AddRecord Then
        'Pour ajouter le texte dans la ComboBox
        'cBox.AddItem cBox.Text
    Else
'        For i = 0 To cBox.ListCount And Done = False
        For i = cBox.ListCount To 0 Step -1 And Done = False
            If UCase(cBox.Text) = Mid(RTrim(UCase(cBox.List(i))), 1, Len(cBox.Text)) Then
                IntelliSense = RTrim(cBox.List(i))
            End If
        Next i
    End If

End Function

Public Sub iSenseChange(cBox As ComboBox)
    Dim iStart As Integer
    Dim iSense As String
    
    iStart = cBox.SelStart
    iSense = IntelliSense(cBox, False)
    If iSense <> "" And Not WasDelete Then
        cBox.Text = iSense
        cBox.SelStart = iStart
        cBox.SelLength = Len(cBox.Text) - iStart
    End If
End Sub

Public Sub iSenseKeyPress(cBox As ComboBox, KeyAscii As Integer)
    If KeyAscii = 13 And cBox.Text <> "" Then
        IntelliSense cBox, True
    ElseIf KeyAscii = 8 Then
        WasDelete = True
    Else
        WasDelete = False
    End If
End Sub

Conclusion :


Après avoir longtemps cherché ce type de source, j'ai enfin trouvé.
Une adaptation a été faite pour associer ce code à une ComboBox.
Le source original était associé à une TextBox lisant les données dans un fichier.
Merci à Danny Young pour son source posé sur http://www.planet-source-code.com
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
bakhi30
Messages postés
1
Date d'inscription
lundi 15 septembre 2008
Statut
Membre
Dernière intervention
17 septembre 2008
17 sept. 2008 à 13:39
Merci bien
j'ai assaié de faire ça depuis longtemp mais j'ai pas pu avec niveau professionel
testez_vb
Messages postés
4
Date d'inscription
samedi 6 mars 2004
Statut
Membre
Dernière intervention
17 août 2005
7 sept. 2005 à 14:16
salut
merci pour ce code qui est trés utile, mais est ce que il existe des methodes pour eleminer les doublons de cette combobox
et merci
said.saadani@gmail.com
cs_parecci
Messages postés
33
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
5 juin 2009
2 juil. 2005 à 12:55
ci on creent un editeur de texte en peut le faire avec des mot ini ou txt ?
thekissman
Messages postés
33
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
28 juillet 2004
23 mai 2003 à 10:13
Je voudrai bien connaître la nouvelle version !
cs_idev
Messages postés
3
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
19 juin 2003
1 avril 2003 à 20:53
Nouvelle version du source.
Merci à Samisamu pour ses suggestions.
Afficher les 7 commentaires
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_idev)