Diskuze: TextBox Visual Basic

V předchozím kvízu, Online test znalostí C++, jsme si ověřili nabyté zkušenosti z kurzu.

Aktivity

curro70

Člen

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(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)

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

vajkuba1234

Člen

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.

Nejčastěji vyhledáváné

Diskuze: TextBox Visual Basic