Form2.TextBox1.Text = Me.TextBox4.Text
Form2.ShowDialog()

Me.TextBox1.Text = Form1.TextBox4.Text

Dim eingabetext As String = Form1.TextBox4.Text

EALA FREYA FRESENA

EALA FREYA FRESENA

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Dim f As Form = New Form1
f.Show()

Public HauptForm As Form1

HauptForm = New Form1

Class Form2
 
  Public Sub New(tx1 As String, tx2 As String)
    InitializeComponent()
    Me.TextBox1.Text = tx1
    Me.TextBox2.Text = tx2
  End Sub
 
End Class

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
    Button1.Click
    Dim f As New Form2(Me.TextBox1.Text, Me.TextBox2.Text)
    f.ShowDialog()
  End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Zitat:

Hab auch an den Experten geschrieben, dass man die Aufgabe höchstens mit ÜSW (Übersinnnlicher Wahrnehmung) lösen kann; der meinte dann, ich hätte nicht unrecht

Zitat:

aber jetzt am Ende des Kurses sollte man selbst sehen, wie man weiterkommt

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus

Zitat:

Hallo effeff, Dein Link bezieht sich auf VB 2003. Dort musste man eine Form instanzieren, bevor man sie verwenden konnte. Seit VB 2005 werden Formulare wieder automatisch instanziert (Form1 = New Form1) und somit ist die Schreibweise aus VB6 immernoch gültig und funktioniert ohne Probleme.

EALA FREYA FRESENA

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
     Handles MyBase.Load
        RadioButton1.Checked = True
    End Sub
 
    Private Sub Berechnen()
 
        Dim Gewicht As Single
        Dim Groesse As Single
        Dim Idealgewicht As Single
 
        Dim Faktor As Single = 0.9
        If RadioButton2.Checked = True Then Faktor = 0.85
 
        If Trim$(TextBox1.Text) <> "" Then
            Gewicht = CDec(TextBox1.Text)
        Else
            Gewicht = 0
        End If
 
        If Trim$(TextBox2.Text) <> "" Then
            Groesse = CDec(TextBox2.Text)
        Else
            Groesse = 0
        End If
 
        If Gewicht > 0 And Groesse > 0 Then
            Idealgewicht = CSng((Groesse - 100) * 0.9)
            Label1.Text() = "Ihr Idealgewicht: " & Idealgewicht & " " & "- Ihr" & _
              "Gewicht:" & Gewicht.ToString("0")
 
            Select Case Gewicht - Idealgewicht
                Case Is < -0.5
                    Label4.Text = "Sie haben Untergewicht"
                Case Is > 0.5
                    Label4.Text = "Sie haben Übergewicht"
                Case Else
                    Label4.Text = "Sie haben Normalgewicht"
            End Select
 
        Else
            Label1.Text() = "Ihr Wert: " & 0
        End If
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        Berechnen()
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox2.TextChanged
        Berechnen()
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
 
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label2.Click
 
    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label3.Click
 
    End Sub
 
    Private Sub Label4_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Label4.Click
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Form2.ShowDialog()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

Public Class Form2
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label2.Click
 
    End Sub
End Class

Private Sub Berechnen()
 
        Dim Gewicht As Single
        Dim Groesse As Single
        Dim Idealgewicht As Single
 
        Dim Faktor As Single = 0.9

Public Class Form1
 
Public Gewicht As Single
        Public Groesse As Single
        Public Idealgewicht As Single
 
        Public Faktor As Single = 0.9

Public Class frmInputWeight
 
    Dim lblWeight As New Label With _
                {.Parent = Me, .Text = "Input Weight (kg):", .Width = 150}
    Dim txtWeight As New TextBox With _
                {.Parent = Me, .Left = lblWeight.Width + 5}
 
    Dim WithEvents btnDisplayWeight As New Button With _
        {.Parent = Me, .Text = "Display Weight in Form", _
         .Width = 300, .Top = 100}
 
 
    Private Sub btnDisplayWeight_Click(sender As Object, e As System.EventArgs) _
        Handles btnDisplayWeight.Click
 
        Dim weight As Decimal
        If Not Decimal.TryParse(txtWeight.Text, weight) Then
            MsgBox("Not a number") : Exit Sub
        End If
 
        Using myDisplayweight As New frmDisplayWeight
            With myDisplayweight
                .WeightToDisplay = weight
                .ShowDialog()
            End With
        End Using
    End Sub
End Class
 
 
 
Public Class frmDisplayWeight
 
    Dim displayedweight As Decimal = -1D
 
    Dim txtWeight As New TextBox With _
                     {.Parent = Me, .Font = New Font("Arial", 36, _
                     FontStyle.Bold), _
                      .Width = 300, .Height = 300}
 
 
    Public Property WeightToDisplay As Decimal
 
        Set(value As Decimal)
            If value < 10 Or value > 150 Then
                Throw New ArgumentException("Illegal Weight")
            End If
            displayedweight = value
            txtWeight.Text = Format(value, "0.00 kg")
        End Set
 
        Get
            If displayedweight = -1 Then
                Throw New ArgumentException("No weight available")
            End If
            Return displayedweight
        End Get
    End Property
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) Handles RadioButton2.CheckedChanged
        frm = New Form2
        frm.BackColor = Color.Red 'od. pink
    End Sub
End Class

Private Sub ShowErgebnis(ByVal strTextGewicht As String, ByVal _
  strTextErgebnisGewicht As String)
 
        Ergebnis.Show()
 
        Ergebnis.Label_Gewicht.Text             = strTextGewicht
        Ergebnis.Label_Ergebnis_Gewicht.Text    = strTextErgebnisGewicht
 
        If Me.RadioButton_Frau.Checked = True Then
            Ergebnis.BackColor = Color.Red
            Ergebnis.Label_Gewicht.BackColor = Color.Red
            Ergebnis.Label_Ergebnis_Gewicht.BackColor = Color.Red
        Else
            Ergebnis.BackColor = System.Drawing.SystemColors.Control
            Ergebnis.Label_Gewicht.BackColor = _
              System.Drawing.SystemColors.Control
            Ergebnis.Label_Ergebnis_Gewicht.BackColor = _
            System.Drawing.SystemColors.Control
        End If
 
 
    End Sub

EALA FREYA FRESENA

'Text für Gewicht zusammensetzen
        strTextGewicht = "Hallo " & "Ihr Idealgewicht: " & CStr( _
          dblIdealgewicht) & " kg" & " - Ihr " & _
              "Gewicht: " & CStr(dblGewicht.ToString) & " kg"

EALA FREYA FRESENA

'Text für Gewicht zusammensetzen
        strTextGewicht = "Hallo " & strTextName & "Ihr Idealgewicht: " & CStr( _
          dblIdealgewicht) & " kg" & " - Ihr " & _
              "Gewicht: " & CStr(dblGewicht.ToString) & " kg"

Private Sub ShowErgebnis(ByVal strTextGewicht As String, ByVal _
  strTextErgebnisGewicht As String)
 
        Ergebnis.Show()
        Ergebnis.Label_Gewicht.Text = strTextName
        Ergebnis.Label_Gewicht.Text = strTextGewicht
        Ergebnis.Label_Ergebnis_Gewicht.Text    = strTextErgebnisGewicht
 
 
    End Sub

Private Sub Button_Calculate_Click( ByVal sender As System.Object,  ByVal e As _
  System.EventArgs) Handles Button_Calculate.Click
        Dim dblLength                   As Double = Nothing
        Dim dblGewicht                  As Double = Nothing
        Dim dblFaktor                   As Double = Nothing
        Dim dblIdealgewicht             As Double = Nothing
        Dim dblDifference               As Double = Nothing
        Dim strTextErgebnisGewicht      As String = Nothing
        Dim strTextGewicht As String = Nothing
        Dim strTextName As String = Nothing
        Const FAKTOR_MANN               As Double = 0.9
        Const FAKTOR_FRAU               As Double = 0.85

Public Class Dateneingabe
 
 
 
    Private Sub Dateneingabe_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        'Beim Laden des Formular den Radiobutton auf Männlich setzen
        '(damit gleich am Anfang ein sinnvoller Wert vorausgewählt ist)
        Me.RadioButton_Mann.Checked = True
    End Sub
 
    Private Sub TextBox_Name_TextChanged( ByVal sender As System.Object,  ByVal _
      e As System.EventArgs) Handles TextBox_Name.TextChanged
        'Button_Calculate einstellen
        Validierung.CheckAndSetButton_Calculate()
    End Sub
 
    Private Sub TextBox_Gewicht_TextChanged( ByVal sender As System.Object,  _
      ByVal e As System.EventArgs) Handles TextBox_Gewicht.TextChanged
        'Button_Calculate einstellen
        Validierung.CheckAndSetButton_Calculate()
    End Sub
 
    Private Sub TextBox_Size_TextChanged( ByVal sender As System.Object,  ByVal _
      e As System.EventArgs) Handles TextBox_Size.TextChanged
        'Button_Calculate einstellen
        Validierung.CheckAndSetButton_Calculate()
    End Sub
 
    Private Sub RadioButton_Mann_CheckedChanged( ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles RadioButton_Mann.CheckedChanged
        'Button_Calculate einstellen
        Validierung.CheckAndSetButton_Calculate()
    End Sub
 
    Private Sub RadioButton_Frau_CheckedChanged( ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles RadioButton_Frau.CheckedChanged
        'Button_Calculate einstellen
        Validierung.CheckAndSetButton_Calculate()
    End Sub
 
    Private Sub Button_Calculate_Click( ByVal sender As System.Object,  ByVal e _
      As System.EventArgs) Handles Button_Calculate.Click
        Dim dblLength                   As Double = Nothing
        Dim dblGewicht                  As Double = Nothing
        Dim dblFaktor                   As Double = Nothing
        Dim dblIdealgewicht             As Double = Nothing
        Dim dblDifference               As Double = Nothing
        Dim strTextErgebnisGewicht      As String = Nothing
        Dim strTextGewicht              As String = Nothing
        Const FAKTOR_MANN               As Double = 0.9
        Const FAKTOR_FRAU               As Double = 0.85
 
 
        If Me.RadioButton_Mann.Checked = True Then
            'Wenn der RadioButton für männlich ausgewäht ist,
            'dann den Wert für männlich zuweisen
            dblFaktor = FAKTOR_MANN
        Else
            'Andernfalls den Wert für weiblich zuweisen
            dblFaktor = FAKTOR_FRAU
        End If
 
        'Wert aus der TextBox für Größe nach Double konvertieren
        'Sollte ein Konvertierungsfehler auftreten (was eigentlich nicht sein 
        ' sollte),
        'dann sofort zum Fehlerausgang.
        If Helper.ConvertTextToDouble(Me.TextBox_Size.Text, dblLength) = False _
          Then Goto ErrorExit
            '--->>
            '--->>
 
        'Wert aus der TextBox für Gewicht nach Double konvertieren
        'Sollte ein Konvertierungsfehler auftreten (was eigentlich nicht sein 
        ' sollte),
        'dann sofort zum Fehlerausgang.
        If Helper.ConvertTextToDouble(Me.TextBox_Gewicht.Text, dblGewicht) = _
          False Then Goto ErrorExit
            '--->>
            '--->>
 
        'Idealgewicht berechnen
        dblIdealgewicht = Berechnung.Calculate_Idealgewicht(dblLength, _
          dblFaktor)
 
        'Differenz zwischen Gewicht und Idealgewicht ausrechnen
        dblDifference = dblGewicht - dblIdealgewicht
 
        'Text für Gewicht zusammensetzen
        strTextGewicht = "Hallo " & "Ihr Idealgewicht: " & CStr( _
          dblIdealgewicht) & " kg" & " - Ihr " & _
              "Gewicht: " & CStr(dblGewicht.ToString) & " kg"
 
        Select Case dblDifference
            Case Is < -0.5
                strTextErgebnisGewicht = "Sie haben Untergewicht."
            Case Is > 0.5
                strTextErgebnisGewicht = "Sie haben Übergewicht."
            Case Else
                strTextErgebnisGewicht = "Sie haben Normalgewicht."
        End Select
 
        'Formular anzeigen und Werte einfüllen.
        Me.ShowErgebnis(strTextGewicht, strTextErgebnisGewicht)
 
    'Muss rein, damit nicht in den Fehlerausgang reingelaufen wird.
    Exit Sub
 
    'Fehlerausgang
    ErrorExit:
    'Hier kann noch eine Meldung eingebaut werden, falls benötigt.
    End Sub
 
    Private Sub ShowErgebnis(ByVal strTextGewicht As String, ByVal _
      strTextErgebnisGewicht As String)
 
        Ergebnis.Show()
 
        Ergebnis.Label_Gewicht.Text             = strTextGewicht
        Ergebnis.Label_Ergebnis_Gewicht.Text    = strTextErgebnisGewicht
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.Close()
 
    End Sub
End Class

        Dim dblLength                   As Double = Nothing
        Dim dblGewicht                  As Double = Nothing
        Dim dblFaktor                   As Double = Nothing
        Dim dblIdealgewicht             As Double = Nothing
        Dim dblDifference               As Double = Nothing
        Dim strTextErgebnisGewicht      As String = Nothing
        Dim strTextGewicht              As String = Nothing
        Dim strTextAnrede               As String = Nothing
        Const FAKTOR_MANN               As Double = 0.9
        Const FAKTOR_FRAU               As Double = 0.85
 
 
        If Me.RadioButton_Mann.Checked = True Then
            'Wenn der RadioButton für männlich ausgewäht ist,
            'dann den Wert für männlich zuweisen
            dblFaktor = FAKTOR_MANN
            strTextAnrede = "Hallo Herr " & Me.TextBox_Name.Text & ","
        Else
            'Andernfalls den Wert für weiblich zuweisen
            dblFaktor = FAKTOR_FRAU
            strTextAnrede = "Hallo Frau/Frl. " & Me.TextBox_Name.Text & ","
        End If
 
        'Wert aus der TextBox für Größe nach Double konvertieren
        'Sollte ein Konvertierungsfehler auftreten (was eigentlich nicht sein 
        ' sollte),
        'dann sofort zum Fehlerausgang.
        If Helper.ConvertTextToDouble(Me.TextBox_Size.Text, dblLength) = False _
          Then Goto ErrorExit
            '--->>
            '--->>
 
        'Wert aus der TextBox für Gewicht nach Double konvertieren
        'Sollte ein Konvertierungsfehler auftreten (was eigentlich nicht sein 
        ' sollte),
        'dann sofort zum Fehlerausgang.
        If Helper.ConvertTextToDouble(Me.TextBox_Gewicht.Text, dblGewicht) = _
          False Then Goto ErrorExit
            '--->>
            '--->>
 
        'Idealgewicht berechnen
        dblIdealgewicht = Berechnung.Calculate_Idealgewicht(dblLength, _
          dblFaktor)
 
        'Differenz zwischen Gewicht und Idealgewicht ausrechnen
        dblDifference = dblGewicht - dblIdealgewicht
 
        'Text für Gewicht zusammensetzen
        strTextGewicht = "Ihr Idealgewicht beträgt: " & CStr(dblIdealgewicht) & _
          " kg" & " - Ihr " & _
        "Gewicht: " & CStr(dblGewicht.ToString) & " kg"
 
 
        Select Case dblDifference
            Case Is < -0.5
                strTextErgebnisGewicht = "Sie haben Untergewicht."
            Case Is > 0.5
                strTextErgebnisGewicht = "Sie haben Übergewicht."
            Case Else
                strTextErgebnisGewicht = "Sie haben Normalgewicht."
        End Select
 
        'Formular anzeigen und Werte einfüllen.
        Me.ShowErgebnis(strTextAnrede, strTextGewicht, strTextErgebnisGewicht)
 
 
    'Muss rein, damit nicht in den Fehlerausgang reingelaufen wird.
    Exit Sub
 
    'Fehlerausgang
    ErrorExit:
    'Hier kann noch eine Meldung eingebaut werden, falls benötigt.
    End Sub
 
    Private Sub ShowErgebnis(ByVal strTextAnrede As String, ByVal _
      strTextGewicht As String, ByVal strTextErgebnisGewicht As String)
 
 
        Ergebnis.Show()
        'Sofort nach dem Anzeigen des Formulars dieses weiter nach rechts 
        ' rücken,
        'damit das Eingabeformular nicht überdeckt wird.
        Ergebnis.Location = New Point(Me.Location.X + Me.Width + 20, _
          Me.Location.Y)
 
        Ergebnis.Label_Name.Text                = strTextAnrede
        Ergebnis.Label_Gewicht.Text             = strTextGewicht
        Ergebnis.Label_Ergebnis_Gewicht.Text    = strTextErgebnisGewicht
 
        If Me.RadioButton_Frau.Checked = True Then
            Ergebnis.BackColor                          = Color.Salmon
            Ergebnis.Label_Name.BackColor               = Color.Salmon
            Ergebnis.Label_Gewicht.BackColor            = Color.Salmon
            Ergebnis.Label_Ergebnis_Gewicht.BackColor   = Color.Salmon
        Else
            Ergebnis.BackColor                          = Color.LightBlue
            Ergebnis.Label_Name.BackColor               = Color.LightBlue
            Ergebnis.Label_Gewicht.BackColor            = Color.LightBlue
            Ergebnis.Label_Ergebnis_Gewicht.BackColor   = Color.LightBlue
        End If
 
 
    End Sub

'Text für Gewicht zusammensetzen
        strTextGewicht = "Ihr Idealgewicht beträgt: " & CStr(dblIdealgewicht) & _
          " kg" & " - Ihr " & _
        "Gewicht: " & Gewicht CStr(dblGewicht.ToString) & " kg"

strTextGewicht = "Ihr Idealgewicht beträgt: " & CStr(dblIdealgewicht) & " kg" & _
  " - Ihr " & _
        "Gewicht: " & CStr(dblGewicht.ToString) & Gewicht & " kg"

'Text für Gewicht zusammensetzen
        strTextGewicht = "Ihr Idealgewicht beträgt: " & CStr(dblIdealgewicht) & _
          " kg" _
        & " Ihr Gewicht beträgt: " & CStr(dblGewicht) & " kg"