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()}))
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
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.