Vydělávej až 160.000 Kč měsíčně! Akreditované rekvalifikační kurzy s garancí práce od 0 Kč. Více informací.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
Avatar
curro70
Člen
Avatar
curro70:8.12.2015 14:58

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(sen­der As System.Object, e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Záz­nam je pridaný")
ListView1.Item­s.Add(New ListViewItem({Tex­tBox1.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_Selec­tedIndexChanged(sen­der As System.Object, e As System.EventArgs) Handles ListView1.Selec­tedIndexChanged
My.Settings.a­ListView = ListView1.Text
My.Settings.Save()

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

Dim innercounter As Integer = 0
For Each subItem As ListViewItem.Lis­tViewSubItem In ListView1.Item­s(i).SubItems
Dim myString As String = ListView1.Item­s(i).SubItems(in­nercounter).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(sen­der As System.Object, e As System.EventArgs) Handles Button3.Click
Dim myWriter As New IO.StreamWriter(Tex­tFile1)
For Each myItem As ListViewItem In ListView1.Items

myWriter.Write­Line(myItem.Text + "#" + myItem.SubItem­s(1).Text + "#" + myItem.SubItem­s(2).Text + "#" + myItem.SubItem­s(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!!!

 
Odpovědět
8.12.2015 14:58
Avatar
vajkuba1234
Člen
Avatar
Odpovídá na curro70
vajkuba1234:21.12.2015 12:28

Jsi ve špatné sekci. Patří to sem: http://www.itnetwork.cz/…udio-net-xna :)

Nahoru Odpovědět
21.12.2015 12:28
No hope, no future, JUST WAR!
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.

Zobrazeno 2 zpráv z 2.