Imports System.Xml.Serialization
 
Class frmStartKonten
    Public WithEvents aktuellesKonto As Konto
    Public WithEvents frmDgv As New frmDataGridView
 
#Region "Oberfläche"
 
 
    Private Sub cboKontenAktualisieren()
        cboKonten.SuspendLayout()
        cboKonten.Items.Clear()
        For Each kto As Konto In dieKontenListe.Konten
            cboKonten.Items.Add(kto.KontoNr)
        Next
        cboKonten.ResumeLayout()
    End Sub
 
    Private Sub btnKontoNeu_Click(ByVal sender As System.Object, _
                                  ByVal e As System.EventArgs) _
                                    Handles btnKontoNeu.Click
        If IsNothing(dieKontenListe) Then
            dieKontenListe = New Kontoliste
        End If
 
        Dim f As New frmNeuesKonto
        If f.ShowDialog() = Windows.Forms.DialogResult.OK Then
            aktuellesKonto = New Konto(f.txtKonto.Text, _
                                       f.txtBesitzer.Text, _
                                       f.txtDispo.Text)
            dieKontenListe.Konten.Add(aktuellesKonto)
            cboKonten.Items.Add(aktuellesKonto.KontoNr)
 
            AnzeigeAktualisieren()
            AktiviereButtons(True)
        End If
    End Sub
 
    Private Sub btnfrmDataGrid_Click(ByVal sender As System.Object, _
                                    ByVal e As System.EventArgs) _
                                    Handles btnfrmDataGrid.Click
        frmDgv.Show()
    End Sub
#End Region
 
#Region "Beispielliste"
    Private Sub btnBeispielkonten_Click(ByVal sender As System.Object, _
                                    ByVal e As System.EventArgs) _
                                    Handles btnBeispielkonten.Click
        If IsNothing(dieKontenListe) Then
            dieKontenListe = New Kontoliste
        Else
            '(Beispieldaten werden an vorhandene angehängt)
        End If
 
        aktuellesKonto = New Konto("123", "Fritz", -1333)
        dieKontenListe.Konten.Add(aktuellesKonto)
 
        aktuellesKonto = New Konto("222", "Bertha", -2222)
        dieKontenListe.Konten.Add(aktuellesKonto)
 
        aktuellesKonto = New Konto("333", "Emil", -3333)
        dieKontenListe.Konten.Add(aktuellesKonto)
 
        aktuellesKonto = New Konto("444", "Sarah", -4444)
        dieKontenListe.Konten.Add(aktuellesKonto)
 
        cboKontenAktualisieren()
        AnzeigeAktualisieren()
        AktiviereButtons(True)
    End Sub
#End Region
End Class

Public Class frmDataGridView
     Private bs As New BindingSource
    Private Sub frmDataGridView_Load(ByVal sender As Object, _
                                     ByVal e As System.EventArgs) _
                                     Handles Me.Load
 
        bs.DataSource = dieKontenListe.Konten
        dgv.AutoGenerateColumns = False
        dgv.DataSource = bs
        BindingNavigator1.BindingSource = bs
 
        Dim c As New DataGridViewTextBoxCell
        c.Style.BackColor = Color.Aquamarine
 
        Dim dc As New DataGridViewColumn
        dc.Name = "Besitzer"
        dc.HeaderText = "Besitzer"
        dc.DataPropertyName = "Besitzer"
        dc.Width = 70
        dc.CellTemplate = c
        dgv.Columns.Add(dc)
 
        dc = New DataGridViewColumn
        dc.Name = "KontoNr"
        dc.HeaderText = "KontoNr"
        dc.DataPropertyName = "KontoNr"
        dc.Width = 60
        c.Style.Format = "0000" 'ohne Auswirkung weil String
        dc.CellTemplate = c
        dgv.Columns.Add(dc)
 
        dc = New DataGridViewColumn
        dc.Name = "Kontostand"
        dc.HeaderText = "Kontostand"
        dc.DataPropertyName = "Kontostand"
        dc.Width = 70
        c.Style.Format = "C"
        c.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        dc.CellTemplate = c
        dgv.Columns.Add(dc)
 
        dc = New DataGridViewColumn
        dc.Name = "Dispo"
        dc.HeaderText = "Dispo"
        dc.DataPropertyName = "Dispo"
        dc.Width = 70
        c.Style.Format = "00.00 €"
        dc.CellTemplate = c
        dgv.Columns.Add(dc)
    End Sub
 
    Public WithEvents AktuellesKonto As Konto
    Private Sub AktuellesKonto_Aktualisierung(ByVal Sender As Object) Handles _
      AktuellesKonto.Aktualisierung
        dgv.Refresh()
    End Sub
End Class

MFG Gizmo