Frage zu Verhalten Programm Wärmebedarf

Question

Auf Aufforderung von Markus Schertler sende ich als Beispiel den Proprammcode von Form 04, Eingaben Dach und Decken sowie einen Screenshot der Bedienoberfläche für diese Formular

' TC 3.0 Form 04_Dach 24.09.12
Imports System
Imports System.Exception
Imports System.Windows.Forms.TextBox
Imports System.Windows.Forms.Label
Imports System.Windows.Forms
Public Class Form04_Dach
  ' Variablen Tab 1 Dach gegen Aussenluft
  Public Shared NameDach01, NameDach02, NameDach03 As String
  Public Shared NameDach04, NameDach05, NameDach06 As String
  Public Shared ADach01, ADach02, ADach03, ADach04, ADach05, ADach06 As Single
  Public Shared ADachT, AnzahlADach As Single
  Public Shared UDach01, UDach02, UDach03, UDach04, UDach05, UDach06, UDachT As Single
  Public Shared DämmDach01, DämmDach02, DämmDach03 As Single
  Public Shared DämmDach04, DämmDach05, DämmDach06 As Single
  Public Shared UmbauDach01, UmbauDach02, UmbauDach03 As Boolean
  Public Shared UmbauDach04, UmbauDach05, UmbauDach06 As Boolean
  Private NameDach01Alt, NameDach02Alt, NameDach03Alt As String
  Private NameDach04Alt, NameDach05Alt, NameDach06Alt As String
  Private ADach01Alt, ADach02Alt, ADach03Alt, ADach04Alt, ADach05Alt, ADach06Alt As Single
  Private UDach01Alt, UDach02Alt, UDach03Alt, UDach04Alt, UDach05Alt, UDach06Alt As Single
  Private DämmDach01Alt, DämmDach02Alt, DämmDach03Alt As Single
  Private DämmDach04Alt, DämmDach05Alt, DämmDach06Alt As Single
  Private UmbauDach01Alt, UmbauDach02Alt, UmbauDach03Alt As Boolean
  Private UmbauDach04Alt, UmbauDach05Alt, UmbauDach06Alt As Boolean
  Private Übernehmen1 As Boolean
  ' Tab 2 Decke gegen unbeheizt; Variablen
  Public Shared NameDeckeU01, NameDeckeU02, NameDeckeU03 As String
  Public Shared NameDeckeU04, NameDeckeU05, NameDeckeU06 As String
  Public Shared ADeckeU01, ADeckeU02, ADeckeU03, ADeckeU04, ADeckeU05, ADeckeU06 As Single
  Public Shared UDeckeU01, UDeckeU02, UDeckeU03, UDeckeU04, UDeckeU05, UDeckeU06 As Single
  Public Shared DämmDeckeU01, DämmDeckeU02, DämmDeckeU03 As Single
  Public Shared DämmDeckeU04, DämmDeckeU05, DämmDeckeU06 As Single
  Public Shared RedDeckeU01, RedDeckeU02, RedDeckeU03 As Single
  Public Shared RedDeckeU04, RedDeckeU05, RedDeckeU06 As Single
  Public Shared ADeckeUT, UDeckeUT, RedDeckeUT, AnzahlADeckeU As Single
  Public Shared HzDeckeU01, HzDeckeU02, HzDeckeU03 As Boolean
  Public Shared HzDeckeU04, HzDeckeU05, HzDeckeU06 As Boolean
  Public Shared FaktHzDeckeUT As Single
  Public Shared UmbauDeckeU01, UmbauDeckeU02, UmbauDeckeU03 As Boolean
  Public Shared UmbauDeckeU04, UmbauDeckeU05, UmbauDeckeU06 As Boolean
  Private NameDeckeU01Alt, NameDeckeU02Alt, NameDeckeU03Alt As String
  Private NameDeckeU04Alt, NameDeckeU05Alt, NameDeckeU06Alt As String
  Private ADeckeU01Alt, ADeckeU02Alt, ADeckeU03Alt As Single
  Private ADeckeU04Alt, ADeckeU05Alt, ADeckeU06Alt As Single
  Private UDeckeU01Alt, UDeckeU02Alt, UDeckeU03Alt As Single
  Private UDeckeU04Alt, UDeckeU05Alt, UDeckeU06Alt As Single
  Private DämmDeckeU01Alt, DämmDeckeU02Alt, DämmDeckeU03Alt As Single
  Private DämmDeckeU04Alt, DämmDeckeU05Alt, DämmDeckeU06Alt As Single
  Private RedDeckeU01Alt, RedDeckeU02Alt, RedDeckeU03Alt As Single
  Private RedDeckeU04Alt, RedDeckeU05Alt, RedDeckeU06Alt As Single
  Private HzDeckeU01Alt, HzDeckeU02Alt, HzDeckeU03Alt As Boolean
  Private HzDeckeU04Alt, HzDeckeU05Alt, HzDeckeU06Alt As Boolean
  Private AHzDeckeUT As Single
  Private UmbauDeckeU01Alt, UmbauDeckeU02Alt, UmbauDeckeU03Alt As Boolean
  Private UmbauDeckeU04Alt, UmbauDeckeU05Alt, UmbauDeckeU06Alt As Boolean
  Private Übernehmen2 As Boolean
  ' Tab 3 Decke gegen beheizt; Variablen
  Public Shared NameDeckeH01, NameDeckeH02, NameDeckeH03 As String
  Public Shared NameDeckeH04, NameDeckeH05, NameDeckeH06 As String
  Public Shared ADeckeH01, ADeckeH02, ADeckeH03, ADeckeH04, ADeckeH05, ADeckeH06 As Single
  Public Shared UDeckeH01, UDeckeH02, UDeckeH03, UDeckeH04, UDeckeH05, UDeckeH06 As Single
  Public Shared DämmDeckeH01, DämmDeckeH02, DämmDeckeH03 As Single
  Public Shared DämmDeckeH04, DämmDeckeH05, DämmDeckeH06 As Single
  Public Shared TempDeckeH01, TempDeckeH02, TempDeckeH03 As Single
  Public Shared TempDeckeH04, TempDeckeH05, TempDeckeH06 As Single
  Public Shared ADeckeHT, UDeckeHT, TempDeckeHT, AnzahlADeckeH As Single
  Public Shared HzDeckeH01, HzDeckeH02, HzDeckeH03 As Boolean
  Public Shared HzDeckeH04, HzDeckeH05, HzDeckeH06 As Boolean
  Public Shared FaktHzDeckeHT As Single
  Private NameDeckeH01Alt, NameDeckeH02Alt, NameDeckeH03Alt As String
  Private NameDeckeH04Alt, NameDeckeH05Alt, NameDeckeH06Alt As String
  Private ADeckeH01Alt, ADeckeH02Alt, ADeckeH03Alt As Single
  Private ADeckeH04Alt, ADeckeH05Alt, ADeckeH06Alt As Single
  Private UDeckeH01Alt, UDeckeH02Alt, UDeckeH03Alt As Single
  Private UDeckeH04Alt, UDeckeH05Alt, UDeckeH06Alt As Single
  Private DämmDeckeH01Alt, DämmDeckeH02Alt, DämmDeckeH03Alt As Single
  Private DämmDeckeH04Alt, DämmDeckeH05Alt, DämmDeckeH06Alt As Single
  Private TempDeckeH01Alt, TempDeckeH02Alt, TempDeckeH03Alt As Single
  Private TempDeckeH04Alt, TempDeckeH05Alt, TempDeckeH06Alt As Single
  Private HzDeckeH01Alt, HzDeckeH02Alt, HzDeckeH03Alt As Boolean
  Private HzDeckeH04Alt, HzDeckeH05Alt, HzDeckeH06Alt As Boolean
  Private AHzDeckeHT As Single
  Private Übernehmen3 As Boolean
  Private Sub eingabeFilter(ByVal absender As Object, ByVal keyArgs As KeyPressEventArgs)
    Dim asc As Integer = Convert.ToInt32(keyArgs.KeyChar)  ' Ascii-Code ermitteln
    Select Case asc
      Case 8, 46, 48 To 57
      Case Else
        keyArgs.Handled = True
    End Select
  End Sub
  '
  Private Sub Form04Dach_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Tab 1 Alte Werte
    NameDach01Alt = txbNameDach01.Text : NameDach02Alt = txbNameDach02.Text
    NameDach03Alt = txbNameDach03.Text : NameDach04Alt = txbNameDach04.Text
    NameDach05Alt = txbNameDach05.Text : NameDach06Alt = txbNameDach06.Text
    ADach01Alt = txbADach01.Text : ADach02Alt = txbADach02.Text
    ADach03Alt = txbADach03.Text : ADach04Alt = txbADach04.Text
    ADach05Alt = txbADach05.Text : ADach06Alt = txbADach06.Text
    UDach01Alt = txbUDach01.Text : UDach02Alt = txbUDach02.Text
    UDach03Alt = txbUDach03.Text : UDach04Alt = txbUDach04.Text
    UDach05Alt = txbUDach05.Text : UDach06Alt = txbUDach06.Text
    DämmDach01Alt = txbDämmDach01.Text : DämmDach02Alt = txbDämmDach02.Text
    DämmDach03Alt = txbDämmDach03.Text : DämmDach04Alt = txbDämmDach04.Text
    DämmDach05Alt = txbDämmDach05.Text : DämmDach06Alt = txbDämmDach06.Text
    UmbauDach01Alt = ckbUmbauDach01.Checked : UmbauDach02Alt = ckbUmbauDach02.Checked
    UmbauDach03Alt = ckbUmbauDach03.Checked : UmbauDach04Alt = ckbUmbauDach04.Checked
    UmbauDach05Alt = ckbUmbauDach05.Checked : UmbauDach06Alt = ckbUmbauDach06.Checked
    'Tab 2 Alte Werte
    NameDeckeU01Alt = txbNameDeckeU01.Text : NameDeckeU02Alt = txbNameDeckeU02.Text
    NameDeckeU03Alt = txbNameDeckeU03.Text : NameDeckeU04Alt = txbNameDeckeU04.Text
    NameDeckeU05Alt = txbNameDeckeU05.Text : NameDeckeU06Alt = txbNameDeckeU06.Text
    ADeckeU01Alt = txbADeckeU01.Text : ADeckeU02Alt = txbADeckeU02.Text
    ADeckeU03Alt = txbADeckeU03.Text : ADeckeU04Alt = txbADeckeU04.Text
    ADeckeU05Alt = txbADeckeU05.Text : ADeckeU06Alt = txbADeckeU06.Text
    DämmDeckeU01Alt = txbDämmDeckeU01.Text : DämmDeckeU02Alt = txbDämmDeckeU02.Text
    DämmDeckeU03Alt = txbDämmDeckeU03.Text : DämmDeckeU04Alt = txbDämmDeckeU04.Text
    DämmDeckeU05Alt = txbDämmDeckeU05.Text : DämmDeckeU06Alt = txbDämmDeckeU06.Text
    UDeckeU01Alt = txbUDeckeU01.Text : UDeckeU02Alt = txbUDeckeU02.Text
    UDeckeU03Alt = txbUDeckeU03.Text : UDeckeU04Alt = txbUDeckeU04.Text
    UDeckeU05Alt = txbUDeckeU05.Text : UDeckeU06Alt = txbUDeckeU06.Text
    RedDeckeU01Alt = txbRedDeckeU01.Text : RedDeckeU02Alt = txbRedDeckeU02.Text
    RedDeckeU03Alt = txbRedDeckeU03.Text : RedDeckeU04Alt = txbRedDeckeU04.Text
    RedDeckeU05Alt = txbRedDeckeU05.Text : RedDeckeU06Alt = txbRedDeckeU06.Text
    HzDeckeU01Alt = ckbHzDeckeU01.Checked : HzDeckeU02Alt = ckbHzDeckeU02.Checked
    HzDeckeU03Alt = ckbHzDeckeU03.Checked : HzDeckeU04Alt = ckbHzDeckeU04.Checked
    HzDeckeU05Alt = ckbHzDeckeU05.Checked : HzDeckeU06Alt = ckbHzDeckeU06.Checked
    UmbauDeckeU01Alt = ckbUmbauDeckeU01.Checked : UmbauDeckeU02Alt = ckbUmbauDeckeU02.Checked
    UmbauDeckeU03Alt = ckbUmbauDeckeU03.Checked : UmbauDeckeU04Alt = ckbUmbauDeckeU04.Checked
    UmbauDeckeU05Alt = ckbUmbauDeckeU05.Checked : UmbauDeckeU06Alt = ckbUmbauDeckeU06.Checked
    'Tab 3 Alte Werte
    NameDeckeH01Alt = txbNameDeckeH01.Text : NameDeckeH02Alt = txbNameDeckeH02.Text
    NameDeckeH03Alt = txbNameDeckeH03.Text : NameDeckeH04Alt = txbNameDeckeH04.Text
    NameDeckeH05Alt = txbNameDeckeH05.Text : NameDeckeH06Alt = txbNameDeckeH06.Text
    ADeckeH01Alt = txbADeckeH01.Text : ADeckeH02Alt = txbADeckeH02.Text
    ADeckeH03Alt = txbADeckeH03.Text : ADeckeH04Alt = txbADeckeH04.Text
    ADeckeH05Alt = txbADeckeH05.Text : ADeckeH06Alt = txbADeckeH06.Text
    UDeckeH01Alt = txbUDeckeH01.Text : UDeckeH02Alt = txbUDeckeH02.Text
    UDeckeH03Alt = txbUDeckeH03.Text : UDeckeH04Alt = txbUDeckeH04.Text
    UDeckeH05Alt = txbUDeckeH05.Text : UDeckeH06Alt = txbUDeckeH06.Text
    DämmDeckeH01Alt = txbDämmDeckeH01.Text : DämmDeckeH02Alt = txbDämmDeckeH02.Text
    DämmDeckeH03Alt = txbDämmDeckeH03.Text : DämmDeckeH04Alt = txbDämmDeckeH04.Text
    DämmDeckeH05Alt = txbDämmDeckeH05.Text : DämmDeckeH06Alt = txbDämmDeckeH06.Text
    TempDeckeH01Alt = txbTempDeckeH01.Text : TempDeckeH02Alt = txbTempDeckeH02.Text
    TempDeckeH03Alt = txbTempDeckeH03.Text : TempDeckeH04Alt = txbTempDeckeH04.Text
    TempDeckeH05Alt = txbTempDeckeH05.Text : TempDeckeH06Alt = txbTempDeckeH06.Text
    HzDeckeH01Alt = ckbHzDeckeH01.Checked : HzDeckeH02Alt = ckbHzDeckeH02.Checked
    HzDeckeH03Alt = ckbHzDeckeH03.Checked : HzDeckeH04Alt = ckbHzDeckeH04.Checked
    HzDeckeH05Alt = ckbHzDeckeH05.Checked : HzDeckeH06Alt = ckbHzDeckeH06.Checked
    ' Eingabefilter
    AddHandler txbADach01.KeyPress, AddressOf eingabeFilter
    AddHandler txbADach02.KeyPress, AddressOf eingabeFilter
    AddHandler txbADach03.KeyPress, AddressOf eingabeFilter
    AddHandler txbADach04.KeyPress, AddressOf eingabeFilter
    AddHandler txbADach05.KeyPress, AddressOf eingabeFilter
    AddHandler txbADach06.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDach01.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDach02.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDach03.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDach04.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDach05.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDach06.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDach01.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDach02.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDach03.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDach04.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDach05.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDach06.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeU01.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeU02.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeU03.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeU04.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeU05.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeU06.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeU01.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeU02.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeU03.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeU04.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeU05.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeU06.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeU01.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeU02.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeU03.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeU04.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeU05.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeU06.KeyPress, AddressOf eingabeFilter
    AddHandler txbRedDeckeU01.KeyPress, AddressOf eingabeFilter
    AddHandler txbRedDeckeU02.KeyPress, AddressOf eingabeFilter
    AddHandler txbRedDeckeU03.KeyPress, AddressOf eingabeFilter
    AddHandler txbRedDeckeU04.KeyPress, AddressOf eingabeFilter
    AddHandler txbRedDeckeU05.KeyPress, AddressOf eingabeFilter
    AddHandler txbRedDeckeU06.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeH01.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeH02.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeH03.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeH04.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeH05.KeyPress, AddressOf eingabeFilter
    AddHandler txbADeckeH06.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeH01.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeH02.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeH03.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeH04.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeH05.KeyPress, AddressOf eingabeFilter
    AddHandler txbUDeckeH06.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeH01.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeH02.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeH03.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeH04.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeH05.KeyPress, AddressOf eingabeFilter
    AddHandler txbDämmDeckeH06.KeyPress, AddressOf eingabeFilter
    AddHandler txbTempDeckeH01.KeyPress, AddressOf eingabeFilter
    AddHandler txbTempDeckeH02.KeyPress, AddressOf eingabeFilter
    AddHandler txbTempDeckeH03.KeyPress, AddressOf eingabeFilter
    AddHandler txbTempDeckeH04.KeyPress, AddressOf eingabeFilter
    AddHandler txbTempDeckeH05.KeyPress, AddressOf eingabeFilter
    AddHandler txbTempDeckeH06.KeyPress, AddressOf eingabeFilter
    '
    FaktHzDeckeU() : FaktHzDeckeH()
  End Sub
  ' Steuerelemente Tab 1
  Private Sub txbNameDach01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDach01.TextChanged
    NameDach01 = txbNameDach01.Text
  End Sub
  Private Sub txbNameDach02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDach02.TextChanged
    NameDach02 = txbNameDach02.Text
  End Sub
  Private Sub txbNameDach03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDach03.TextChanged
    NameDach03 = txbNameDach03.Text
  End Sub
  Private Sub txbNameDach04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDach04.TextChanged
    NameDach04 = txbNameDach04.Text
  End Sub
  Private Sub txbNameDach05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDach05.TextChanged
    NameDach05 = txbNameDach05.Text
  End Sub
  Private Sub txbNameDach06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDach06.TextChanged
    NameDach06 = txbNameDach06.Text
  End Sub
  Private Sub txbADach01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADach01.TextChanged
    If txbADach01.Text = "" Then
      txbADach01.Text = 0
    Else : ADach01 = txbADach01.Text
    End If
    FlächeDach() : UWertDach()
  End Sub
  Private Sub txbADach02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADach02.TextChanged
    If txbADach02.Text = "" Then
      txbADach02.Text = 0
    Else : ADach02 = txbADach02.Text
    End If
    FlächeDach() : UWertDach()
  End Sub
  Private Sub txbADach03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADach03.TextChanged
    If txbADach03.Text = "" Then
      txbADach03.Text = 0
    Else : ADach03 = txbADach03.Text
    End If
    FlächeDach() : UWertDach()
  End Sub
  Private Sub txbADach04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADach04.TextChanged
    If txbADach04.Text = "" Then
      txbADach04.Text = 0
    Else : ADach04 = txbADach04.Text
    End If
    FlächeDach() : UWertDach()
  End Sub
  Private Sub txbADach05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADach05.TextChanged
    If txbADach05.Text = "" Then
      txbADach05.Text = 0
    Else : ADach05 = txbADach05.Text
    End If
    FlächeDach() : UWertDach()
  End Sub
  Private Sub txbADach06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADach06.TextChanged
    If txbADach06.Text = "" Then
      txbADach06.Text = 0
    Else : ADach06 = txbADach06.Text
    End If
    FlächeDach() : UWertDach()
  End Sub
  Private Sub txbUDach01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDach01.TextChanged
    If txbUDach01.Text = "" Then
      txbUDach01.Text = 0
    Else : UDach01 = txbUDach01.Text
    End If
    UWertDach()
  End Sub
  Private Sub txbUDach02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDach02.TextChanged
    If txbUDach02.Text = "" Then
      txbUDach02.Text = 0
    Else : UDach02 = txbUDach02.Text
    End If
    UWertDach()
  End Sub
  Private Sub txbUDach03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDach03.TextChanged
    If txbUDach03.Text = "" Then
      txbUDach03.Text = 0
    Else : UDach03 = txbUDach03.Text
    End If
    UWertDach()
  End Sub
  Private Sub txbUDach04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDach04.TextChanged
    If txbUDach04.Text = "" Then
      txbUDach04.Text = 0
    Else : UDach04 = txbUDach04.Text
    End If
    UWertDach()
  End Sub
  Private Sub txbUDach05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDach05.TextChanged
    If txbUDach05.Text = "" Then
      txbUDach05.Text = 0
    Else : UDach05 = txbUDach05.Text
    End If
    UWertDach()
  End Sub
  Private Sub txbUDach06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDach06.TextChanged
    If txbUDach06.Text = "" Then
      txbUDach06.Text = 0
    Else : UDach06 = txbUDach06.Text
    End If
    UWertDach()
  End Sub
  Private Sub txbDämmDach01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDach01.TextChanged
    If txbDämmDach01.Text = "" Then
      txbDämmDach01.Text = 0
    Else : DämmDach01 = txbDämmDach01.Text
    End If
  End Sub
  Private Sub txbDämmDach02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDach02.TextChanged
    If txbDämmDach02.Text = "" Then
      txbDämmDach02.Text = 0
    Else : DämmDach02 = txbDämmDach02.Text
    End If
  End Sub
  Private Sub txbDämmDach03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDach03.TextChanged
    If txbDämmDach03.Text = "" Then
      txbDämmDach03.Text = 0
    Else : DämmDach03 = txbDämmDach03.Text
    End If
  End Sub
  Private Sub txbDämmDach04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDach04.TextChanged
    If txbDämmDach04.Text = "" Then
      txbDämmDach04.Text = 0
    Else : DämmDach04 = txbDämmDach04.Text
    End If
  End Sub
  Private Sub txbDämmDach05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDach05.TextChanged
    If txbDämmDach05.Text = "" Then
      txbDämmDach05.Text = 0
    Else : DämmDach05 = txbDämmDach05.Text
    End If
  End Sub
  Private Sub txbDämmDach06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDach06.TextChanged
    If txbDämmDach06.Text = "" Then
      txbDämmDach06.Text = 0
    Else : DämmDach06 = txbDämmDach06.Text
    End If
  End Sub
  Private Sub ckbUmbauDach01_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDach01.CheckedChanged
    If ckbUmbauDach01.Checked = True Then
      UmbauDach01 = True
    Else : UmbauDach01 = False
    End If
  End Sub
  Private Sub ckbUmbauDach02_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDach02.CheckedChanged
    If ckbUmbauDach02.Checked = True Then
      UmbauDach02 = True
    Else : UmbauDach02 = False
    End If
  End Sub
  Private Sub ckbUmbauDach03_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDach03.CheckedChanged
    If ckbUmbauDach03.Checked = True Then
      UmbauDach03 = True
    Else : UmbauDach03 = False
    End If
  End Sub
  Private Sub ckbUmbauDach04_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDach04.CheckedChanged
    If ckbUmbauDach04.Checked = True Then
      UmbauDach04 = True
    Else : UmbauDach04 = False
    End If
  End Sub
  Private Sub ckbUmbauDach05_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDach05.CheckedChanged
    If ckbUmbauDach05.Checked = True Then
      UmbauDach05 = True
    Else : UmbauDach05 = False
    End If
  End Sub
  Private Sub ckbUmbauDach06_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDach06.CheckedChanged
    If ckbUmbauDach06.Checked = True Then
      UmbauDach06 = True
    Else : UmbauDach06 = False
    End If
  End Sub
  Private Sub FlächeDach()
    ADachT = ADach01 + ADach02 + ADach03 + ADach04 + ADach05 + ADach06
    lblADachT.Text = String.Format("{0:f1}", ADachT)
  End Sub
  Private Sub UWertDach()
    If ADachT > 0 Then
      UDachT = (ADach01 * UDach01 + ADach02 * UDach02 + ADach03 * UDach03 + _
      ADach04 * UDach04 + ADach05 * UDach05 + ADach06 * UDach06) / ADachT
      lblUDachT.Text = String.Format("{0:f2}", UDachT)
    Else : UDachT = 0
    End If
  End Sub
  ' Steuerelemente Tab 2
  Private Sub txbNameDeckeU01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeU01.TextChanged
    NameDeckeU01 = txbNameDeckeU01.Text
  End Sub
  Private Sub txbNameDeckeU02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeU02.TextChanged
    NameDeckeU02 = txbNameDeckeU02.Text
  End Sub
  Private Sub txbNameDeckeU03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeU03.TextChanged
    NameDeckeU03 = txbNameDeckeU03.Text
  End Sub
  Private Sub txbNameDeckeU04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeU04.TextChanged
    NameDeckeU04 = txbNameDeckeU04.Text
  End Sub
  Private Sub txbNameDeckeU05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeU05.TextChanged
    NameDeckeU05 = txbNameDeckeU05.Text
  End Sub
  Private Sub txbNameDeckeU06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeU06.TextChanged
    NameDeckeU06 = txbNameDeckeU06.Text
  End Sub
  Private Sub txbADeckeU01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeU01.TextChanged
    If txbADeckeU01.Text = "" Then
      txbADeckeU01.Text = 0
    Else : ADeckeU01 = txbADeckeU01.Text
    End If
    FlächeDeckeU() : UWertDeckeU() : RedDeckeU() : FaktHzDeckeU()
  End Sub
  Private Sub txbADeckeU02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeU02.TextChanged
    If txbADeckeU02.Text = "" Then
      txbADeckeU02.Text = 0
    Else : ADeckeU02 = txbADeckeU02.Text
    End If
    FlächeDeckeU() : UWertDeckeU() : RedDeckeU() : FaktHzDeckeU()
  End Sub
  Private Sub txbADeckeU03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeU03.TextChanged
    If txbADeckeU03.Text = "" Then
      txbADeckeU03.Text = 0
    Else : ADeckeU03 = txbADeckeU03.Text
    End If
    FlächeDeckeU() : UWertDeckeU() : RedDeckeU() : FaktHzDeckeU()
  End Sub
  Private Sub txbADeckeU04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeU04.TextChanged
    If txbADeckeU04.Text = "" Then
      txbADeckeU04.Text = 0
    Else : ADeckeU04 = txbADeckeU04.Text
    End If
    FlächeDeckeU() : UWertDeckeU() : RedDeckeU() : FaktHzDeckeU()
  End Sub
  Private Sub txbADeckeU05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeU05.TextChanged
    If txbADeckeU05.Text = "" Then
      txbADeckeU05.Text = 0
    Else : ADeckeU05 = txbADeckeU05.Text
    End If
    FlächeDeckeU() : UWertDeckeU() : RedDeckeU() : FaktHzDeckeU()
  End Sub
  Private Sub txbADeckeU06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeU06.TextChanged
    If txbADeckeU06.Text = "" Then
      txbADeckeU06.Text = 0
    Else : ADeckeU06 = txbADeckeU06.Text
    End If
    FlächeDeckeU() : UWertDeckeU() : RedDeckeU() : FaktHzDeckeU()
  End Sub
  Private Sub txbUDeckeU01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeU01.TextChanged
    If txbUDeckeU01.Text = "" Then
      txbUDeckeU01.Text = 0
    Else : UDeckeU01 = txbUDeckeU01.Text
    End If
    UWertDeckeU()
  End Sub
  Private Sub txbUDeckeU02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeU02.TextChanged
    If txbUDeckeU02.Text = "" Then
      txbUDeckeU02.Text = 0
    Else : UDeckeU02 = txbUDeckeU02.Text
    End If
    UWertDeckeU()
  End Sub
  Private Sub txbUDeckeU03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeU03.TextChanged
    If txbUDeckeU03.Text = "" Then
      txbUDeckeU03.Text = 0
    Else : UDeckeU03 = txbUDeckeU03.Text
    End If
    UWertDeckeU()
  End Sub
  Private Sub txbUDeckeU04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeU04.TextChanged
    If txbUDeckeU04.Text = "" Then
      txbUDeckeU04.Text = 0
    Else : UDeckeU04 = txbUDeckeU04.Text
    End If
    UWertDeckeU()
  End Sub
  Private Sub txbUDeckeU05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeU05.TextChanged
    If txbUDeckeU05.Text = "" Then
      txbUDeckeU05.Text = 0
    Else : UDeckeU05 = txbUDeckeU05.Text
    End If
    UWertDeckeU()
  End Sub
  Private Sub txbUDeckeU06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeU06.TextChanged
    If txbUDeckeU06.Text = "" Then
      txbUDeckeU06.Text = 0
    Else : UDeckeU06 = txbUDeckeU06.Text
    End If
    UWertDeckeU()
  End Sub
  Private Sub txbDämmDeckeU01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeU01.TextChanged
    If txbDämmDeckeU01.Text = "" Then
      txbDämmDeckeU01.Text = 0
    Else : DämmDeckeU01 = txbDämmDeckeU01.Text
    End If
  End Sub
  Private Sub txbDämmDeckeU02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeU02.TextChanged
    If txbDämmDeckeU02.Text = "" Then
      txbDämmDeckeU02.Text = 0
    Else : DämmDeckeU02 = txbDämmDeckeU02.Text
    End If
  End Sub
  Private Sub txbDämmDeckeU03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeU03.TextChanged
    If txbDämmDeckeU03.Text = "" Then
      txbDämmDeckeU03.Text = 0
    Else : DämmDeckeU03 = txbDämmDeckeU03.Text
    End If
  End Sub
  Private Sub txbDämmDeckeU04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeU04.TextChanged
    If txbDämmDeckeU04.Text = "" Then
      txbDämmDeckeU04.Text = 0
    Else : DämmDeckeU04 = txbDämmDeckeU04.Text
    End If
  End Sub
  Private Sub txbDämmDeckeU05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeU05.TextChanged
    If txbDämmDeckeU05.Text = "" Then
      txbDämmDeckeU05.Text = 0
    Else : DämmDeckeU05 = txbDämmDeckeU05.Text
    End If
  End Sub
  Private Sub txbDämmDeckeU06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeU06.TextChanged
    If txbDämmDeckeU06.Text = "" Then
      txbDämmDeckeU06.Text = 0
    Else : DämmDeckeU06 = txbDämmDeckeU06.Text
    End If
  End Sub
  Private Sub txbRedDeckeU01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbRedDeckeU01.TextChanged
    If txbRedDeckeU01.Text = "" Then
      txbRedDeckeU01.Text = 0
    Else : RedDeckeU01 = txbRedDeckeU01.Text
    End If
    RedDeckeU()
  End Sub
  Private Sub txbRedDeckeU02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbRedDeckeU02.TextChanged
    If txbRedDeckeU02.Text = "" Then
      txbRedDeckeU02.Text = 0
    Else : RedDeckeU02 = txbRedDeckeU02.Text
    End If
    RedDeckeU()
  End Sub
  Private Sub txbRedDeckeU03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbRedDeckeU03.TextChanged
    If txbRedDeckeU03.Text = "" Then
      txbRedDeckeU03.Text = 0
    Else : RedDeckeU03 = txbRedDeckeU03.Text
    End If
    RedDeckeU()
  End Sub
  Private Sub txbRedDeckeU04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbRedDeckeU04.TextChanged
    If txbRedDeckeU04.Text = "" Then
      txbRedDeckeU04.Text = 0
    Else : RedDeckeU04 = txbRedDeckeU04.Text
    End If
    RedDeckeU()
  End Sub
  Private Sub txbRedDeckeU05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbRedDeckeU05.TextChanged
    If txbRedDeckeU05.Text = "" Then
      txbRedDeckeU05.Text = 0
    Else : RedDeckeU05 = txbRedDeckeU05.Text
    End If
    RedDeckeU()
  End Sub
  Private Sub txbRedDeckeU06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbRedDeckeU06.TextChanged
    If txbRedDeckeU06.Text = "" Then
      txbRedDeckeU06.Text = 0
    Else : RedDeckeU06 = txbRedDeckeU06.Text
    End If
    RedDeckeU()
  End Sub
  Private Sub ckbHzDeckeU01_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeU01.CheckedChanged
    If ckbHzDeckeU01.Checked = True Then
      HzDeckeU01 = True
    Else : HzDeckeU01 = False
    End If
    FaktHzDeckeU()
  End Sub
  Private Sub ckbHzDeckeU02_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeU02.CheckedChanged
    If ckbHzDeckeU02.Checked = True Then
      HzDeckeU02 = True
    Else : HzDeckeU02 = False
    End If
    FaktHzDeckeU()
  End Sub
  Private Sub ckbHzDeckeU03_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeU03.CheckedChanged
    If ckbHzDeckeU03.Checked = True Then
      HzDeckeU03 = True
    Else : HzDeckeU03 = False
    End If
    FaktHzDeckeU()
  End Sub
  Private Sub ckbHzDeckeU04_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeU04.CheckedChanged
    If ckbHzDeckeU04.Checked = True Then
      HzDeckeU04 = True
    Else : HzDeckeU04 = False
    End If
    FaktHzDeckeU()
  End Sub
  Private Sub ckbHzDeckeU05_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeU05.CheckedChanged
    If ckbHzDeckeU05.Checked = True Then
      HzDeckeU05 = True
    Else : HzDeckeU05 = False
    End If
    FaktHzDeckeU()
  End Sub
  Private Sub ckbHzDeckeU06_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeU06.CheckedChanged
    If ckbHzDeckeU06.Checked = True Then
      HzDeckeU06 = True
    Else : HzDeckeU06 = False
    End If
    FaktHzDeckeU()
  End Sub
  Private Sub ckbUmbauDeckeU01_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDeckeU01.CheckedChanged
    If ckbUmbauDeckeU01.Checked = True Then
      UmbauDeckeU01 = True
    Else : UmbauDeckeU01 = False
    End If
  End Sub
  Private Sub ckbUmbauDeckeU02_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDeckeU02.CheckedChanged
    If ckbUmbauDeckeU02.Checked = True Then
      UmbauDeckeU02 = True
    Else : UmbauDeckeU02 = False
    End If
  End Sub
  Private Sub ckbUmbauDeckeU03_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDeckeU03.CheckedChanged
    If ckbUmbauDeckeU03.Checked = True Then
      UmbauDeckeU03 = True
    Else : UmbauDeckeU03 = False
    End If
  End Sub
  Private Sub ckbUmbauDeckeU04_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDeckeU04.CheckedChanged
    If ckbUmbauDeckeU04.Checked = True Then
      UmbauDeckeU04 = True
    Else : UmbauDeckeU04 = False
    End If
  End Sub
  Private Sub ckbUmbauDeckeU05_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDeckeU05.CheckedChanged
    If ckbUmbauDeckeU05.Checked = True Then
      UmbauDeckeU05 = True
    Else : UmbauDeckeU05 = False
    End If
  End Sub
  Private Sub ckbUmbauDeckeU06_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbUmbauDeckeU06.CheckedChanged
    If ckbUmbauDeckeU06.Checked = True Then
      UmbauDeckeU06 = True
    Else : UmbauDeckeU06 = False
    End If
  End Sub
  Private Sub FlächeDeckeU()
    ADeckeUT = ADeckeU01 + ADeckeU02 + ADeckeU03 + ADeckeU04 + ADeckeU05 + ADeckeU06
    lblADeckeUT.Text = String.Format("{0:f1}", ADeckeUT)
  End Sub
  Private Sub UWertDeckeU()
    If ADeckeUT > 0 Then
      UDeckeUT = (ADeckeU01 * UDeckeU01 + ADeckeU02 * UDeckeU02 + ADeckeU03 * UDeckeU03 _
      + ADeckeU04 * UDeckeU04 + ADeckeU05 * UDeckeU05 + ADeckeU06 * UDeckeU06) / ADeckeUT
      lblUDeckeUT.Text = String.Format("{0:f2}", UDeckeUT)
    Else : UDeckeUT = 0
    End If
  End Sub
  Private Sub RedDeckeU()
    If ADeckeUT > 0 Then
      RedDeckeUT = (ADeckeU01 * RedDeckeU01 + ADeckeU02 * RedDeckeU02 + _
      ADeckeU03 * RedDeckeU03 + ADeckeU04 * RedDeckeU04 + ADeckeU05 * RedDeckeU05 + _
      ADeckeU06 * RedDeckeU06) / ADeckeUT
    Else : RedDeckeUT = 0
    End If
    lblRedDeckeUT.Text = String.Format("{0:f2}", RedDeckeUT)
  End Sub
  Private Sub FaktHzDeckeU()
    If ADeckeUT > 0 Then
      FaktHzDeckeUT = 0 : AHzDeckeUT = 0
      If HzDeckeU01 = True Then AHzDeckeUT = AHzDeckeUT + ADeckeU01
      If HzDeckeU02 = True Then AHzDeckeUT = AHzDeckeUT + ADeckeU02
      If HzDeckeU03 = True Then AHzDeckeUT = AHzDeckeUT + ADeckeU03
      If HzDeckeU04 = True Then AHzDeckeUT = AHzDeckeUT + ADeckeU04
      If HzDeckeU05 = True Then AHzDeckeUT = AHzDeckeUT + ADeckeU05
      If HzDeckeU06 = True Then AHzDeckeUT = AHzDeckeUT + ADeckeU06
      FaktHzDeckeUT = AHzDeckeUT / ADeckeUT
      lblFaktHzDeckeUT.Text = String.Format("{0:f2}", FaktHzDeckeUT)
    End If
  End Sub
  ' Steuelemente Tab 3
  Private Sub txbNameDeckeH01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeH01.TextChanged
    NameDeckeH01 = txbNameDeckeH01.Text
  End Sub
  Private Sub txbNameDeckeH02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeH02.TextChanged
    NameDeckeH02 = txbNameDeckeH02.Text
  End Sub
  Private Sub txbNameDeckeH03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeH03.TextChanged
    NameDeckeH03 = txbNameDeckeH03.Text
  End Sub
  Private Sub txbNameDeckeH04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeH04.TextChanged
    NameDeckeH04 = txbNameDeckeH04.Text
  End Sub
  Private Sub txbNameDeckeH05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeH05.TextChanged
    NameDeckeH05 = txbNameDeckeH05.Text
  End Sub
  Private Sub txbNameDeckeH06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbNameDeckeH06.TextChanged
    NameDeckeH06 = txbNameDeckeH06.Text
  End Sub
  Private Sub txbADeckeH01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeH01.TextChanged
    If txbADeckeH01.Text = "" Then
      txbADeckeH01.Text = 0
    Else : ADeckeH01 = txbADeckeH01.Text
    End If
    FlächeDeckeH() : UWertDeckeH() : TempDeckeH() : FaktHzDeckeH()
  End Sub
  Private Sub txbADeckeH02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeH02.TextChanged
    If txbADeckeH02.Text = "" Then
      txbADeckeH02.Text = 0
    Else : ADeckeH02 = txbADeckeH02.Text
    End If
    FlächeDeckeH() : UWertDeckeH() : TempDeckeH() : FaktHzDeckeH()
  End Sub
  Private Sub txbADeckeH03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeH03.TextChanged
    If txbADeckeH03.Text = "" Then
      txbADeckeH03.Text = 0
    Else : ADeckeH03 = txbADeckeH03.Text
    End If
    FlächeDeckeH() : UWertDeckeH() : TempDeckeH() : FaktHzDeckeH()
  End Sub
  Private Sub txbADeckeH04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeH04.TextChanged
    If txbADeckeH04.Text = "" Then
      txbADeckeH04.Text = 0
    Else : ADeckeH04 = txbADeckeH04.Text
    End If
    FlächeDeckeH() : UWertDeckeH() : TempDeckeH() : FaktHzDeckeH()
  End Sub
  Private Sub txbADeckeH05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeH05.TextChanged
    If txbADeckeH05.Text = "" Then
      txbADeckeH05.Text = 0
    Else : ADeckeH05 = txbADeckeH05.Text
    End If
    FlächeDeckeH() : UWertDeckeH() : TempDeckeH() : FaktHzDeckeH()
  End Sub
  Private Sub txbADeckeH06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbADeckeH06.TextChanged
    If txbADeckeH06.Text = "" Then
      txbADeckeH06.Text = 0
    Else : ADeckeH06 = txbADeckeH06.Text
    End If
    FlächeDeckeH() : UWertDeckeH() : TempDeckeH() : FaktHzDeckeH()
  End Sub
  Private Sub txbUDeckeH01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeH01.TextChanged
    If txbUDeckeH01.Text = "" Then
      txbUDeckeH01.Text = 0
    Else : UDeckeH01 = txbUDeckeH01.Text
    End If
    UWertDeckeH()
  End Sub
  Private Sub txbUDeckeH02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeH02.TextChanged
    If txbUDeckeH02.Text = "" Then
      txbUDeckeH02.Text = 0
    Else : UDeckeH02 = txbUDeckeH02.Text
    End If
    UWertDeckeH()
  End Sub
  Private Sub txbUDeckeH03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeH03.TextChanged
    If txbUDeckeH03.Text = "" Then
      txbUDeckeH03.Text = 0
    Else : UDeckeH03 = txbUDeckeH03.Text
    End If
    UWertDeckeH()
  End Sub
  Private Sub txbUDeckeH04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeH04.TextChanged
    If txbUDeckeH04.Text = "" Then
      txbUDeckeH04.Text = 0
    Else : UDeckeH04 = txbUDeckeH04.Text
    End If
    UWertDeckeH()
  End Sub
  Private Sub txbUDeckeH05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeH05.TextChanged
    If txbUDeckeH05.Text = "" Then
      txbUDeckeH05.Text = 0
    Else : UDeckeH05 = txbUDeckeH05.Text
    End If
    UWertDeckeH()
  End Sub
  Private Sub txbUDeckeH06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbUDeckeH06.TextChanged
    If txbUDeckeH06.Text = "" Then
      txbUDeckeH06.Text = 0
    Else : UDeckeH06 = txbUDeckeH06.Text
    End If
    UWertDeckeH()
  End Sub
  Private Sub txbDämmDeckeH01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeH01.TextChanged
    If txbDämmDeckeH01.Text = "" Then
      txbDämmDeckeH01.Text = 0
    Else : DämmDeckeH01 = txbDämmDeckeH01.Text
    End If
  End Sub
  Private Sub txbDämmDeckeH02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeH02.TextChanged
    If txbDämmDeckeH02.Text = "" Then
      txbDämmDeckeH02.Text = 0
    Else : DämmDeckeH02 = txbDämmDeckeH02.Text
    End If
  End Sub
  Private Sub txbDämmDeckeH03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeH03.TextChanged
    If txbDämmDeckeH03.Text = "" Then
      txbDämmDeckeH03.Text = 0
    Else : DämmDeckeH03 = txbDämmDeckeH03.Text
    End If
  End Sub
  Private Sub txbDämmDeckeH04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeH04.TextChanged
    If txbDämmDeckeH04.Text = "" Then
      txbDämmDeckeH04.Text = 0
    Else : DämmDeckeH04 = txbDämmDeckeH04.Text
    End If
  End Sub
  Private Sub txbDämmDeckeH05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeH05.TextChanged
    If txbDämmDeckeH05.Text = "" Then
      txbDämmDeckeH05.Text = 0
    Else : DämmDeckeH05 = txbDämmDeckeH05.Text
    End If
  End Sub
  Private Sub txbDämmDeckeH06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbDämmDeckeH06.TextChanged
    If txbDämmDeckeH06.Text = "" Then
      txbDämmDeckeH06.Text = 0
    Else : DämmDeckeH06 = txbDämmDeckeH06.Text
    End If
  End Sub
  Private Sub txbTempDeckeH01_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbTempDeckeH01.TextChanged
    If txbTempDeckeH01.Text = "" Then
      txbTempDeckeH01.Text = 0
    Else : TempDeckeH01 = txbTempDeckeH01.Text
    End If
    TempDeckeH()
  End Sub
  Private Sub txbTempDeckeH02_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbTempDeckeH02.TextChanged
    If txbTempDeckeH02.Text = "" Then
      txbTempDeckeH02.Text = 0
    Else : TempDeckeH02 = txbTempDeckeH02.Text
    End If
    TempDeckeH()
  End Sub
  Private Sub txbTempDeckeH03_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbTempDeckeH03.TextChanged
    If txbTempDeckeH03.Text = "" Then
      txbTempDeckeH03.Text = 0
    Else : TempDeckeH03 = txbTempDeckeH03.Text
    End If
    TempDeckeH()
  End Sub
  Private Sub txbTempDeckeH04_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbTempDeckeH04.TextChanged
    If txbTempDeckeH04.Text = "" Then
      txbTempDeckeH04.Text = 0
    Else : TempDeckeH04 = txbTempDeckeH04.Text
    End If
    TempDeckeH()
  End Sub
  Private Sub txbTempDeckeH05_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbTempDeckeH05.TextChanged
    If txbTempDeckeH05.Text = "" Then
      txbTempDeckeH05.Text = 0
    Else : TempDeckeH05 = txbTempDeckeH05.Text
    End If
    TempDeckeH()
  End Sub
  Private Sub txbTempDeckeH06_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbTempDeckeH06.TextChanged
    If txbTempDeckeH06.Text = "" Then
      txbTempDeckeH06.Text = 0
    Else : TempDeckeH06 = txbTempDeckeH06.Text
    End If
    TempDeckeH()
  End Sub
  Private Sub ckbHzDeckeH01_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeH01.CheckedChanged
    If ckbHzDeckeH01.Checked = True Then
      HzDeckeH01 = True
    Else : HzDeckeH01 = False
    End If
    FaktHzDeckeH()
  End Sub
  Private Sub ckbHzDeckeH02_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeH02.CheckedChanged
    If ckbHzDeckeH02.Checked = True Then
      HzDeckeH02 = True
    Else : HzDeckeH02 = False
    End If
    FaktHzDeckeH()
  End Sub
  Private Sub ckbHzDeckeH03_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeH03.CheckedChanged
    If ckbHzDeckeH03.Checked = True Then
      HzDeckeH03 = True
    Else : HzDeckeH03 = False
    End If
    FaktHzDeckeH()
  End Sub
  Private Sub ckbHzDeckeH04_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeH04.CheckedChanged
    If ckbHzDeckeH04.Checked = True Then
      HzDeckeH04 = True
    Else : HzDeckeH04 = False
    End If
    FaktHzDeckeH()
  End Sub
  Private Sub ckbHzDeckeH05_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeH05.CheckedChanged
    If ckbHzDeckeH05.Checked = True Then
      HzDeckeH05 = True
    Else : HzDeckeH05 = False
    End If
    FaktHzDeckeH()
  End Sub
  Private Sub ckbHzDeckeH06_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbHzDeckeH06.CheckedChanged
    If ckbHzDeckeH06.Checked = True Then
      HzDeckeH06 = True
    Else : HzDeckeH06 = False
    End If
    FaktHzDeckeH()
  End Sub
  Private Sub FlächeDeckeH()
    ADeckeHT = ADeckeH01 + ADeckeH02 + ADeckeH03 + ADeckeH04 + ADeckeH05 + ADeckeH06
    lblADeckeHT.Text = String.Format("{0:f1}", ADeckeHT)
  End Sub
  Private Sub UWertDeckeH()
    If ADeckeHT > 0 Then
      UDeckeHT = (ADeckeH01 * UDeckeH01 + ADeckeH02 * UDeckeH02 + ADeckeH03 * UDeckeH03 _
      + ADeckeH04 * UDeckeH04 + ADeckeH05 * UDeckeH05 + ADeckeH06 * UDeckeH06) / ADeckeHT
    Else : UDeckeHT = 0
    End If
    lblUDeckeHT.Text = String.Format("{0:f2}", UDeckeHT)
  End Sub
  Private Sub TempDeckeH()
    If ADeckeHT > 0 Then
      TempDeckeHT = (ADeckeH01 * TempDeckeH01 + ADeckeH02 * TempDeckeH02 + ADeckeH03 _
      * TempDeckeH03 + ADeckeH04 * TempDeckeH04 + ADeckeH05 * TempDeckeH05 + ADeckeH06 _
      * TempDeckeH06) / ADeckeHT
    Else : TempDeckeHT = 0
    End If
    lblTempDeckeHT.Text = String.Format("{0:f2}", TempDeckeHT)
  End Sub
  Private Sub FaktHzDeckeH()
    If ADeckeHT > 0 Then
      FaktHzDeckeHT = 0 : AHzDeckeHT = 0
      If HzDeckeH01 = True Then AHzDeckeHT = AHzDeckeHT + ADeckeH01
      If HzDeckeH02 = True Then AHzDeckeHT = AHzDeckeHT + ADeckeH02
      If HzDeckeH03 = True Then AHzDeckeHT = AHzDeckeHT + ADeckeH03
      If HzDeckeH04 = True Then AHzDeckeHT = AHzDeckeHT + ADeckeH04
      If HzDeckeH05 = True Then AHzDeckeHT = AHzDeckeHT + ADeckeH05
      If HzDeckeH06 = True Then AHzDeckeHT = AHzDeckeHT + ADeckeH06
      FaktHzDeckeHT = AHzDeckeHT / ADeckeHT
      lblFaktHzDeckeHT.Text = String.Format("{0:f2}", FaktHzDeckeHT)
    End If
  End Sub
  ' Übernehmen Tab 1
  Private Sub btnÜbernehmen1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnÜbernehmen1.Click
    btnAbbrechen1.Enabled = False
    Übernehmen1 = True
  End Sub
  ' Ok Tab 1
  Private Sub btnOk1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk1.Click
    Me.Close()
    'MsgBox("A Dach01: " & ADach01 & vbNewLine & "A Decke unbeheizt: " & ADeckeU01)
  End Sub
  ' Abbrechen Tab 1
  Private Sub btnAbbrechen1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen1.Click
    Abbrechen1()
    If Übernehmen2 = False Then
      Abbrechen2()
    End If
    If Übernehmen3 = False Then
      Abbrechen3()
    End If
    Me.Close()
  End Sub
  Private Sub Abbrechen1()
    txbNameDach01.Text = NameDach01Alt : txbNameDach02.Text = NameDach02Alt
    txbNameDach03.Text = NameDach03Alt : txbNameDach04.Text = NameDach04Alt
    txbNameDach05.Text = NameDach05Alt : txbNameDach06.Text = NameDach06Alt
    txbADach01.Text = ADach01Alt : txbADach02.Text = ADach02Alt
    txbADach03.Text = ADach03Alt : txbADach04.Text = ADach04Alt
    txbADach05.Text = ADach05Alt : txbADach06.Text = ADach06Alt
    txbUDach01.Text = UDach01Alt : txbUDach02.Text = UDach02Alt
    txbUDach03.Text = UDach03Alt : txbUDach04.Text = UDach04Alt
    txbUDach05.Text = UDach05Alt : txbUDach06.Text = UDach06Alt
    txbDämmDach01.Text = DämmDach01Alt : txbDämmDach02.Text = DämmDach02Alt
    txbDämmDach03.Text = DämmDach03Alt : txbDämmDach04.Text = DämmDach04Alt
    txbDämmDach05.Text = DämmDach05Alt : txbDämmDach06.Text = DämmDach06Alt
    ckbUmbauDach01.Checked = UmbauDach01Alt : ckbUmbauDach02.Checked = UmbauDach02Alt
    ckbUmbauDach03.Checked = UmbauDach03Alt : ckbUmbauDach04.Checked = UmbauDach04Alt
    ckbUmbauDach05.Checked = UmbauDach05Alt : ckbUmbauDach06.Checked = UmbauDach06Alt
  End Sub
  ' Übernehmen Tab 2
  Private Sub btnÜbernehmen2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnÜbernehmen2.Click
    btnAbbrechen2.Enabled = False
    Übernehmen2 = True
  End Sub
  ' Ok Tab 2
  Private Sub btnOk2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk2.Click
    Me.Close()
  End Sub
  ' Abbrechen Tab 2
  Private Sub btnAbbrechen2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen2.Click
    If Übernehmen1 = False Then
      Abbrechen1()
    End If
    Abbrechen2()
    If Übernehmen3 = False Then
      Abbrechen3()
    End If
    Me.Close()
  End Sub
  Private Sub Abbrechen2()
    txbNameDeckeU01.Text = NameDeckeU01Alt : txbNameDeckeU02.Text = NameDeckeU02Alt
    txbNameDeckeU03.Text = NameDeckeU03Alt : txbNameDeckeU04.Text = NameDeckeU04Alt
    txbNameDeckeU05.Text = NameDeckeU05Alt : txbNameDeckeU06.Text = NameDeckeU06Alt
    txbADeckeU01.Text = ADeckeU01Alt : txbADeckeU02.Text = ADeckeU02Alt
    txbADeckeU03.Text = ADeckeU03Alt : txbADeckeU04.Text = ADeckeU04Alt
    txbADeckeU05.Text = ADeckeU05Alt : txbADeckeU06.Text = ADeckeU06Alt
    txbUDeckeU01.Text = UDeckeU01Alt : txbUDeckeU02.Text = UDeckeU02Alt
    txbUDeckeU03.Text = UDeckeU03Alt : txbUDeckeU04.Text = UDeckeU04Alt
    txbUDeckeU05.Text = UDeckeU05Alt : txbUDeckeU06.Text = UDeckeU06Alt
    txbDämmDeckeU01.Text = DämmDeckeU01Alt : txbDämmDeckeU02.Text = DämmDeckeU02Alt
    txbDämmDeckeU03.Text = DämmDeckeU03Alt : txbDämmDeckeU04.Text = DämmDeckeU04Alt
    txbDämmDeckeU05.Text = DämmDeckeU05Alt : txbDämmDeckeU06.Text = DämmDeckeU06Alt
    txbRedDeckeU01.Text = RedDeckeU01Alt : txbRedDeckeU02.Text = RedDeckeU02Alt
    txbRedDeckeU03.Text = RedDeckeU03Alt : txbRedDeckeU04.Text = RedDeckeU04Alt
    txbRedDeckeU05.Text = RedDeckeU05Alt : txbRedDeckeU06.Text = RedDeckeU06Alt
    ckbHzDeckeU01.Checked = HzDeckeU01Alt : ckbHzDeckeU02.Checked = HzDeckeU02Alt
    ckbHzDeckeU03.Checked = HzDeckeU03Alt : ckbHzDeckeU04.Checked = HzDeckeU04Alt
    ckbHzDeckeU05.Checked = HzDeckeU05Alt : ckbHzDeckeU06.Checked = HzDeckeU06Alt
    ckbUmbauDeckeU01.Checked = UmbauDeckeU01Alt : ckbUmbauDeckeU02.Checked = UmbauDeckeU02Alt
    ckbUmbauDeckeU03.Checked = UmbauDeckeU03Alt : ckbUmbauDeckeU04.Checked = UmbauDeckeU04Alt
    ckbUmbauDeckeU05.Checked = UmbauDeckeU05Alt : ckbUmbauDeckeU06.Checked = UmbauDeckeU06Alt
  End Sub
  ' Übernehmen Tab 3
  Private Sub btnÜbernehmen3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnÜbernehmen3.Click
    btnAbbrechen3.Enabled = False
    Übernehmen3 = True
  End Sub
  ' OK Tab 3
  Private Sub btnOk3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk3.Click
    Me.Close()
  End Sub
  ' Abbrechen Tab 3
  Private Sub btnAbbrechen3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen3.Click
    If Übernehmen1 = False Then
      Abbrechen1()
    End If
    If Übernehmen2 = False Then
      Abbrechen2()
    End If
    Abbrechen3()
    Me.Close()
  End Sub
  Private Sub Abbrechen3()
    txbNameDeckeH01.Text = NameDeckeH01Alt : txbNameDeckeH02.Text = NameDeckeH02Alt
    txbNameDeckeH03.Text = NameDeckeH03Alt : txbNameDeckeH04.Text = NameDeckeH04Alt
    txbNameDeckeH05.Text = NameDeckeH05Alt : txbNameDeckeH06.Text = NameDeckeH06Alt
    txbADeckeH01.Text = ADeckeH01Alt : txbADeckeH02.Text = ADeckeH02Alt
    txbADeckeH03.Text = ADeckeH03Alt : txbADeckeH04.Text = ADeckeH04Alt
    txbADeckeH05.Text = ADeckeH05Alt : txbADeckeH06.Text = ADeckeH06Alt
    txbUDeckeH01.Text = UDeckeH01Alt : txbUDeckeH02.Text = UDeckeH02Alt
    txbUDeckeH03.Text = UDeckeH03Alt : txbUDeckeH04.Text = UDeckeH04Alt
    txbUDeckeH05.Text = UDeckeH05Alt : txbUDeckeH06.Text = UDeckeH06Alt
    txbDämmDeckeH01.Text = DämmDeckeH01Alt : txbDämmDeckeH02.Text = DämmDeckeH02Alt
    txbDämmDeckeH03.Text = DämmDeckeH03Alt : txbDämmDeckeH04.Text = DämmDeckeH04Alt
    txbDämmDeckeH05.Text = DämmDeckeH05Alt : txbDämmDeckeH06.Text = DämmDeckeH06Alt
    txbTempDeckeH01.Text = TempDeckeH01Alt : txbTempDeckeH02.Text = TempDeckeH02Alt
    txbTempDeckeH03.Text = TempDeckeH03Alt : txbTempDeckeH04.Text = TempDeckeH04Alt
    txbTempDeckeH05.Text = TempDeckeH05Alt : txbTempDeckeH06.Text = TempDeckeH06Alt
    ckbHzDeckeH01.Checked = HzDeckeH01Alt : ckbHzDeckeH02.Checked = HzDeckeH02Alt
    ckbHzDeckeH03.Checked = HzDeckeH03Alt : ckbHzDeckeH04.Checked = HzDeckeH04Alt
    ckbHzDeckeH05.Checked = HzDeckeH05Alt : ckbHzDeckeH06.Checked = HzDeckeH06Alt
  End Sub
End Class

Answer 1

Ich entwickle zum privaten Gebrauch ein Programm zur Erfassung des Wärmebedarfs von Gebäuden.

Das Programm beinhaltet 18 Formulare  mit mehreren Tabs pro Formular. Die 9 ersten Formulare dienen der Eingabe der Gebäudedaten und der Wärmewerte mit Textboxen und Comboboxen. Die eingegebenen Werte werden in Variablen, Public Shared dimensioniert, eingelesen und in den restlichen Formularen zur Bestimmung des Wärmebedarfs verwendet.

Beim Aufstarten des Programms wird jedes Formular geöffnet um die eingegebenen Werte und daraus resultierenden Berechnungen in die respektiven Variablen einzutragen. Gleich anschliessend wird das Formular wieder geschlossen. Ich verwende dazu die Befehle „.Show()“ und „.Close()“.

Soweit funktioniert alles Bestens.

Wenn ich aber z.B. auf Tab 1 eines der Eingabeformulare einen Wert ändere, sei es durch Eingabe in eine Textbox oder durch Auswahl eines andern Wertes einer Combobox, werden alle Variablen mit Werten aus den nachfolgenden Tabs des gleichen Formulars, also Tab 2, Tab 3 etc. auf den Wert Null gesetzt. Die Werte aus Tab 1 bleiben erhalten. Wenn ich das Formular mit dem geänderten Wert schliesse und wieder öffne, sind die Werte wieder vorhanden. Die Werte sind auch wieder vorhanden, wenn ich Tab 2, Tab 3 etc. anklicke.

Ich verwende einen Fujitsu Lifebook A530 Laptop mit Win7 Pro SP1.

Zur Entwicklung verwende ich MS Visual Studio 2010, MS Visual Basic 2010 Express SP1, MS .Net Framework 4.0 SP1.

Für Anregungen und Hinweise bin ich sehr dankbar. Falls möglich an meine E-Mail Adresse:

[e-mail]

Answer 2

Hallo Heinz.

Ich kann mir das mit den 18 Formularen und 9 Tabs im Moment nicht so richtig vorstellen. Und das Rücksetzen verstehe ich auch ohne Codebeispiel nicht so gut.

Darum habe ich gerade mal ein Testprogramm mit 1 Formular und 9 Tabs geschrieben und in jeder Tabseite eine Combobox eingebaut, die jeweils mit 10 zufälligen Werten gefüllt war.

Dann habe ich willkürlich Texte eingegeben und ausgewählt und jedesmal das Tab gewechselt. Die Werte blieben immer erhalten, völlig egal welches Tab ich wählte oder was ich eingab.

Sollen die Werte in den Tabs denn irgendwie vorbelegt sein (bevor du die Form siehst und was eingeben kannst)?

Wenn du ein Fomular das erste Mal öffnest, muss es ja geladen werden, und da wir es natürlich auch initialisiert. Passiert dabei vielleicht schon Murks?

Öffnest du bei den Formularen 9 immer die selbe Form, 9 mal? Oder sind das 9 verschiedene Forms?

Passiert das in der ersten geöffneten Form schon? Oder erst in einer späteren (oder sogar in jeder)?

Validierst du irgendwie die Werte, die eingegeben werden? Oder fängst du Events ab, z.B. SelectedIndexChanged oder sowas?

Sind die Comboboxen DropDown oder DropDownList, kannst du also neue Hinzufügen oder nur Auswählen?

Meinst du mit auf Null setzen, dass während die Form gezeigt wird, dort eine Null steht bzw. Leerstring, oder meinst du damit, dass nach dem Beenden der Form und der Übergabe in die Variablen evtl. Null drin steht? Könnte sein, dass du etwas abfragst, nachdem die Form schon disposed und die Eingabe verloren ist.

Naja ... wie auch immer, ohne Codebeispiel wird das eher ein "im Trüben fischen". Vielleicht postest du mal ein paar Ausschnitte deiner Form.

LG, Dennis.

Answer 3

Hi Heinz,

ich setzt mal den Link zu Original Nachricht damit man weiß worum es geht: http://social.msdn.microsoft.com/Forums/de-DE/visualbasicde/thread/cdd41532-1a76-4f26-b6b4-af9e5718dd1b#60d1871d-8b73-49cf-89bc-44bb85053315

Bitte erstelle mal für die Gefühlten 1000 Variablen am Anfang eine Klasse (bzw mehrere).

Und schau dir mal Databinding an.

MFG

Björn

Answer 4

Hallo Dennis,

Besten Dank für deine prompte Antwort. Ich habe den Code eines Eingebeformulars an das Forum gepostet.

Ich versuche, mit dem folgenden eine bessere Klarheit zu schaffen:

Die Formulare enthalten 3-4 Tabs.

Die Werte in den Steuerelementen, seien es Textboxen oder Comboboxen (Dropdown) werden in Variablen übernommen, die Public Shared dimensioniert sind und sollen in den Auswerteformularen für Berechnungen verwendet werden.

Nun zum allfälligen Missverständnis: Die Eingaben oder Änderungen der Werte bleiben in den Steuerelementen immer erhalten, aber die Variablen mit den Werten der Tabs 2, 3 ect werden gelöscht,wenn ich einen Wert in einem Steuerelement in Tab 1 eingebe oder ändere.

Ich versuche, den Screenshot der Benutzeroberfläche hier einzufügen, den ich mit dem Code nicht senden konnte, da ich die Meldung erhielt, dass ein Bild nicht eingefügt werden kann, da mein Account nicht verifiziert sei.

Vielen Dank fü Deine Hilfe

Grüsse Heinz

Answer 5

Hi Heinz,

alternativ/ergänzend würde ich bei derart vielen x.....01, x....02, x.... .... ,x.....n in den Variablen dazu übergehen, einmal eine Liste davon zu machen ...

Exemplarisch für

    ckbHzDeckeH01.Checked = HzDeckeH01Alt : ckbHzDeckeH02.Checked = HzDeckeH02Alt
    ckbHzDeckeH03.Checked = HzDeckeH03Alt : ckbHzDeckeH04.Checked = HzDeckeH04Alt
    ckbHzDeckeH05.Checked = HzDeckeH05Alt : ckbHzDeckeH06.Checked = HzDeckeH06Alt

z.B.

Dim ckbHzDeckenH as List(of CheckBox) = New List(of CheckBox) From {chkHzDeckeH01,chkHzDeckeH02,chkHzDeckeH03,....,chkHzDeckeH06}

Und dann kannste überall prima mit ...

For Each HDecke as CheckBox

... blub ...

Next

... arbeiten. Macht so manchen Ablauf ein wenig übersichtlicher und schlanker, denke ich mal. Vor allem, weil du dann mit Indizes arbeiten kannst, als ständig mit langen Variablennamen und zig Zeilen, die eigentlich denselben Code enthalten. Auch schon bei der Deklaration im Klassenkopf bzw. der Initialisierung in der FormLoad.

Im Übrigen bin ich mir nicht sicher, ob dir die Funktionsweise von "shared" wirklich klar ist. Denn Shared sind nicht Variablen, die außerhalb der Klasse (quasi global) verwendet werden können, sondern shared meint "Einmal für alle Instanzen dieser Klasse". In dem Sinne sind deine in Form04 als shared definierten Variablen in allen von dir jemals verwendeten Instanzen von Form04 dieselben. Aber hast du wirklich mehrmals "Form04" instanziert?

Es kann gut sein, dass sich auch daraus schon Fehler ergeben.

LG, Dennis.

Answer 6

Hallo,

das könnte sein. Wenn in einer anderen Instanz dieses Forms die Abbrechen Prozeduren am Ende durchlaufen werden dann würden die Shared Variablen zurückgesetzt.

Warum müssen diese denn Shared sein?

Answer 7

Hallo Heinz Märki,

Relevanter Code zu posten wäre auch nicht schlecht oder eine .zip Datei mit den Code (falls der Code zu groß ist) kann man ihm Public Ordner von SkyDrive laden und den link hier Posten.  (Wie nutze ich den SkyDrive?)

Grüße,

Robert

---

Robert Breitenhofer, MICROSOFT   Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 8

****************************************************************************************************************
Dieser Thread wurde mangels weiterer Beteiligung des Fragestellenden ohne bestätigte Lösung abgeschlossen.
Neue Rückfragen oder Ergänzungen zu diesem Thread bleiben weiterhin möglich.
****************************************************************************************************************

---

Robert Breitenhofer, MICROSOFT   Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.