help!!! bij mijn favorieten slaat maar 1 link op

[hackie900]

ik heb een probleem.
ik heb al een code om mijn tekst op te slaan nadat ik mijn programma heb afgesloten.
ik gebruik de code voor een combobox en een textbox.
het probleem licht bij de combobox. ik gebruik de combobox voor mijn favorieten.
als ik een aantal linken heb opgelsagen en als ik dan het programma afsluit saved hij maar 1 link namelijk de eerste. kan iemand mij helpen?
ik gebruik deze code:

Public Class Form2
    Dim ResFilename As String = "res.resources"
    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim rw As New Resources.ResourceWriter(ResFilename)
        rw.AddResource("TextBox1", TextBox1.Text)
        rw.AddResource("combobox2", ComboBox2.Text)
        rw.Generate()
        rw.Close()

    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim rw As New Resources.ResourceWriter(ResFilename)
        rw.AddResource("TextBox1", TextBox1.Text)
        rw.AddResource("combobox2", ComboBox2.Text)
        rw.Generate()
        rw.Close()

dit is deel 2 van de code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If System.IO.File.Exists(ResFilename) = False Then
            Dim rw As New Resources.ResourceWriter(ResFilename)
            rw.Close()
        Else
            Dim rr As New Resources.ResourceReader(ResFilename)
            Dim en As IDictionaryEnumerator = rr.GetEnumerator()

            While en.MoveNext()
                If en.Key = "TextBox1" Then
                    TextBox1.Text = CType(en.Value, String)
                    Exit While
                End If
            End While
            rr.Close()
        End If
        If System.IO.File.Exists(ResFilename) = False Then
            Dim rw As New Resources.ResourceWriter(ResFilename)
            rw.Close()
        Else
            Dim rr As New Resources.ResourceReader(ResFilename)
            Dim en As IDictionaryEnumerator = rr.GetEnumerator()

            While en.MoveNext()
                If en.Key = "combobox2" Then
                    ComboBox2.Text = CType(en.Value, String)
                    Exit While
                End If
            End While
            rr.Close()
        End If

    End Sub

ik gebruik ook dit maar dat is extra:

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Settings.Homepage = TextBox1.Text
        My.Settings.favList = ComboBox2.Text
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Settings.Homepage = TextBox1.Text
        My.Settings.favList = ComboBox2.Text
    End Sub

die laatste is voor de 'ok' en 'opslaan' buttons.

PS. als 1 van de moderators dit leest wilt u deze neit sluiten, ik heb dit bericht harder nodig dan de andere en dit gaat over een ander onderwerp.

 

[huijb]

Je kan wel aan de gang blijven maar blijf nu eens bij je oorspronkelijke topic. Hier dus http://www.helpmij.nl/forum/showthread.php?t=412376 Ik heb je nu, ik geloof vier keer gewaarschuwd. Je heb daarom bij deze een OW(Officiële waarschuwing)