Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 20:55:00

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par casy

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

RE : FORMAT PERSONNEL DANS UN TEXTBOX. par PCPT

RE : FORMAT PERSONNEL DANS UN TEXTBOX. par sancho12345

+ de logiciels à télécharger

1 464 846 membres
338 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 302 999 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SUPPRIMER LES DOUBLONS D'UNE LISTBOX

Information sur la source

Catégorie :Control Niveau : Débutant Date de création : 23/07/2003 Date de mise à jour : 29/02/2004 19:03:38 Vu : 7 749

Auteur : DiJiTooL

Site perso

Ecrire un message privé

Note :

6,00 / 10

Commentaire sur cette source (16)

Ajouter un commentaire et/ou une note

Description

J'avais du mal à supprimer les items en doubles dans une listbox donc j'ai cherché comment faire et j'ai trouvé ce ptit bout de code =), ça n'est pas de moi mais ça peut servir a certain (comme moi par exemple :p)
la source est de Fredrik Schultz lol merci a lui

Source

Private Sub SupDoubles(lst As ListBox)
Dim iPos As Integer
iPos = 0
'Si la listbox est vide il quitte la fonction
If lst.ListCount < 1 Then Exit Sub
Do While iPos < lst.ListCount
lst.Text = lst.List(iPos)
'Verifie si le text existe deja
If lst.ListIndex <> iPos Then
'Si c'est le cas il supprime et garde la position iPos...
lst.RemoveItem iPos
Else
'Si ce n'est pas le cas il change la position iPos...
iPos = iPos + 1
End If
Loop
'Utiliser pour désélectionner la dernière ligne
lst.Text = "-"
End Sub

Private Sub SupDoubles(lst As ListBox)
    Dim iPos As Integer
    iPos = 0
    'Si la listbox est vide il quitte la fonction
    If lst.ListCount < 1 Then Exit Sub

    Do While iPos < lst.ListCount
        lst.Text = lst.List(iPos)
        'Verifie si le text existe deja

        If lst.ListIndex <> iPos Then
            'Si c'est le cas il supprime et garde la position iPos...
            lst.RemoveItem iPos
        Else
            'Si ce n'est pas le cas il change la position iPos...
            iPos = iPos + 1
        End If
    Loop
    'Utiliser pour désélectionner la dernière ligne
    lst.Text = "-"
End Sub

Conclusion

Donc pour l'utiliser il suffit d'apeller la fonction:

SupDoubles MaListbox

voilou codez bien ^^

Sources du même auteur

SUPPRIME LE MOUCHARD DE WINDOWS ET D'ICQ

DIJILEDS

Toutes les sources de DiJiTooL

Sources de la même categorie

LABEL ET IMAGE DANS TEXTBOX par gillardg

GRADIENTDIALOG - SÉLECTION DE DÉGRADÉS LINÉAIRES par Mayzz

EXLISTVIEW- LISTVIEW PERSONNALISÉ par Mayzz

VB6-INNO-WIZARD par cdbi

BOUTON SOUS PLUSIEURS FORME par noah56

Toutes les sources de la catégorie Control

Commentaires et avis

Commentaire de BruNews le 24/07/2003 00:14:21 administrateur CS

API SendMessage avec LB_FINDSTRINGEXACT sera au moins 10 fois + rapide.

Commentaire de max12 le 24/07/2003 01:40:23 administrateur CS

Faudrais que tu donne la valeur

Commentaire de DiJiTooL le 24/07/2003 03:38:17

brunews exprime toi lol

Commentaire de azerty25 le 13/11/2003 13:09:44

Salut

Cette source est interessante, elle va m'etre utile :-) Merci !
Sinon BruNews, ton API, tu es sur que sa n'est pas du CPP ? j'ai fait une recherche et je suis tombé sur plein de sites de CCP mais pas de VB (g pas fait tte la liste aussi)

Commentaire de salazar le 03/02/2005 15:10:26

Comment gères tu les éventuelles fautes d'orthographe ?
Si le mot que tu cherches existe avec une syntaxe différente, que fais tu ?

exemple :
mot existant = l'été indien
mot recherché = été indien
mot recherché = L'été indien
mot recherché = étés indiens...

Comment réagit ton programme ? En dehors du fait que si ta liste contient 10.000 items la recherche n'est pas finie...

Connais tu les API ? Comme le dit BruNews, l'API est sendMessage() et la constante pourrait etre LB_FINDSTRINGEXACT ou LB_FINDSTRING...

Commentaire de Ricky65 le 01/03/2007 14:28:52

Merci pour ce code qui correspond tout a fait à ce que je recherchais !

Commentaire de pico57 le 14/04/2007 10:53:47

Cool ce code, merci

Commentaire de pico57 le 19/05/2007 17:01:07

j'ai pas mal utilisé cette fonction, mais si il y a beaucoup d'enregistrement, je vous conseille de stocker les lignes dans un tableau, de trier ce tableau afin que les doublonc se suivent, et ensuite, on prend une ligne après l'autre et si elle est différente de la ligne précédente, alors on ajoute la ligne en question.
exemple :
Array.Sort(tabel)
                cb1.Items.Add(tabel(0))
                For compteur = 1 To tabel.Length - 1
                    If tabel(compteur) <> tabel(compteur - 1) Then
                        cb1.Items.Add(tabel(compteur))
                    End If
                Next

vala

Commentaire de ZLASSI le 28/09/2007 07:46:20

Bonjour à tous,
Je veux contrôler les éléments qui je vais passer dans ma listbox: ce contrôle va éviter les doublons
==> voila ce que j'ai écrit mais j'ai pas réussit :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim LV As New ListViewItem
        Dim I As Integer
        For I = 0 To ListBox1.Items.Count - 1
            If Label1.Text = ListBox1.Items.Item(I) Then
                MsgBox("Existe", MsgBoxStyle.Critical, "test")
            Else
                ListBox1.Items.Add(TextBox1.Text)
            End If
        Next
    End Sub

Commentaire de Renfield le 28/09/2007 08:51:09 administrateur CS

j'ai allumé mon VS2005, j'ai code un truc, je m'apercois que tu ne fais pas du .NET, c'est pas possible !!

    Private Sub AddUniqueItem(ByRef vsItem As String, ByRef voDest As ListBox)
        If Not voDest.Items.Contains(vsItem) Then
            voDest.Items.Add(vsItem)
        End If
    End Sub

y'a deja tout ce qu'il faut pour tester la présence d'un Item ...

Commentaire de DiJiTooL le 29/09/2007 10:11:01

Si tu regarde la date tu comprendra peut être pourquoi c'est pas du .Net ....

Commentaire de Renfield le 30/09/2007 10:41:18 administrateur CS

2003 ? .Net était sortit, en 2003 :p (me semble)

Commentaire de DiJiTooL le 30/09/2007 19:16:31

lol j'était trop jeune alors =) hihi

Commentaire de kelm_by le 08/04/2008 23:28:40

Private Function supdoubl(x As ListBox)
For y = 0 To x.ListCount - 1
    For z = y + 1 To x.ListCount - 1
        If x.List(y) = x.List(z) Then x.RemoveItem (z)
    Next z
Next y
end function

Commentaire de Renfield le 09/04/2008 06:48:11 administrateur CS

comme BruNews le disais:

Private Const LB_FINDSTRINGEXACT As Long = &H1A2
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Private Sub RemoveDuplicates(ByRef voListbox As VB.ListBox)
Dim i As Long
Dim nFind As Long
Dim sItem As String
    If Not Nothing Is voListbox Then
        If voListbox.ListCount Then
            sItem = voListbox.List(0)
            Do While i < voListbox.ListCount
                nFind = SendMessage(voListbox.hwnd, LB_FINDSTRINGEXACT, i, ByVal sItem)
                If nFind > i Then
                    voListbox.RemoveItem nFind
                Else
                    i = i + 1
                    sItem = voListbox.List(i)
                End If
            Loop
        End If
    End If
End Sub