dotNETportal.cz

Dobrý den, pokud si udělám například 20 textboxů a v prvním by byla textová hodnota v 18ti čísla a v posledním by byl průměr z předchzích 18, který by se měnil pokud by se hodnota z některého z 18 textboxů změnila.

Kdyby se aplikace zavřela tak by se soubor automaticky uložil a při spuštění automaticky načetl.

To není ono já to myslím tak, že se ty hodnoty v textboxu uloží a případně do čeho ale asi vytvořit Text File a asi do toho to ukládat v jednom seriálu je to ukládání věnované ale je to do ListView a a nevím jak to udělat pro TextBox.

Zkusil jsem to upravit takto, ale mám to špatně:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim soubor As New IO.StreamReader("TextFile1.txt")
        While Not soubor.EndOfStream
            Dim a As String = TextBox1.Text(soubor.ReadLine())
            Dim b As Byte = CByte(TextBox2.Text)(soubor.ReadLine())
            Dim c As Byte = CByte(TextBox3.Text)(soubor.ReadLine())
            Dim d As Byte = CByte(TextBox4.Text)(soubor.ReadLine())
            Dim e As Byte = CByte(TextBox5.Text)(soubor.ReadLine())
            Dim f As Byte = CByte(TextBox6.Text)(soubor.ReadLine())
            Dim g As Byte = CByte(TextBox7.Text)(soubor.ReadLine())
            Dim h As Byte = CByte(TextBox8.Text)(soubor.ReadLine())
            Dim i As Byte = CByte(TextBox9.Text)(soubor.ReadLine())
            Dim j As Byte = CByte(TextBox10.Text)(soubor.ReadLine())
            Dim k As Byte = CByte(TextBox11.Text)(soubor.ReadLine())
            Dim l As Byte = CByte(TextBox12.Text)(soubor.ReadLine())
            Dim m As Byte = CByte(TextBox13.Text)(soubor.ReadLine())
            Dim n As Byte = CByte(TextBox14.Text)(soubor.ReadLine())
            Dim o As Byte = CByte(TextBox15.Text)(soubor.ReadLine())
            Dim p As Byte = CByte(TextBox16.Text)(soubor.ReadLine())
            Dim q As Byte = CByte(TextBox17.Text)(soubor.ReadLine())
            Dim r As Byte = CByte(TextBox18.Text)(soubor.ReadLine())
            Dim s As Byte = CByte(TextBox19.Text)(soubor.ReadLine())
            Dim u As Byte = CByte(TextBox20.Text)(soubor.ReadLine())
        End While
        soubor.Close()
    End Sub
End Class

Aha tak děkuju.