VB08 Text/Item in ListView speichern

[_Headsh0t_]

Moin zusammen.
Nach langer langer Zeit hatte ich mal wieder Lust etwas mit Visual Basic zu programmieren.
Es sollte eine Art Accountverwalter werden.

Allerdings weiß ich gerade nicht, wie ich den Text (Items und Subitems) in der ListView1 speichern kann und, dass dieser beim nächsten Start wieder aufgerufen wird. Hoffe jemand kann mir ne Lösung sagen ;o


Zurzeit sieht das Programm so aus (Der Text unter "Name/Link Benutzername Passwort Email etc. soll gespeichert werden und beim nächsten Start des Programmes wieder geladen werden)

[mrapc]

nicht schwer:

Gehe mal in VB auf
Projekt => Eigenschaften

dorf auf:
EInstellungen

Da findest du
Setting

Bennen das in ListView um

danach

gehe auf die Form
und füge einen Speicher Button ein
oder wähle als API OnCLose

ist dir überlassen

Der Code ist jetzt (im Button)
My.Settings.ListView = Listview1.items

Ob es ListView1 ist weis ich ja nicht musst du sehen
dann mach Doppelklick auf die Form

in der API Zeile sollte OnLoad stehen
der Code hier ist
ListView1.Items = My.Settings.ListView

sollte ein Fehler kommen einfach wieder melden

[_Headsh0t_]

Ich hatte bereits das, funktionierte jedoch nicht.

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ListView1.Text = My.Settings.Text1

    End Sub

    Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click
        My.Settings.Text1 = ListView1.Text
        My.Settings.Save()
        My.Settings.Reload()

    End Sub

Was ist dieses API OnClose was du meinst?


Listview1.items geht auch nicht

Fehlermeldung wegen dem "Items"

Fehler 1 Der Wert vom Typ "System.Windows.Forms.ListView.ListViewItemCollect ion" kann nicht in "String" konvertiert werden.

[Kraizy​]

Warum .Text? Wenn du es so machen willst wie mrapc sagte, musst du ListView auswählen, nicht String.
Rechts oben doppelklick auf "My Project" -> links in der Navigation auf "Einstellungen" -> Name: z.B. mySavedListView Typ: System.Windows.Forms.ListView (wenn es nicht vorhanden ist, dann auf "Durchsuchen..." -> System.Windows.Forms -> ListView). Dann um es zu speichern: My.Settings.mySavedListView = ListView1 oder zum Laden: ListView1 = My.Settings.mySavedListView.

[_Headsh0t_]

Habs so gemacht wie du sagtest und beim debuggen kommt/öffnet sich Settings.Designer.vb und sagt das: "Das Konfigurationssystem konnte nicht initialisiert werden." und zeigt das in Gelb an Return CType(Me("mySavedListView"),Global.System.Windows. Forms.ListView)

[Kraizy​]

Warum speicherst du es nicht in eine Textdatei oder Registry? Eine Zeile pro Account. Die Infos trennst du z.B. mit einem ";" würde dann so aussehen:
Link;Benutzername;Passwort;Email... (wenn es nicht nur für dich ist, dann das Passwort verschlüsseln).
Das ganze lässt sich ganz leicht mit einer Schleife und dem StreamReader-/Writer machen.

[Mental Wreck]

Habs mir jez ma durchgelesen und verstehe es genauso wenig
Mag uns nicht jemand nen Beispielprojekt geben?

[_Headsh0t_]

Originally Posted by xKraizy

Warum speicherst du es nicht in eine Textdatei oder Registry? Eine Zeile pro Account. Die Infos trennst du z.B. mit einem ";" würde dann so aussehen:
Link;Benutzername;Passwort;Email... (wenn es nicht nur für dich ist, dann das Passwort verschlüsseln).
Das ganze lässt sich ganz leicht mit einer Schleife und dem StreamReader-/Writer machen.

Weil ich es gerne mit der ListView hätte

[Mental Wreck]

Originally Posted by _Headsh0t_

Weil ich es gerne mit der ListView hätte

Kann ich voll und ganz nachvollziehen, ist auch viel schöner als in ner öden Textdatei.

[Kraizy​]

Originally Posted by _Headsh0t_

Weil ich es gerne mit der ListView hätte

Hä? Wo liegt da jetzt der Unterschied? Die Spalten hast du doch immer, nur die Einträge musst du laden..

PHP Code:

//Speichern
Dim writer As New IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\accs.txt")
        For Each itm As ListViewItem In ListView1.Items
            writer.WriteLine(itm.Text & ";" & itm.SubItems(itm.Index).Text)
        Next
        writer.Close() 


[Mental Wreck]

Währe der "Loader" dann das hier?

//Laden
Dim loader As New IO.Streamloader(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\accs.txt")
        For Each itm As ListViewItem In ListView1.Items
            load.WriteLine(itm.Text & ";" & itm.SubItems(itm.Index).Text)
        Next
        load.Close()

[Kraizy​]

PHP Code:

//Laden: Link, Benutzername, Passwort
Dim reader As New IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\accs.txt")
        Dim line As String
        Dim link As String
        Dim name As String
        Dim passwort As String

        Do
            line = reader.ReadLine
            If line = "" Then
                Exit Do
            End If

            Dim sLine() As String = line.Split(";")
            link = sLine(0)
            name = sLine(1)
            passwort = sLine(2)

            Dim itm As ListViewItem
            itm = ListView1.Items.Add(link)
            itm.SubItems.Add(name)
            itm.SubItems.Add(passwort)
        Loop 


Die Textdatei sieht so aus:
link1;name1;passwort1
link2;name2;passwort2
...

Edit: Hatte nen kleinen Fehler beim Speichern, hier das richtige:

PHP Code:

//Speichern: Link, Benutzername, Passwort
Dim writer As New IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\accs.txt")
        For Each itm As ListViewItem In ListView1.Items
            writer.WriteLine(itm.Text & ";" & itm.SubItems(1).Text & ";" & itm.SubItems(2).Text)
        Next
        writer.Close() 


[Mental Wreck]

Och man <.< ich verstehe es nicht...
Magste uns nicht bitte nen Projekt machen wo das genauer erklärt wird ?

[Kraizy​]

Dann fang lieber erstmal mit was kleinerem an..
Muss jetz weg, hab keine Zeit den Code auszukommentieren.