VB2008 wert der Variable an die 2te Form übergeben?

Wie kann ich eine Varible von der 1te Form hab an die 2teForm übergeben ?

PHP:



// das ist die erste Form
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim stunden As Integer
        stunden = TextBox1.Text
        Me.Hide()
        form2.show()

    End Sub
End Class


//die Zweite

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Text = stunden

    End Sub
End Class



Was kann ich machen damit die variable 'stunden' den Wert von Form 1 bekommt?

 

Aus der Hilfe:

 

Da du das ganze aus der Textbox holst und es in keinster Weise weiter verarbeitest, könntest du dir die Variablen Zuweisung in Form 1 sparen und statt dessen den Inhalt der Textbox direkt in Form 2 abfragen.

Du nutzt also in Form 2 anstatt Label1.Text = stunden einfach Label1.Text = Form1.TextBox1.Text

Damit holst du dir den Inhalt der Textbox einfach direkt in das Label1 auf Form2, anstatt erst in eine Variable und von dort dann wieder raus.

Alternativ kannst du auch die Variable ansprechen, sofern du immer darauf achtest, sie PUBLIC zu deklarieren.

 

Danke es hat geklappt!

Und das mit dem PUBLIC klappt irgendwie bei mir nicht. Da das oben genannte nur ein Bsp war möchte ich gern wissen wie ich die Variable ind die andere Form übergeben kann.

PHP:


Public Class Form1
    Public wert As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        wert = TextBox1.Text
        Me.Hide()
        Form2.Show()


    End Sub

End Class




Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Text = wert   // "wert" ist nicht deklariert 

    End Sub
End Class





so klappts nicht

 

Hier mal ein etwas erweiterter Beispielcode

Der dürfte Selbsterklärend sein. Falls dennoch etwas unklar ist, einfach nachfragen.

Code:

Option Explicit On
Public Class Form1
    Public x As String


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text > "" Then
            x = TextBox1.Text
            Me.Hide()
            Form2.Show()
        Else
            MsgBox("TextBox1 enthält keinen Text" & vbCrLf & "Form2 kann nicht geöffnet werden !", vbCritical, "Fehler !")
        End If

    End Sub
End Class

Code:

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = Form1.x

    End Sub
End Class