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

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

Ce code fonctionne ?

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?

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.

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 !

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

:D ça fonctionne !! mais alors peux tu m'expliquer le fonctionnement de ListReserves.SelectedIndex = select_index + 1 ?
à quoi il sert ?

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.

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.

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