Discussion :

[djdjo59]

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]

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]

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]

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]

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]

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]

Pas de problème.

Et bonne continuation