VB6 Variable in anderen Sub übergeben

Question

Hi, ich habe mal eine kleine Form mit Visual Basic 6 zu testzwecken erstellt, bestehend aus 2 buttons (cmd_eingabe, cmd_ausgabe)

Private Sub cmd_eingabe_Click()
Dim variable As String
variable = InputBox("Bitte etwas eintippen", "Eingabe")
End Sub

Private Sub cmd_ausgabe_Click()
MsgBox variable
End Sub


das steht drinnen. ich möchte nun, dass man auf eingabe klickt, da einen wert eintippt und diesen per klick auf ausgabe ausgegeben bekommt.
ich habe schon gegoogelt, aber die antworten haben iwie nicht funktioniert
statt
-->dim variable as string
:
-->public variable as string
aber da kommen nur fehlermeldungen
.
wenn das problem gelöst wäre, würde mich noch interessieren, wie ich zu einer sprungmarke in einem anderen sub per goto befehl springen kann.
aber das mit den variablen wäre mir wichtiger
Gruß

Answer 1

Hallo da horscht,

ein goto in eine andere Sub ist nicht möglich und nicht notwendig. Hier ist gutes, einfaches Programm-Design gefragt. Programmteile, die an mehreren Stellen benötigt werden, sind in eine eigene Funktion zu setzen.

Wenn viele Programmanweisungen zusammen gehören und somit eine Einheit bilden, rate ich dazu, auch diese in eine eigene Sub zu schreiben, um den Überblick zu behalten.

Gruß
xmatrix

Option Explicit 'nur gültige Variablen nutzen

private strVariable as string 'Modulweit deklarieren

private sub test1()
strVariable = input("text", "text") 'gib' doch etwas ein
löschevariable 'ich nutze es hier (ohne goto)
end sub

private sub test2()
msgbox strVariable 'zeig's mir
löschevariable 'noch einmal (ohne goto)
end sub

private sub löschevariable()
strVariable = "" 'und löschen
end sub