Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - ListView [VB .NET]
Forum - C# / VB.NET - ListView [VB .NET]

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
MrPaky (Member)
Pro


Messaggi: 124
Iscritto: 19/10/2008

Segnala al moderatore
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

  1. Friend Sub CaricaLista(ByVal namefile As String)
  2.         Try
  3.                 Dim read As New StreamReader(namefile)
  4.                 Dim numero As Integer = 0
  5.                 Dim item As String() = New String(11 - 1) {}
  6.                 Do While (read.Peek <> -1)
  7.                     Dim stringa As String = read.ReadLine
  8.                     Dim leng As Integer = stringa.Length
  9.                     Dim obj As Object = Strings.Left(stringa, 1)
  10.                     numero = numero
  11.                     Dim input As String = stringa
  12.                     stringa = read.ReadLine
  13.                     item(0) = stringa
  14.                     stringa = read.ReadLine
  15.                     item(1) = stringa
  16.                     stringa = read.ReadLine
  17.                     item(2) = stringa
  18.                     stringa = read.ReadLine
  19.                     item(3) = stringa
  20.                     stringa = read.ReadLine
  21.                     item(4) = stringa
  22.                     stringa = read.ReadLine
  23.                     item(5) = stringa
  24.                     Dim image As Integer = CInt(Math.Round(Conversion.Val(input)))
  25.                     Dim items As New ListViewItem(item, image)
  26.                     items.SubItems.Item(0).Tag = image
  27.                     Lista.Items.Add(items)
  28.                     numero = (numero + 6)
  29.                 Loop
  30.                 read.Close()
  31.         Catch ex As Exception
  32. End Try




con questo codice inserisco i dati su una listview.

Codice sorgente - presumibilmente VB.NET

  1. Friend Sub SrivoFileTXT()
  2.         Dim numeratore As IEnumerator
  3.         Dim stringa As String = ""
  4.         Try
  5.             numeratore = ListaView.Items.GetEnumerator
  6.             Do While numeratore.MoveNext
  7.                 Dim current As ListViewItem = numerato.Current, ListViewItem
  8.                 stringa = (stringa + Conversion.Str(current.ImageIndex) + ChrW(13) + ChrW(10))
  9.                 stringa = (stringa + current.SubItems.Item(0).Text + ChrW(13) + ChrW(10))
  10.                 stringa = (stringa + current.SubItems.Item(1).Text + ChrW(13) + ChrW(10))
  11.                 stringa = (stringa + current.SubItems.Item(2).Text + ChrW(13) + ChrW(10))
  12.                 stringa = (stringa + current.SubItems.Item(3).Text + ChrW(13) + ChrW(10))
  13.                 stringa = (stringa + current.SubItems.Item(4).Text + ChrW(13) + ChrW(10))
  14.                 stringa = (stringa + current.SubItems.Item(5).Text + ChrW(13) + ChrW(10))
  15.             Loop
  16.         Finally
  17.             If TypeOf numerato Is IDisposable Then
  18.                 TryCast(numerato, IDisposable).Dispose()
  19.             End If
  20.         End Try
  21.         TextBox1.Text = stringa
  22. 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::pat::-?:pat:


zappiapaki@hotmail.it
PM
Avatar
cassin.simone (Member)
Guru


Messaggi: 1051
Iscritto: 03/06/2009

Segnala al moderatore
Postato alle 18:58
Lunedì, 15/06/2009
Di XML non ne sò, ma io (sapendo come sono strutturati) userei quelli...:k:

PM
Avatar
MrPaky (Member)
Pro


Messaggi: 124
Iscritto: 19/10/2008

Segnala al moderatore
Postato alle 19:33
Lunedì, 15/06/2009
va bene anche XML ma non sò come funziona.. Qualcuno che mi dà qualche aiutino??


zappiapaki@hotmail.it
PM
Avatar
GoLDBeRG (Ex-Member)
Expert


Messaggi: 331
Iscritto: 19/12/2005

Segnala al moderatore
Postato alle 20:05
Lunedì, 15/06/2009
utilizza un semplice txt no? fai tipo

list1-campo1|list1-campo2|list1-campo3|$list2-campo1|list2-campo2|$list3-campo1.....
etc etc.... e poi fai uno split generale e ti riprendi tutto....

PM
Avatar
MrPaky (Member)
Pro


Messaggi: 124
Iscritto: 19/10/2008

Segnala al moderatore
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;) :rotfl:


zappiapaki@hotmail.it
PM
Avatar
GoLDBeRG (Ex-Member)
Expert


Messaggi: 331
Iscritto: 19/12/2005

Segnala al moderatore
Postato alle 8:39
Martedì, 16/06/2009
Codice sorgente - presumibilmente VB.NET

  1. Imports System
  2. Imports System.IO
  3.  
  4. Public Class Form1
  5.  
  6.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  7.         If File.Exists("ciao.txt") Then
  8.             carica()
  9.         Else
  10.             Dim list(2) As String
  11.             list(0) = "ciao"
  12.             list(1) = "casa"
  13.             Dim fr As New ListViewItem(list)
  14.             ListView1.Items.Add(fr)
  15.             Dim list2(2) As String
  16.             list2(0) = "ciao2"
  17.             list2(1) = "casa2"
  18.             Dim fr2 As New ListViewItem(list2)
  19.             ListView2.Items.Add(fr2)
  20.         End If
  21.     End Sub
  22.  
  23.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  24.         Dim sw As New StreamWriter("ciao.txt")
  25.         For Each asd As ListViewItem In ListView1.Items
  26.             sw.WriteLine(asd.SubItems.Item(0).Text & "|" & asd.SubItems.Item(1).Text)
  27.         Next
  28.         sw.WriteLine("$")
  29.         For Each asd As ListViewItem In ListView2.Items
  30.             sw.WriteLine(asd.SubItems.Item(0).Text & "|" & asd.SubItems.Item(1).Text)
  31.         Next
  32.         sw.Close()
  33.     End Sub
  34.  
  35.     Sub carica()
  36.         Dim sr As New StreamReader("ciao.txt")
  37.         Dim str As String = sr.ReadToEnd
  38.         sr.Close()
  39.         Dim primo() As String = Split(str, "$")
  40.  
  41.         Dim pr1() As String = Split(primo(0), "|")
  42.         Dim pr2() As String = Split(primo(1), "|")
  43.  
  44.         Dim list(2) As String
  45.         list(0) = pr1(0)
  46.         list(1) = pr1(1)
  47.         Dim fr As New ListViewItem(list)
  48.         ListView1.Items.Add(fr)
  49.         Dim list2(2) As String
  50.         list2(0) = pr2(0)
  51.         list2(1) = pr2(1)
  52.         Dim fr2 As New ListViewItem(list2)
  53.         ListView2.Items.Add(fr2)
  54.     End Sub
  55. End Class


PM
Avatar
MrPaky (Member)
Pro


Messaggi: 124
Iscritto: 19/10/2008

Segnala al moderatore
Postato alle 12:51
Martedì, 16/06/2009
Grazie.... Da quanto programmi in vb?


zappiapaki@hotmail.it
PM
Avatar
GoLDBeRG (Ex-Member)
Expert


Messaggi: 331
Iscritto: 19/12/2005

Segnala al moderatore
Postato alle 11:40
Mercoledì, 17/06/2009
ho iniziato con il gwbasic nel 96 circa... ora siamo nel 2009... 2 conti XD

PM
Avatar
MrPaky (Member)
Pro


Messaggi: 124
Iscritto: 19/10/2008

Segnala al moderatore
Postato alle 2:46
Venerdì, 19/06/2009
Alla faccia!! Bhè 6 bravissimo.. Ma hai frequentato qualche corso??


zappiapaki@hotmail.it
PM
Pagine: [ 1 2 ] Precedente | Prossimo