none
Problème au niveau de next dans un for each RRS feed

  • Question

  • Bonjour,

    Dans mon application, en démarrant l'application, j'obtiens ceci (erreur à Next) : 

    La liste à laquelle cet énumérateur est lié a été modifiée. Un énumérateur ne peut être utilisé que si la liste ne change pas.

    Code:

    If Not My.Settings.GamesList.Count < 1 Then
                For Each i As String In My.Settings.GamesList
                    ListBox1.Items.Add(i)
                Next
                For Each i As String In My.Settings.GamesDirLisp
                    ListBox2.Items.Add(i)
                Next
                For Each i As String In My.Settings.GamesPicLisp
                    ListBox3.Items.Add(i)
                Next
                ListBox1.SetSelected(0, True)
                ListBox2.SetSelected(0, True)
                ListBox3.SetSelected(0, True)
                For Each i As String In ListBox1.Items
                    Dim newgame As New GameInfoPanel
                    newgame.GameName = ListBox1.SelectedItem
                    newgame.GameUrl = ListBox2.SelectedItem
                    newgame.GamePic = Image.FromFile(ListBox3.SelectedItem)
                    FlowLayoutPanel1.Controls.Add(newgame)
                    ListBox1.SetSelected(ListBox1.SelectedIndex + 1, True)
                Next
            End If

    Je ne comprends pas pourquoi cette erreur est apparu... Le code doit ajouter un "GamePanel" (dll que j'ai crée avec un usercontrol) pour chaque item de la listbox1 en prenant les infos pour l'item sélectionné de la listbox1, par la listbox2 et listbox3...

    Merci de votre aide

    Basilic Apps, Anschaire Pérard

    samedi 17 août 2013 15:19

Réponses

Toutes les réponses