dotNETportal.cz

Dobrý večer mám na formuláři textbox,listbox a label pojmenovaný jako ulož. Do textboxu napíšu určitý text a vložím ho do listboxu. Ale po kliknutí na ulož a ukončení a opětovné zapnutí aplikace se nic nestane. Za pomoc děkuji.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Text = My.Settings.uloz
    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        My.Settings.uloz = ListBox1.Text
        My.Settings.Save()
    End Sub

Skúste uložiť prvky kolekcie ListBox1.Items a taktiež TextBox1.Text .

již dříve jsem zkoušel uložit kolekce, ale nenašel jsem způsob.

toto řešení z Listboxu spojí texty oddělovačem a pro nahrání je rozdělí. My.Setings.setting je typu string

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		ListBox1.Items.Add(TextBox1.Text)
	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		Dim TmpStr() As String
		ReDim TmpStr(ListBox1.Items.Count - 1)
		ListBox1.Items.CopyTo(TmpStr, 0)
		My.Settings.Setting = String.Join(vbCrLf, TmpStr)
		My.Settings.Save()
	End Sub

	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
		Dim TmpStr() As String
		TmpStr = Strings.Split(My.Settings.Setting, vbCrLf)
		For i As Integer = 0 To TmpStr.Length - 1
			ListBox1.Items.Add(TmpStr(i))
		Next
	End Sub