Public Class frmFormularDatenSpeichern
 
    Const FormularFile As String = "C:\Daten\formulardaten.xml"
 
    'Namen der Tabellen 
    Const Formulartexte As String = "FormularTexte"
    Const Säulenraster As String = "Säulenraster"
    Const Verfahren As String = "Verfahren"
    Const Weichschichtdaten As String = "Weichschichtdaten"
 
    'Zugriffsvariable für Dataset
    Dim Formulardaten As DataSet
 
    'Zugriffsvariable für Controls 
    Dim tbos As New List(Of TextBox)
    Dim WithEvents cboVerfahren, cboSäulenraster As ComboBox
    Dim WithEvents dgv As DataGridView
 
    Dim WithEvents btnLaden, btnSpeichern As Button
 
    'Bindingsourcen
    Dim bsTexte, bsGrid As New BindingSource
 
 
    Private Sub frmFormularDatenSpeichern_Load(sender As System.Object, _
                            e As System.EventArgs) Handles MyBase.Load
 
        If IO.File.Exists(FormularFile) Then
            'Dataset: gespeicherte Daten aus Datei laden
            Formulardaten = New DataSet
            Formulardaten.ReadXml(FormularFile)
        Else
            'Dataset neu erstellen
            Formulardaten = CreateDataset()
        End If
 
        CreateControls()
 
        CreateBindings()
 
        Me.Height = btnLaden.Top + btnLaden.Height + 40
        Me.Width = 310
    End Sub
 
 
    Private Sub CreateControls()
 
        With Formulardaten.Tables(Formulartexte)
            'Labels und Textboxen erstellen 
            For i As Integer = 0 To .Columns.Count - 3
                Dim lbl As New Label With {.Parent = Me, .Top = 30 * i}
                lbl.Text = .Columns(i).ColumnName
                Dim tbo As New TextBox With _
                    {.Parent = Me, .Tag = i.ToString, _
                     .Left = 200, .Width = 100, .Top = 30 * i}
 
                AddHandler tbo.KeyDown, AddressOf TextBox_KeyDown
                tbos.Add(tbo)
            Next i
        End With
 
        cboVerfahren = New ComboBox With _
                           {.Parent = Me, .Top = 30 * tbos.Count}
 
        cboSäulenraster = New ComboBox With _
                              {.Parent = Me, .Top = 30 * (tbos.Count + 1)}
 
        dgv = New DataGridView With _
                  {.Parent = Me, .Top = 30 * (tbos.Count + 2), _
                   .Width = 300, .Height = 150}
        dgv.DataSource = bsGrid
 
        btnLaden = New Button With _
            {.Parent = Me, .Top = dgv.Top + dgv.Height + 10, .Text = "Laden"}
 
        btnSpeichern = New Button With _
            {.Parent = Me, .Top = dgv.Top + dgv.Height + 10, _
             .Text = "Speichern", .Left = 200}
 
    End Sub