Message avertissement enumerator

Version imprimable

Bonjour,

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ModifierToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ModifierToolStripMenuItem.Click
        If (Me.ListView1.SelectedItems.Count > 0) Then
            Dim str As String = Interaction.InputBox("Enter a new value.", "Edit", Me.ListView1.SelectedItems.Item(0).SubItems.Item(2).Text, -1, -1)
            If (str <> Nothing) Then
                Dim enumerator As IEnumerator
                Try
                    enumerator = Me.ListView1.SelectedItems.GetEnumerator
                    Do While enumerator.MoveNext
                        Dim current As ListViewItem = DirectCast(enumerator.Current, ListViewItem)
                        current.SubItems.Item(2).Text = str
                    Loop
                Finally
                    If TypeOf enumerator Is IDisposable Then
                        TryCast(enumerator, IDisposable).Dispose()
                    End If
                End Try
            End If
        End If
End Sub

Message Avertissement => La variable 'enumerator' est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution.

Pouvez-vous m'aider a corriger ce petit problème enumerator?

Merci,

Tu obtiens ce message, parce que si l'instruction enumerator = Me.ListView1.SelectedItems.GetEnumerator plante tu te retrouveras dans le Finally avec enumerator sans valeur (et donc un plantage sur la ligne du TryCast(enumerator, IDisposable).Dispose()
Un moyen simple de supprimer le message d'erreur et d'initialiser enumerator : Dim enumerator As IEnumerator = Nothing sans oublier de tester dans le Finally si enumerator ne vaut pas Nothing avant de s'en servir.
Après on peut faire mieux, en utilisant simplement une boucle For Each sur ta sélection : le code modifié (auquel j'ai fait 2-3 autres modifs)
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub ModifierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ModifierToolStripMenuItem.Click If ListView1.SelectedItems.Count > 0 Then Dim str As String = Interaction.InputBox("Enter a new value.", "Edit", ListView1.SelectedItems(0).SubItems(2).Text) If Not String.IsNullOrWhiteSpace(str) Then For Each item As ListViewItem In ListView1.SelectedItems item.SubItems(2).Text = str Next End If End If End Sub

Merci de la réponse, je voudrais savoir vous voulais quoi enumerator sans valeur ?

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub ModifierToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ModifierToolStripMenuItem.Click
        If ListView1.SelectedItems.Count > 0 Then
            Dim str As String = Interaction.InputBox("Enter a new value.", "Edit : " & ListView1.SelectedItems(0).SubItems(2).Text, ListView1.SelectedItems(0).SubItems(2).Text)
                If Not String.IsNullOrWhiteSpace(str) Then
                    For Each item As ListViewItem In ListView1.SelectedItems
                        item.SubItems(2).Text = str.ToUpper
                    Next
                End If
        End If
    End Sub

comment faire pour limiter dans inpubox a 4 de chiffre?
Merci