[Débutant] Sélections automatiques chekedlistbox

Sélections automatiques chekedlistbox

Bonjour à tous !

Voila je souhaite rajouter une option qui permet de sélectionne tous les items présents dans mes chekedlistbox

En fonctionnement normale l'utilisateur sélectionne un item a l'aide d'un clic sourie et ma courbe est générée grâce à ce code :

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
 
 
'*****************************affichage des courbes selectionnées box_ok***************************
    Private Sub box_ok_SelectedIndexChanged(sender As Object, e As EventArgs) Handles box_ok.SelectedIndexChanged
 
        Dim returnValue As Boolean
        tt = box_ok.SelectedItem
        ps = Mid(tt, 1, 2)
        p = box_ok.SelectedIndex
        returnValue = box_ok.GetItemChecked(p)
 
        If returnValue = True Then
 
            G_courbe.DataSource = dt_fulldata
            G_courbe.Series.Add("Pôle " & ps)
 
            If type_select = 1 Then
                G_courbe.Series("Pôle " & ps).YValueMembers = ps - 1
            ElseIf type_select = 2 Then
                G_courbe.Series("Pôle " & ps).YValueMembers = ps / 2 - 1
            ElseIf type_select = 3 Then
                G_courbe.Series("Pôle " & ps).YValueMembers = (ps + 1) / 2 - 1
            End If
 
            G_courbe.Series("Pôle " & ps).ChartType = SeriesChartType.Line
            G_courbe.Series("Pôle " & ps).BorderWidth = 3
            G_courbe.DataBind()
 
        Else
 
                G_courbe.Series.Remove(G_courbe.Series.FindByName("Pôle " & ps))
            G_courbe.DataBind()
 
        End If
 
    End Sub

Maintenant j'ai rajouté un bouton permettant de sélectionner tous les items présents
Donc j'ai commencé à chercher et je suis parti sur ce code :

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
 
 
 '*******************************boutton de selection de toutes les courbes*****************************
    Private Sub B_select_all_Click(sender As Object, e As EventArgs) Handles B_select_all.Click
        i = 0
        x_ok = box_ok.Items.Count 'récupère le nb d'items de la liste box_ok
        x_ko = box_ko.Items.Count 'récupère le nb d'items de la liste box_ko
        Do
            If Not i >= x_ok Then
                box_ok.SetItemChecked(i, True) 'selection des l'items de box_ok
                i = i + 1
            Else
                Exit Do
            End If
        Loop
        i = 0
        Do
            If Not i >= x_ko Then
                box_ko.SetItemChecked(i, True) 'selection des l'items de box_ko
                i = i + 1
            Else
                Exit Do
            End If
        Loop
    End Sub

Donc à partir de la mes items se sélectionnes
mais il se sélectionne seulement et mon

Code:

Private Sub box_ok_SelectedIndexChanged(sender As Object, e As EventArgs) Handles box_ok.SelectedIndexChanged

ne réagi pas.

je n'arrive pas a trouver quoi insérer dans ma boucle pour appeler ce sub :?

Quelqu’un aurait-il une idée ?

Merci d'avance.

Alors petit complément j'ai modifier mon code avec un bouton pour chaque checklistbox

j'ai testé ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 '*****************************Boutton de sélection de toutes les courbes ok*****************************
    Private Sub B_select_all_ok_Click(sender As Object, e As EventArgs) Handles B_select_all_ok.Click
        i = 0
        x_ok = box_ok.Items.Count 'récupère le nb d'items de la liste box_ok
 
        Do
            If Not i >= x_ok Then
                box_ok.SetItemChecked(i, True) 'sélection des l'items de box_ok
                'box_ok_SelectedIndexChanged(?, ? )
                i = i + 1
            Else
                Exit Do
            End If
        Loop
    End Sub

J'ai essayé avec diverse argument,mais je ne trouve pas quoi mettre.

Bonjour,

C'est un comportement normal. L'évènement SelectedIndexChanged est levé lorsqu'un item est sélectionné. Utilise l'évènement ItemCheck plutôt.

Bonjour Ebastien,

Merci pour ta réponse, effectivement je suis partie sur cette solution

Je voulais éviter de rajouter des lignes de code et réutiliser le sub existant mais bon en fin de compte le rajout étais vite faite.

Bonne journée.