MedusTv

Imports System.IO

Public Class Form1

    Public ListeGesamt As New List(Of zeilegesamt)
    Public DataSource_Listegesamt As List(Of zeilegesamt)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim dateiname = "D:\source\repos\Testmappe\np.txt"

        For Each zeile As String In IO.File.ReadLines(dateiname)
            Dim fach As String() = Split(zeile, ";")
            Dim zeilegesamt As New zeilegesamt(fach)

            Dim noten As String() = Split(fach(1), ",")
            Dim anzahl As Int32 = noten.Count()
            Dim notensumme As Int32 = 0

            For Each note In noten
                notensumme = notensumme + CInt(note)
            Next

            zeilegesamt.Durchschnitt = (notensumme / anzahl).ToString

            ListeGesamt.Add(zeilegesamt)

        Next
        DataGridView1.DataSource = ListeGesamt
        DataSource_Listegesamt = New List(Of zeilegesamt)(ListeGesamt.ToList)

        DataGridView1.Columns(2).ReadOnly = True
        DataGridView1.Columns(1).Width = 300
        Me.Width = DataGridView1.Width

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objDateiMacher As IO.StreamWriter
        objDateiMacher = New StreamWriter("D:\source\repos\Testmappe\np.txt", True)
        vbNewLine.ToString()
        objDateiMacher.WriteLine(TextBox1.Text + ";0")
        objDateiMacher.Close()
        objDateiMacher = Nothing
        TextBox1.Text = ""
        MsgBox("Die Zeile wurde Hinzugefügt")

    End Sub

End Class

Wie bekomme ich es hin das bei Button1 hinter MsgBox Das DataGridView Aktualisiert wird?

Ich hab schon versucht den Code von Form1_Load rein zu kopieren allerdings wird der irgendwie übersprungen