Discussion :

[misscricri]

Bonjour !

J'aimerais que lorsque je fais une suppression l'item soit aussitôt retirer de la liste.
Dans mon code, la suppression se fait bien mais l'objet reste toujours affiché à l'écran. Il faut que lorsque je le supprime les informations a l'écran disparaissent .

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
 
 If Item IsNot Nothing AndAlso xIsLoading = False Then
 
            ' Confirmation
            Dim msg As MsgBoxResult = MsgBox("Are you sure that you want to cancel this Item  ?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel)
 
            Select Case msg
                Case MsgBoxResult.Yes
 
                    If lItem.IsNew = False Then
                        lItem.Delete()
                    End If
 
                    ' Désactivation de l'objet
                    lItem = Nothing
 
                    ' Rechargement des données.
                    cboList.RefreshDataBind()
 
                Case MsgBoxResult.No, MsgBoxResult.Cancel
 
                    Exit Sub
            End Select
 
    End Sub

Merci

[MABROUKI]

bonjour misscricri
Utilise un BindingSource pour faire la liaison de donnes plutot que de lier directement ta liste a un combobox.
Avec une liaison directe du genre :

Code :

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

1
2
 
Me.ComboBox1.DataSource = ListStrings

Car une fois la liste liee à un controle on ne peut pas supprimer un item de liste liee.
Pour cela l'intermediare BindingSource est la pour gerer la suppression des 2
cotes (controle et liste).
code exemple avec un combox et un listbox:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
 
Public Class Form1
 
 
    'Liste de la Class String
    Private ListStrings As List(Of String) = New List(Of String)
    Private myBDSourceString As BindingSource
 
 
    'Liste de Class Personne
    Private ListPersonnes As List(Of Personne) = New List(Of Personne)
    Private myBDSourcePersonne As BindingSource
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'ComboBox lie à  une  Liste de la Class String
        For i As Integer = 0 To 20
            ListStrings.Add("Str" & (i + 1).ToString)
        Next
        'le BindingSource
        myBDSourceString = New BindingSource
        myBDSourceString.DataSource = ListStrings
        Me.ComboBox1.DataSource = myBDSourceString
        Me.ComboBox1.DataSource = ListStrings
 
        'ListBox lie à une  Liste de Class Personne(ou un datatable si tu veux)
        Dim p As Personne
        For i As Integer = 0 To 9
            p = New Personne
            p.Nom = "Nom" & (i + 1).ToString
            p.Prenom = "Prenom" & (i + 1).ToString
            ListPersonnes.Add(p)
        Next
 
        'le BindingSource
        myBDSourcePersonne = New BindingSource
        myBDSourcePersonne.DataSource = ListPersonnes
 
 
        Me.ListBox1.DataSource = myBDSourcePersonne
        Me.ListBox1.DisplayMember = "Prenom"
    End Sub
    'bouton pour suppression d'un item string
    Private Sub btnDeleteStringItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteStringItem.Click
        ' Confirmation
        Dim msg As MsgBoxResult = MsgBox("Are you sure that you want to cancel this Item  ?" & ComboBox1.SelectedItem.ToString, MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel)
 
        Select Case msg
            Case MsgBoxResult.Yes
                myBDSourceString.RemoveAt(Me.ComboBox1.SelectedIndex)
            Case MsgBoxResult.No, MsgBoxResult.Cancel
                Exit Sub
        End Select
    End Sub
    'bouton pour suppression d'un item Personne
    Private Sub btnDeletePersonne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeletePersonne.Click
        ' Confirmation
        Dim msg As MsgBoxResult = MsgBox("Are you sure that you want to cancel this Item  ?" & CType(ListBox1.SelectedItem, Personne).Nom, MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel)
 
        Select Case msg
            Case MsgBoxResult.Yes
                myBDSourcePersonne.RemoveAt(Me.ListBox1.SelectedIndex)
            Case MsgBoxResult.No, MsgBoxResult.Cancel
                Exit Sub
        End Select
    End Sub
 
 
End Class
Public Class Personne
    Private m_nom As String
    Public Property Nom() As String
        Get
            Return m_nom
        End Get
        Set(ByVal value As String)
            m_nom = value
        End Set
    End Property
    Private m_Prenom As String
    Public Property Prenom() As String
        Get
            Return m_Prenom
        End Get
        Set(ByVal value As String)
            m_Prenom = value
        End Set
    End Property
End Class

Bon Code......................