TextBox – Visual Basic – Fórum – Programujte.com

Dobrý deň

Vie mi niekto poradiť s TextBoxom?

Vo Forme mám 4 TextBoxi jeden ListView a dva Buttoni. V Buttone1 mám tento kód ktorý funguje správne:

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Záznam je pridaný")
        ListView1.Items.Add(New ListViewItem({TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text.ToString()}))

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()

        ListView1.Sorting = SortOrder.Ascending
        ListView1.Sort()
    End Sub

V ListView je tento kód:

Private Sub ListView1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        My.Settings.aListView = ListView1.Text
        My.Settings.Save()

        With Me.ListView1
            Dim i As Integer
            For Each item As ListViewItem In ListView1.SelectedItems
                i = item.Index
            Next

            Dim innercounter As Integer = 0
            For Each subItem As ListViewItem.ListViewSubItem In ListView1.Items(i).SubItems
                Dim myString As String = ListView1.Items(i).SubItems(innercounter).Text
                Select Case innercounter
                    Case 0
                        TextBox1.Text = myString
                    Case 1
                        TextBox2.Text = myString
                    Case 2
                        TextBox3.Text = myString
                    Case 3
                        TextBox4.Text = myString
                    Case 4

                End Select
                innercounter += 1
            Next
        End With
    End Sub

TextBox4 mám rozšírený aby som tam mohol písať napr. nejaké verše, ale problém je vtom, že keď stlačím
Button3 tak všetko mi uloží ako má, len v TextBoxe4 mi uloží len jeden prvý riadok.
V Buttone3 mám kód:

 Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim myWriter As New IO.StreamWriter(TextFile1)
        For Each myItem As ListViewItem In ListView1.Items

                                                                             myWriter.WriteLine(myItem.Text + "#" + myItem.SubItems(1).Text + "#" + myItem.SubItems(2).Text + "#" + myItem.SubItems(3).Text)

        Next

        myWriter.Close()
        Close()
    End Sub

Dúfam, že som to napísal zrozumiteľne. Ak vie niekto poradiť, alebo poopraviť niečo v kódoch vopred Ďakujem!!!