Discussion :

[dragondumond]

Bonjour,

Je voudrai pouvoir changer l'ordre de mes checkbox dans ma CheckedListBox via l'index ou alors grâce à Remove/Insert. Je sais pas comment jouer sur l'index, sinon la solution de Remove/Insert me pose des problemes au niveau de la selection, sa me produit des erreur du type La référence d'objet n'est pas définie à une instance d'un objet.

Voila mon code :

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
18
19
    Private Sub CheckedListBox1_SelectedIndexChanged_1(sender As System.Object, e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged
        If CheckedListBox1.Items.IndexOf(CheckedListBox1.SelectedItem.ToString()).ToString() = "0" Then
            btnMoveUp.Enabled = False
            btnMoveDown.Enabled = True
        ElseIf CheckedListBox1.Items.IndexOf(CheckedListBox1.SelectedItem.ToString()).ToString() = CStr(CheckedListBox1.Items.Count - 1) Then
            btnMoveUp.Enabled = True
            btnMoveDown.Enabled = False
        Else
            btnMoveUp.Enabled = True
            btnMoveDown.Enabled = True
        End If
    End Sub
 
    Private Sub btnMoveDown_Click(sender As System.Object, e As System.EventArgs) Handles btnMoveDown.Click
        Dim Swap As Object = CheckedListBox1.SelectedItem
        btnApply.Enabled = True
        CheckedListBox1.Items.Remove(Swap)
        CheckedListBox1.Items.Insert(CInt(CheckedListBox1.Items.IndexOf(CheckedListBox1.SelectedItem.ToString()).ToString()) + 1, Swap)
    End Sub

Merci d'avance pour vos suggestions !!

[_Ez3kiel]

Je crois qu'il n'y a que le remove/insert comme solution, avec les tests qui vont avec pour éviter les erreurs de référence d'objet non définie blablabla

Ce qui donne un quelque chose de ce genre :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
    Private Sub BttnUp_Click(sender As Object, e As EventArgs) Handles BttnUp.Click
 
        Dim nouvelIndex As Integer
 
        If CheckedListBox1.SelectedIndex <> -1 And CheckedListBox1.SelectedIndex <> 0 Then 'On teste qu'au moins un item est sélectionné et que ce ne soit pas le premier de la liste (car il ne peut pas monter d'un cran ...)
 
            nouvelIndex = CheckedListBox1.SelectedIndex - 1 'On définit le nouvel index voulu
 
            CheckedListBox1.Items.Insert(nouvelIndex, CheckedListBox1.SelectedItem) 'On insére l'item séléctionné à l'index voulu
 
            CheckedListBox1.Items.RemoveAt(CheckedListBox1.SelectedIndex) 'On supprime l'ancien doublon
 
            CheckedListBox1.SelectedIndex = nouvelIndex 'On repositionne la séléction sur l'item
 
        End If
    End Sub
 
    Private Sub BttnDown_Click(sender As Object, e As EventArgs) Handles BttnDown.Click
 
        Dim nouvelIndex As Integer
        Dim ObjABouger As Object
 
        If CheckedListBox1.SelectedIndex <> CheckedListBox1.Items.Count - 1 And CheckedListBox1.SelectedIndex <> -1 Then 'On teste qu'au moins un item est sélectionné et que ce ne soit pas le dernier de la liste
 
            nouvelIndex = CheckedListBox1.SelectedIndex + 1 'On définit le nouvel index voulu
 
            ObjABouger = CheckedListBox1.SelectedItem 'On sauvegarde l'item
 
            CheckedListBox1.Items.RemoveAt(CheckedListBox1.SelectedIndex) 'On le supprime
 
            CheckedListBox1.Items.Insert(nouvelIndex, ObjABouger) 'On le ré-insère
 
            CheckedListBox1.SelectedIndex = nouvelIndex 'on repositione la sélection
 
        End If
    End Sub

Je pense que ce n'est pas la solution la plus optimisé, mais l'idée est là ...

[dragondumond]

J'ai quasi fait la même chose et j'ai réussi a résoudre le problème de mon Event :

Voila mon code :

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
18
19
20
21
22
23
    Private Sub CheckedListBox1_SelectedIndexChanged_1(sender As System.Object, e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged
        Dim Index As Integer = CheckedListBox1.SelectedIndex
        If Index = 0 Then
            btnMoveUp.Enabled = False
            btnMoveDown.Enabled = True
        ElseIf Index = CheckedListBox1.Items.Count - 1 Then
            btnMoveUp.Enabled = True
            btnMoveDown.Enabled = False
        Else
            btnMoveUp.Enabled = True
            btnMoveDown.Enabled = True
        End If
    End Sub
 
    Private Sub btnMoveDown_Click(sender As System.Object, e As System.EventArgs) Handles btnMoveDown.Click
        Dim Index As Integer = CheckedListBox1.SelectedIndex
        Dim Swap As Object = CheckedListBox1.SelectedItem
        btnApply.Enabled = True
        CheckedListBox1.Items.Remove(Swap)
        CheckedListBox1.Items.Insert(Index + 1, Swap)
        CheckedListBox1.SelectedIndex = Index + 1
        'CheckedListBox1.SetSelected(Index + 1, True)
    End Sub

Par contre, quand je déplace ma checkBox sélectionné, si cette checkbox était coché alors il la décoche par défaut et sa fait la même chose avec ton code ^^

[_Ez3kiel]

Par contre, quand je déplace ma checkBox sélectionné, si cette checkbox était coché alors il la décoche par défaut et sa fait la même chose avec ton code ^^

J'ai pas testé ça ...

A toi de récupérer ça avant l'insert/remove

Code :

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

 Dim ItemChecked As Boolean = CheckedListBox1.GetItemChecked(CheckedListBox1.SelectedIndex)

Puis après l'insert/remove

Code :

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

 CheckedListBox1.SetItemChecked(nouvelIndex, ItemChecked)

Pour avoir au final :

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
18
19
20
21
    Private Sub BttnUp_Click(sender As Object, e As EventArgs) Handles BttnUp.Click
 
        Dim nouvelIndex As Integer
        Dim ItemChecked As Boolean = CheckedListBox1.GetItemChecked(CheckedListBox1.SelectedIndex)
 
 
        If CheckedListBox1.SelectedIndex <> -1 And CheckedListBox1.SelectedIndex <> 0 Then 'On teste qu'au moins un item est sélectionné et que ce ne soit pas le premier de la liste (car il ne peut pas monter d'un cran ...)
 
 
            nouvelIndex = CheckedListBox1.SelectedIndex - 1 'On définit le nouvel index voulu
 
            CheckedListBox1.Items.Insert(nouvelIndex, CheckedListBox1.SelectedItem) 'On insére l'item séléctionné à l'index voulu
 
            CheckedListBox1.Items.RemoveAt(CheckedListBox1.SelectedIndex) 'On supprime l'ancien doublon
 
            CheckedListBox1.SelectedIndex = nouvelIndex 'On repositionne la séléction sur l'item
 
            CheckedListBox1.SetItemChecked(nouvelIndex, ItemChecked)
 
        End If
    End Sub

[dragondumond]

Solution au probleme précédent :

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
18
19
20
21
    Private Sub btnMoveDown_Click(sender As System.Object, e As System.EventArgs) Handles btnMoveDown.Click
        Dim ObjABouger As Object
        Dim nouvelIndex As Integer
        If CheckedListBox1.SelectedIndex <> CheckedListBox1.Items.Count - 1 And CheckedListBox1.SelectedIndex <> -1 Then 'On teste qu'au moins un item est sélectionné et que ce ne soit pas le dernier de la liste
            If CheckedListBox1.GetItemCheckState(CheckedListBox1.SelectedIndex).ToString() = "Checked" Then
                nouvelIndex = CheckedListBox1.SelectedIndex + 1 'On définit le nouvel index voulu
                ObjABouger = CheckedListBox1.SelectedItem 'On sauvegarde l'item
                CheckedListBox1.Items.RemoveAt(CheckedListBox1.SelectedIndex) 'On le supprime
                CheckedListBox1.Items.Insert(nouvelIndex, ObjABouger) 'On le ré-insère
                CheckedListBox1.SelectedIndex = nouvelIndex 'on repositione la sélection
                CheckedListBox1.SetItemCheckState(nouvelIndex, CheckState.Checked)
            Else
                nouvelIndex = CheckedListBox1.SelectedIndex + 1 'On définit le nouvel index voulu
                ObjABouger = CheckedListBox1.SelectedItem 'On sauvegarde l'item
                CheckedListBox1.Items.RemoveAt(CheckedListBox1.SelectedIndex) 'On le supprime
                CheckedListBox1.Items.Insert(nouvelIndex, ObjABouger) 'On le ré-insère
                CheckedListBox1.SelectedIndex = nouvelIndex 'on repositione la sélection
                CheckedListBox1.SetItemCheckState(nouvelIndex, CheckState.Unchecked)
            End If
        End If
    End Sub

Je l'ai adapter sur ton code uniquement sur le bouton down pour l'instant mais je pense qu'il est possible de mieux faire.

[_Ez3kiel]

J'ai édité mon post précédent

Si dans ton cas ta CheckedListBox ne laisse comme choix que Check ou pas Check, tu peux privilégier GetItemChecked plutôt que GetItemCheckState avec le test en dur = "Checked"

[dragondumond]

J'ai pris ta solution qui parais plus logique, merci beaucoup pour ton aide et le boulot que vous apporté tous les jours ^^