selection automatique ListBox

Version imprimable

16/09/2009, 17h18
djdjo59

selection automatique ListBox
Bonjour,

j'ai une listbox nommée ListReserves, et une listBox appelé ListAAnnuler,

ce que je veux faire c'est que lrosque je selectionne le nom "Bonv" ça me sélectionne automatiquement les 3 lignes qui suivent donc Jo 22 rue belterre et le numéro.

http://img180.imageshack.us/img180/3...stitrew.th.jpg

voici un code trouvé sur internet
Code:

1 2 3 4 5 Dim Itemm As Int32 If Itemm > 0 Then ListReserves.SelectedItem = Itemm - 3 End If
j'ai essayer d'autre codes mais rien n'y fait !! ça me sélectionne seulement "Bonv"

comment faire? merci de votre aide !

Bonjour djdjo59

Pour sélectionner tout le listbox il faut modifier le mode de sélection :
il faut aller dans la propriété du listbox puis modifier SelectionMode : one en
SelectionMode : MultiSimple.
Ensuite, il faut mettre le code suivant dans votre listbox :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'vérification de l'index sélectionné' Dim selection As String selection = ListBox1.SelectedIndex.ToString() 'si l'index 0 est sélectionné, tout le listbox est sélectionné' If Selection = 0 Then Dim number_items As Long number_items = ListBox1.Items.Count.ToString() Dim setpe As Integer For setpe = 0 To number_items - 1 ListBox1.SelectedIndex = setpe Next setpe

Merci

si j'ai bien compris pour ne sélectionner que les 3 lignes suivantes je dois écrire

Code:

1
2
3
4
5
6
7
        If Selection = 0 Then
            Dim number_items As Long
            number_items = ListBox1.Items.Count.ToString(3)
            Dim setpe As Integer
            For setpe = 0 To number_items - 3
                ListBox1.SelectedIndex = setpe
            Next setpe

Rebonjour

Il faut prendre le code en entier car la première partie permet de savoir le nombre d'items que contient votre listbox. Cela vous permet également de rajouter des items qui seront aussi sélectionnées.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 'vérification de l'index sélectionné' Dim selection As String selection = ListBox1.SelectedIndex.ToString() 'si l'index 0 est sélectionné, tout le listbox est sélectionné' If Selection = 0 Then Dim number_items As Long number_items = ListBox1.Items.Count.ToString() Dim setpe As Integer For setpe = 0 To number_items - 1 ListBox1.SelectedIndex = setpe Next setpe end if

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ListReserves.Items.AddRange(System.IO.File.ReadAllLines("c:\journal.txt")) 'FileOpen(1, "c:\journal.txt", OpenMode.Input) 'ListReserves.Items.Add(tableau(i).Nom & " " & tableau(i).Prenom) 'vérification de l'index sélectionné' Dim selection As String selection = ListReserves.SelectedIndex.ToString() 'si l'index 0 est sélectionné, tout le listbox est sélectionné' If selection = 0 Then Dim number_items As Long number_items = ListReserves.Items.Count.ToString() Dim setpe As Integer For setpe = 0 To number_items - 1 ListReserves.SelectedIndex = setpe Next setpe End If
le premier code me sert pour lire le contenu du fichier,
le code par la suite fonctionne, enfin je pense je peux sélectionner plusieurs données en cliquant sur chaque en ayant modifier la propriété en Multsimple

mais ce que je veux vraiment c'est quand je clique sur la 1ere donnée, ça me sélectionne automatiquement les 3 lignes qui suivent, sans que j'ai besoin d'aller y cliquer

j'aie ssayé en modifiant le - 1 en - 3 mais rien ne change, apres peut être que je fais mal (surement même !)

Je pense que j'ai trouvé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ListReserves.Items.AddRange(System.IO.File.ReadAllLines("c:\journal.txt"))

        'récupération de l'index'
        Dim select_index As Integer
        select_index = ListReserves.SelectedIndex.ToString()

        If select_index = select_index Then
            Dim base As Integer
            For base = 0 To 3
                ListReserves.SelectedIndex = select_index + 2
                ListReserves.SelectedIndex = select_index + 1
            Next
        End If

17/09/2009, 19h13
Shadex

Pas de problème.

Et bonne continuation :ccool:

Sinon j'ai testé ce code il permet de sélectionner seulement les 3 items en cliquant sur l'item 0 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
'vérification de l'index sélectionné'
        Dim selection As String
        selection = ListBox1.SelectedIndex.ToString()

        'si l'index 0 est sélectionné, tout le listbox est sélectionné'
        If selection = 0 Then
            Dim setpe As Integer
            For setpe = 0 To 2
                ListBox1.SelectedIndex = setpe
            Next setpe
        End If

17/09/2009, 19h25
Shadex

Ce code fonctionne ?
17/09/2009, 19h27
djdjo59

je teste

super !! :p
merci !

mais je viens de réagir, enfaite voilà comment se compose ma liste box (ce sont des essaie donc ....)
http://img146.imageshack.us/img146/2368/sanstitrefa.jpg

et le code fonctionne très bien lorsque je clique sur la 1ere ligne, mais si je veux cliquer sur Mascot par exemple, la ça ne fonctionne pas..
donc il faudrait mettre en place une variable dans le code qui détecte la ligne que l'ont sélectionne pour que la sélection se fasse la ou il le faut non ?

EDIT:

si je met
Code:

1 2 3 4 5 6 7 8 9 10 11 'vérification de l'index sélectionné' Dim selection As String selection = ListReserves.SelectedIndex.ToString() 'si l'index 0 est sélectionné, tout le listbox est sélectionné' If selection = ListReserves.SelectedItem Then Dim setpe As Integer For setpe = 0 To 3 ListReserves.SelectedIndex = setpe Next setpe End If
ça n'ira pas?

17/09/2009, 19h38
Shadex

Sinon vous avez raisons, il faut mettre une variable qui permet d'indiquer l'index sélectionné.

Je pense que j'ai trouvé : vous pouvez aller voir le code à la page suivante.
17/09/2009, 19h40
djdjo59

nom, je ne pense pas ! en tout cas je n'ai pas toucher à ses propriété hormis pour la multisimple
après peut etre que ce que je demande est impossible !
17/09/2009, 19h57
djdjo59

ne fonctionne pas :( j'ai compris le code enfin l'astuce mais je ne vois pas pourquoi ça ne veut pas, pourtant ça ma l'air correct et logique !

Je pense que j'ai trouvé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ListReserves.Items.AddRange(System.IO.File.ReadAllLines("c:\journal.txt"))

        'récupération de l'index'
        Dim select_index As Integer
        select_index = ListReserves.SelectedIndex.ToString()

        If select_index = select_index Then
            Dim base As Integer
            For base = 0 To 3
                ListReserves.SelectedIndex = select_index + 2
                ListReserves.SelectedIndex = select_index + 1
            Next
        End If

17/09/2009, 20h11
djdjo59

:D ça fonctionne !! mais alors peux tu m'expliquer le fonctionnement de ListReserves.SelectedIndex = select_index + 1 ?
à quoi il sert ?
17/09/2009, 20h15
Shadex

Quand je sélectionné la première partie il me sélectionné l'item 1 à partir de l'item sélectionné puis il me sélectionné le dernier mais pas le deuxième, alors j'ai rajouté (ListReserves.SelectedIndex = select_index + 1) pour pouvoir sélectionner le deuxième item.
17/09/2009, 20h16
Shadex

C'est difficile à expliquer, j'ai du faire un schéma sur papier pour pouvoir trouver.

Voilà le premier code que j'ai développé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
ListReserves.Items.AddRange(System.IO.File.ReadAllLines("c:\journal.txt"))
 
        'récupération de l'index'
        Dim select_index As Integer
        select_index =ListReserves.SelectedIndex.ToString()
 
        If select_index = select_index Then
            Dim base As Integer
            For base = 0 To 3
                ListReserves.SelectedIndex = select_index + 2
            Next
        End If

Comme on peut le constater il ne sélectionne que l'item 1 et l'item 3 à partir de la sélection.

17/09/2009, 20h23
djdjo59

ok je vois :s lol donc incompréhensible pour moi !! je vais essayé de trouver, j'ai remarqué qu'en modifiant le 2 en 3 et le 1 en 2 quand je cliqué sur bonv il me le sélectionné ainsi que les 2 dernier, mais johan non..

donc je ne comprend pas trop la logique du logiciel la :s
17/09/2009, 20h26
Shadex

Je cherche une autre solution plus stable.
17/09/2009, 20h38
djdjo59

ok merci beaucoup :)
je vais chercher aussi de mon côté
17/09/2009, 20h38
Shadex

:alerte:Voila une petite théorie du fonctionnement de ce code :
je confirme cette théorie

On rajoute ListReserves.SelectedIndex = select_index + 1 car le tout premier index commence à partir de 0. Le fait de mettre ListReserves.SelectedIndex = select_index + 2 va permettre de délimiter la zone de sélection. Ensuite le ListReserves.SelectedIndex = select_index + 1 permet de remplir la zone de sélection.
17/09/2009, 20h47
djdjo59

hum hum je comprend un peu mieux
je vais essayer de trouver de mon côté le code qui permet de supprimer les données sélectionnées, parce que la ça ne me supprime que la données sur laquelle 'jai cliqué, pas les autres

j'ai le bon code mais il me supprime ligne par ligne et pas le bloc de 3.. enfin ça j'essaierai de m'en charger, vous m'avez déjà aider à bien avancer !!
dites moi pour un code plus stable dès que vous avez, je suis toujours preneur :)
17/09/2009, 20h53
Shadex

Il n'y a pas de problème. Cela a été un grand plaisir de vous aidez.:ccool:
Finalement je pense que ce code est stable car j'ai réussi à faire une schéma très compréhensible, ce code est logique pour moi mais si j'ai mieux je vous fais signe.
17/09/2009, 20h57
djdjo59

ok, merci beaucoup :)
je n'aurais jamais trouver seul !!
:D

Avant de vous quittez j'ai fait un code stable :

Voici un code stable pour sélectionner 4 items n'importe où dans un listbox. Ce code permet de comprendre son fonctionnement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  'Ce code est valide pour sélectionner 4 items dans un listbox'
        ListBox1.Items.AddRange(System.IO.File.ReadAllLines("c:\journal.txt"))
        'récupération de l'index'
        Dim select_index As Integer
        select_index = ListBox1.SelectedIndex.ToString()

        'si l'index sélectionné est égal à lui alors on sélectionné tous ce qui doit être sélectionné'
        If select_index = select_index Then
            'cette partie permet de changer le mode de sélection'
            ListBox1.SelectionMode = SelectionMode.MultiSimple

            'Pour sélectionner plus ou moins il faut changer la valeur 3 à côté du To en sachant que les index commencent à 0'
            Dim boucle As Integer
            For boucle = 0 To 3
                'cette partie permet de délimiter la zone de sélection'
                ListBox1.SelectedIndex = select_index + boucle
                'Voici tous les index sélectionnés : 0 + 1 + 2  + 3 (dans cette partie on a les 4 index qui doivent être sélectionnées)'
            Next boucle
End If

Un code stable pour sélectionner 3 items dans un listbox :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Ce code est valide pour sélectionner 3 items dans un listbox'
       ListReserves.Items.AddRange(System.IO.File.ReadAllLines("c:\journal.txt"))
        'récupération de l'index'
        Dim select_index As Integer
        select_index = ListReserves.SelectedIndex.ToString()

        'si l'index sélectionné est égal à lui alors on sélectionné tous ce qui doit être sélectionné'
        If select_index = select_index Then
            'cette partie permet de changer le mode de sélection'
            ListReserves.SelectionMode = SelectionMode.MultiSimple

            'Pour sélectionner plus ou moins il faut changer la valeur 2 à côté du To en sachant que les index commencent à 0'
            Dim boucle As Integer
            For boucle = 0 To 2
                'cette partie permet de délimiter la zone de sélection'
                ListReserves.SelectedIndex = select_index + boucle
                'Voici tous les index sélectionnés : 0 + 1 + 2  (dans cette partie on a les 3 index qui doivent être sélectionnées)'
            Next boucle
End If

Aller merci d'avoir suivis mes conseils et à bientôt.

18/09/2009, 13h14
djdjo59

heyy ça fonctionne super bien !

Maintenant je dois trouver comment lorsque je clique sur "supprimer" il déplace les 4 dans la listbox Annuler et qu'il supprime les 4 d'un cou de la listbox Reservés !!

merci beaucoup pour l'aide !!
18/09/2009, 15h00
Shadex

Bonjour djdjo59

Finalement vous voulez toujours prendre 3 items ou 4 items ? Parce que vous avez dit 4 dans le dernier message.

Voila le code à mettre dans votre bouton : (valide pour la sélection de 4 items)

Fonctionnement des deux codes : ils permettent de déplacer la sélection dans le ListAAnuler et de supprimer votre sélection dans le ListReserves.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 'ici j'obtient le nombre maximal d'items qui est contenues dans le ListReserves'
        Dim max_item As Integer
        max_item = ListReserves.Items.Count.ToString()
        'ici j'obtient l'index qui vient d'être séléctionné'
        Dim index_select As Integer
        index_select = ListReserves.SelectedIndex.ToString()

        Dim checked_items As Integer
        For checked_items = 0 To max_item
            'ici je regarde tous les items du ListReserves qui sont sélectionnés'
            If ListReserves.SelectedIndex = checked_items = True Then
                Dim name_item0 As String
                name_item0 = ListReserves.SelectedItem.ToString()
                'je créer une boucle pour pouvoir énumérer les autres index de la sélection'
                'tous mes index sélectionnés sont énumérer ici'
                'variable de la boucle'
                Dim other_index As Integer
                'variable des index énumérés'
                Dim name_item1 As Integer
                'variable qui indique le nom de l'index énuméré'
                Dim name_of_item As String

                For other_index = 0 To 3
                    name_item1 = index_select + other_index
                    'ici je récupère le nom des index sélectionnés'
                    name_of_item = ListReserves.Items(name_item1)
                    'ici j'écris le nom des items dans le ListAAnuler'
                    ListAAnnuler.Items.Add(name_of_item)
                Next other_index
            End If
        Next checked_items
        'ici je supprime les index sélectionnés'
        'pour cela je dois faire une boucle pour supprimer l'index qui sera sélectionné 4 fois'
        Dim boucle_suppr As Integer
        For boucle_suppr = 0 To 3
            ListReserves.Items.RemoveAt(index_select)
        Next boucle_suppr

ou

Sinon si c'est pour 3 items sélectionnés vous pouvez utiliser ce code :
(ce code est à mettre dans le bouton)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
'ici j'obtient le nombre maximal d'items qui est contenues dans le ListReserves'
        Dim max_item As Integer
        max_item = ListReserves.Items.Count.ToString()
        'ici j'obtient l'index qui vient d'être séléctionné'
        Dim index_select As Integer
        index_select = ListReserves.SelectedIndex.ToString()

        Dim checked_items As Integer
        For checked_items = 0 To max_item
            'ici je regarde tous les items du ListReserves qui sont sélectionnés'
            If ListReserves.SelectedIndex = checked_items = True Then
                Dim name_item0 As String
                name_item0 = ListReserves.SelectedItem.ToString()
                'je créer une boucle pour pouvoir énumérer les autres index de la sélection'
                'tous mes index sélectionnés sont énumérer ici'
                'variable de la boucle'
                Dim other_index As Integer
                'variable des index énumérés'
                Dim name_item1 As Integer
                'variable qui indique le nom de l'index énuméré'
                Dim name_of_item As String

                For other_index = 0 To 2
                    name_item1 = index_select + other_index
                    'ici je récupère le nom des index sélectionnés'
                    name_of_item = ListReserves.Items(name_item1)
                    'ici j'écris le nom des items dans le ListAAnuler'
                    ListAAnnuler.Items.Add(name_of_item)
                Next other_index
            End If
        Next checked_items
        'ici je supprime les index sélectionnés'
        'pour cela je dois faire une boucle pour supprimer l'index qui sera sélectionné 4 fois'
        Dim boucle_suppr As Integer
        For boucle_suppr = 0 To 2
            ListReserves.Items.RemoveAt(index_select)
        Next boucle_suppr

Bon test et merci de me tenir au courant si ce code correspond ou pas à votre demande :ccool: