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