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 | 
Partager