Manejo del Control Listview Parte 1

- junio 06, 2012

Guardar datos del Listview en un Archivo de Texto

En muchas de las aplicaciones se desea presentar datos en un listview, que para algunos en una forma atractiva exponerlos, y a otros se les dificulta poder manejarlo. En esta novedosa entrada de manejo del lisview les demostraré programar sobre el control no estan dificil, el mismo que lo he dividido en tres partes que poco a poco les iré enseñando. Mi captura para el programa:

Y el código para el mismo:

Imports System.Text
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Genera datos para llenar el listview
        For i As Integer = 1 To 6
            Dim item As New ListViewItem(i)
            item.SubItems.Add(i + 10.3)
            item.SubItems.Add((i + 2))
            item.SubItems.Add((i + 10.3) * (i + 2))
            ListView1.Items.Add(item)
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Abre cuadro de diálogo guardar
        Dim sFD As New SaveFileDialog
        With sFD
            .Title = "Guardar valores"
            .Filter = "Ensayo (*.esy)|*.esy|Todos (*.*)|*.*"
            .FileName = "Ensayo_"
            If .ShowDialog = DialogResult.OK Then
                ' Guardar el contenido del listview
                Using sw As New System.IO.StreamWriter(.FileName, False, Encoding.Default)
                    For Each lvi As ListViewItem In ListView1.Items
                        Dim s As String = lvi.Text
                        If Len(s) > 0 Then
                            sw.WriteLine(s)
                            sw.WriteLine(lvi.SubItems(1).Text)
                            sw.WriteLine(lvi.SubItems(2).Text)
                            sw.WriteLine(lvi.SubItems(3).Text)
                            ' sw.WriteLine(lvi.SubItems(n).Text)
                        End If
                    Next
                    sw.Close()
                End Using
            End If
        End With
    End Sub
End Class

Este ejemplo te permite colocar cualquier extensión sobre el archivo de texto, espero que lo entiendan sigan la otra parte del manejo de este componente de VStudio. Y saben amigos comenten que nada cuesta...Cuidense!!!
Link descarga de mi ejemplo 1:
https://docs.google.com/open?id=0B-UGWA03tc5ZMnJFWE5TbkZRVnM