hi


meine frage is wie ich items in ner listbox speichern kann über my.settings
indem ich die form schließe und dann msgbox änderungen speichern....
so is bis jetzt mein code is aber ein bisschen unvollständig jetzt




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
For Each item As String In My.Settings.Lesezeichen
ListBox1.Items.Add(item)
Next
Catch ex As Exception
End Try
My.Settings.Save()

Me.ListBox1.Items.Add(TextBox1.Text)
Projekt_1.WebBrowser1.Url.ToString()
ListBox1.Text = Projekt_1.WebBrowser1.Url.ToString






Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MsgBox("Änderungen Speichern?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
For Each item In ListBox1.Items

My.Settings.Lesezeichen.Add(TextBox1.Text)
My.Settings.Save()
Next
End If
End Sub




Könnt ihr mir helfen??
thx

jim

My.Setttings.Save() aufjedenfall mal raus aus der Schleife...

okay und dann?

My.Settings.Save() im Button Click Event weg...xD
und beim speichern die liste erst leeren...und der rest sieht für mich richtig aus...

was meinst du mit leeren?

wenn ich debugge und die form aufrufe dann ein item einfüge und dann schließe sagt er mir

Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

bei dem text My.Settings.Lesezeichen.Add(TextBox1.Text)


muss irgendwie mit dem schlüsselwort new arbeiten aber wie geht des?


thx jim

jetzt meckert er bei zeile 5 ... = tmp
er sagt das der des ned konvertieren kann von system.collection.generc in system.collectio.spezialized..

jim

lass mal das ...weg, damit ich weiß welchen Typ das hat...aber ich schätze mal etwas in Specialized.StringCollection?!

richtig
so is es
jim

dann nimm nicht List(Of String) als Typ sondern einfach dort Specialized.StringCollection...

okay
des ändert trotzdem nichts
unterringelt imemr noch tmp

und wenn ich des of von (Of Spezialed.stringCollectio)
weglasse dann unterringelt er des list davor

wenn es heißt, dass es keine generic.listof sein darf...dann muss das ja wohl auch weg...und Collection stellt ja bereits einen Array(eine Kollektion) dar...

speichern tut ers trotzdem ned
und außerdem wenn ich jetzt auf hinzufügen geht dann fügt der nicht nur eins hinzu sondern 10, 15 oder so
??

woher soll ich wissen, welches bei dir der Hinzufügen Button ist?! und was der macht...ich habe weder Code noch ne Glaskugel

der ganze code sieht jetzt so aus






Public Class Form3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
For Each item As String In My.Settings.Lesezeichen
ListBox1.Items.Add(item)
Next
Catch ex As Exception
End Try


Dim tmp As New List(Of Specialized.StringCollection)
For Each item In ListBox1.Items
tmp.Add(item)
Next
My.Settings.Lesezeichen = tmp
My.Settings.Save()

Me.ListBox1.Items.Add(TextBox1.Text)
Projekt_1.WebBrowser1.Url.ToString()
ListBox1.Text = Projekt_1.WebBrowser1.Url.ToString

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Hide()
End Sub

Private Sub Item_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Enter
Projekt_1.WebBrowser1.Navigate(ListBox1.SelectedItem)
Me.Close()
End Sub

Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MsgBox("Änderungen Speichern?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
For Each item In ListBox1.Items

My.Settings.Lesezeichen.Add(TextBox1.Text)

Next
End If

End Sub


Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = Projekt_1.WebBrowser1.Url.ToString

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox1.Items.Clear()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.ListBox1.Items.Remove(ListBox1.SelectedItem)
End Sub
End Class





button1 = hinzufügen


thx
jim