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

MFG Gizmo


Beitrag wurde zuletzt am 19.11.11 um 22:02:23 editiert.