TextBox   otázka

VB.NET

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

nahlásit spamnahlásit spam 0 odpovědětodpovědět

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
nahlásit spamnahlásit spam 0 odpovědětodpovědět

Ď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.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

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

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:  
Heslo:  

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback