C# / VB.NET - ListView [VB .NET]

Forum - C# / VB.NET - ListView [VB .NET]

Pagine: [ 1 2 ]

MrPaky (Member)
Pro

Messaggi: 125
Iscritto: 19/10/2008

Postato alle 17:55
Lunedì, 15/06/2009

Questo topic è stato chiuso dal moderatore

Ciao a tutti mi servirebbu un'altro aiutino sulle ListView in pratica ho 5 ListView vorrei sapere come posso salvare i dati di tutti i controlli in un file di testo per poi aprirlo di nuovo.
Ad esempio io utilizzo questo codice quà per salvare i dati di una sola listview:

Codice sorgente - presumibilmente VB.NET

Friend Sub CaricaLista(ByVal namefile As String)
        Try
                Dim read As New StreamReader(namefile)
                Dim numero As Integer = 0
                Dim item As String() = New String(11 - 1) {}
                Do While (read.Peek <> -1)
                    Dim stringa As String = read.ReadLine
                    Dim leng As Integer = stringa.Length
                    Dim obj As Object = Strings.Left(stringa, 1)
                    numero = numero
                    Dim input As String = stringa
                    stringa = read.ReadLine
                    item(0) = stringa
                    stringa = read.ReadLine
                    item(1) = stringa
                    stringa = read.ReadLine
                    item(2) = stringa
                    stringa = read.ReadLine
                    item(3) = stringa
                    stringa = read.ReadLine
                    item(4) = stringa
                    stringa = read.ReadLine
                    item(5) = stringa
                    Dim image As Integer = CInt(Math.Round(Conversion.Val(input)))
                    Dim items As New ListViewItem(item, image)
                    items.SubItems.Item(0).Tag = image
                    Lista.Items.Add(items)
                    numero = (numero + 6)
                Loop
                read.Close()
        Catch ex As Exception
End Try

con questo codice inserisco i dati su una listview.

Codice sorgente - presumibilmente VB.NET

Friend Sub SrivoFileTXT()
        Dim numeratore As IEnumerator
        Dim stringa As String = ""
        Try
            numeratore = ListaView.Items.GetEnumerator
            Do While numeratore.MoveNext
                Dim current As ListViewItem = numerato.Current, ListViewItem
                stringa = (stringa + Conversion.Str(current.ImageIndex) + ChrW(13) + ChrW(10))
                stringa = (stringa + current.SubItems.Item(0).Text + ChrW(13) + ChrW(10))
                stringa = (stringa + current.SubItems.Item(1).Text + ChrW(13) + ChrW(10))
                stringa = (stringa + current.SubItems.Item(2).Text + ChrW(13) + ChrW(10))
                stringa = (stringa + current.SubItems.Item(3).Text + ChrW(13) + ChrW(10))
                stringa = (stringa + current.SubItems.Item(4).Text + ChrW(13) + ChrW(10))
                stringa = (stringa + current.SubItems.Item(5).Text + ChrW(13) + ChrW(10))
            Loop
        Finally
            If TypeOf numerato Is IDisposable Then
                TryCast(numerato, IDisposable).Dispose()
            End If
        End Try
        TextBox1.Text = stringa
End Sub

Con questo codice invece scrivo il file TXT.

Ora il mio problema è che se sono 5 ListView come si fà ad salvare i dati delle "Liste" per poi ricaricarle??

Grazie tante per l'aiuto!

Ciao Ciao :pat:

cassin.simone (Member)
Guru

Messaggi: 1051
Iscritto: 03/06/2009

Postato alle 18:58
Lunedì, 15/06/2009

Di XML non ne sò, ma io (sapendo come sono strutturati) userei quelli... :k:

MrPaky (Member)
Pro

Messaggi: 125
Iscritto: 19/10/2008

Postato alle 19:33
Lunedì, 15/06/2009

va bene anche XML ma non sò come funziona.. Qualcuno che mi dà qualche aiutino??

GoLDBeRG (Ex-Member)
Expert

Messaggi: 331
Iscritto: 19/12/2005

Postato alle 20:05
Lunedì, 15/06/2009

MrPaky (Member)
Pro

Messaggi: 125
Iscritto: 19/10/2008

Postato alle 1:06
Martedì, 16/06/2009

Per favore mi potresti fare un'esempio cn il codice?? Salvataggio e caricamento?? Poichè sn un principiante

Grazie del tuo aiuto

GoLDBeRG (Ex-Member)
Expert

Messaggi: 331
Iscritto: 19/12/2005

Postato alle 8:39
Martedì, 16/06/2009

Codice sorgente - presumibilmente VB.NET

Imports System
Imports System.IO
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If File.Exists("ciao.txt") Then
            carica()
        Else
            Dim list(2) As String
            list(0) = "ciao"
            list(1) = "casa"
            Dim fr As New ListViewItem(list)
            ListView1.Items.Add(fr)
            Dim list2(2) As String
            list2(0) = "ciao2"
            list2(1) = "casa2"
            Dim fr2 As New ListViewItem(list2)
            ListView2.Items.Add(fr2)
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sw As New StreamWriter("ciao.txt")
        For Each asd As ListViewItem In ListView1.Items
            sw.WriteLine(asd.SubItems.Item(0).Text & "|" & asd.SubItems.Item(1).Text)
        Next
        sw.WriteLine("$")
        For Each asd As ListViewItem In ListView2.Items
            sw.WriteLine(asd.SubItems.Item(0).Text & "|" & asd.SubItems.Item(1).Text)
        Next
        sw.Close()
    End Sub
 
    Sub carica()
        Dim sr As New StreamReader("ciao.txt")
        Dim str As String = sr.ReadToEnd
        sr.Close()
        Dim primo() As String = Split(str, "$")
 
        Dim pr1() As String = Split(primo(0), "|")
        Dim pr2() As String = Split(primo(1), "|")
 
        Dim list(2) As String
        list(0) = pr1(0)
        list(1) = pr1(1)
        Dim fr As New ListViewItem(list)
        ListView1.Items.Add(fr)
        Dim list2(2) As String
        list2(0) = pr2(0)
        list2(1) = pr2(1)
        Dim fr2 As New ListViewItem(list2)
        ListView2.Items.Add(fr2)
    End Sub
End Class

MrPaky (Member)
Pro

Messaggi: 125
Iscritto: 19/10/2008

Postato alle 12:51
Martedì, 16/06/2009

Grazie.... Da quanto programmi in vb?

GoLDBeRG (Ex-Member)
Expert

Messaggi: 331
Iscritto: 19/12/2005

Postato alle 11:40
Mercoledì, 17/06/2009

ho iniziato con il gwbasic nel 96 circa... ora siamo nel 2009... 2 conti XD

MrPaky (Member)
Pro

Messaggi: 125
Iscritto: 19/10/2008

Postato alle 2:46
Venerdì, 19/06/2009

Alla faccia!! Bhè 6 bravissimo.. Ma hai frequentato qualche corso??

Pagine: [ 1 2 ]