Help!! ik kan maar 1 link opslaan

[hackie900]

ik heb andere vraag nu de ene was al opgelost maar ik meot van een moderator bij dit topic blijven...

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.

ow en srry moderator ik begreep het eerst neit helemaal maar het was ook omdat dit ook over een ander onderwerp ging

 

[Pizara]

Misschien een beetje voor de handliggend hoor, maar je kan toch gewoon met de naam van je form (Form1) vanuit een ander form je objecten aanroepen?

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form1.TextBox1.Text = "blabla"
    End Sub

 

[huijb]

En ook voor deze geldt hier http://www.helpmij.nl/forum/showthread.php?t=412376