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