dotNETportal.cz

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!!!

Zdravím,

Váš zápis kódu je docela zvláštní. Spojujete-li dvě proměnné používejte místo znaménka "+" speciální znak "&".

Váš problém je v tom, že textbox máte nastavený na Multiline. Stačí při ukládání z každého řádku odmazat "Enter" a nahradit ho jiným znakem ( běžně nepoužívaným ). Při vracení textu zpět do textboxu tento znak opět nahradit jako "Enter".

Je na to tady pěkně zpracovaný článek:

http://www.dotnetportal.cz/clanek/45/Pra...

Na opětovné rozdělení řádků použijte

Dim ukazka As String="Nauc se " & "/" & "programovat"
ukazka=ukazka.Replace("/", Environment.NewLine) 'nahadi z textu lomítko dalším řádkem
TextBox4.text = ukazka

Ďakujem za odpoveď, ale nefunguje mi to nijak.

Snažím sa niečo naučiť, ale v 50-tke mi to už nejak nepáli a začal som stým len nedávno.

S angličtiny viem len minimum.

Zdravím,

v každém věku se dá začít.

Je tu velice pěkný seriál na ListView aby jste pochopil jak to funguje. Většinou tam najdete vše co potřebujete a pokud ne, je tu tohle diskusní fórum.

První díl:

http://www.dotnetportal.cz/clanek/33/Pol...

Druhý díl:

http://www.dotnetportal.cz/clanek/34/Pri...