selection automatique ListBox

**djdjo59** · 16/09/2009, 17h18

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.

voici un code trouvé sur internet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

**Shadex** · 17/09/2009, 13h33

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**djdjo59** · 17/09/2009, 18h57

Merci

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

?

**Shadex** · 17/09/2009, 19h08

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**djdjo59** · 17/09/2009, 19h10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !)

**Shadex** · 17/09/2009, 19h12

Je pense que j'ai trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Shadex** · 17/09/2009, 19h13

Pas de problème.

Et bonne continuation

**Shadex** · 17/09/2009, 19h21

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Shadex** · 17/09/2009, 19h25

Ce code fonctionne ?

**djdjo59** · 17/09/2009, 19h27

je teste

**djdjo59** · 17/09/2009, 19h33

super !! :p
merci !

mais je viens de réagir, enfaite voilà comment se compose ma liste box (ce sont des essaie donc ....)

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

**Shadex** · 17/09/2009, 19h38

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.

**djdjo59** · 17/09/2009, 19h40

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 !

**djdjo59** · 17/09/2009, 19h57

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 !

**Shadex** · 17/09/2009, 20h03

Je pense que j'ai trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**djdjo59** · 17/09/2009, 20h11

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

**Shadex** · 17/09/2009, 20h15

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.

**Shadex** · 17/09/2009, 20h16

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

**Shadex** · 17/09/2009, 20h21

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**djdjo59** · 17/09/2009, 20h23

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

selection automatique ListBox

VB.NET

Discussions similaires

Partager

Partager