VB6: Variablen intern übergeben

[maxim_42]

Option Explicit

Dim iVal As Integer


Private Sub Command1_Click()

    Label1.Caption = iVal

End Sub


Private Sub Command2_Click()

Text1.SetFocus

End Sub


Private Sub Form_Load()

    Text1.Text = ""

End Sub


Private Sub Text1_Validate(Cancel As Boolean)

    If IsNumeric(Text1.Text) Then

        iVal = CInt(Text1.Text)

    Else

        Cancel = True

    End If

End Sub

[/PHP]

[-roTekuGeL-]

Also ich denke das geht auch einfacher...

Option Explicit


Dim strTemp as String 'Deklaration der Variable


Private Sub Command1_Click()

    strTemp = Inputbox("Eingabe:") 'Inputbox für die Eingabe des Strings

End Sub


Private Sub Command2_Click()

  msgbox "Ausgabe: " & strTemp 'Ausgabe des eingegebenen Strings

End Sub