Zum Inhalt springen

MedusTv

Mitglieder
  • Gesamte Inhalte

    1
  • Benutzer seit

  • Letzter Besuch

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

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...