globale variablen

kann mir ma einer sagen, wie ich globale variablen in "form1" deklarieren kann? ich will die in einer zweiten form und in einem modul auch nutzen können.
hab es schon so probiert:

public test as string
----------------
hier form 1:

Public test

Private Sub Command3_Click() 'form1
MsgBox test
End Sub

Private Sub Form_Load()
test = "bla"
End Sub

Private Sub Command1_Click() 'form2
Form2.Visible = True
End Sub

Private Sub Command2_Click() 'modul1
Call bla
End Sub
----------------
hier form2:

Private Sub Form_activate()
MsgBox test
End Sub
-----------------
hier form3:

Sub bla()
MsgBox (test)
End Sub
-------------------

so also wenn ich jetzt in form1 auf command 3 klicke dann erscheint eine messagebox mit dem text "bla" (zugewiesener wert auf "test"). klicke ich jedoch nun auf command2 oder command1 klicke (für form2 und modul1) dann erscheint in der messagebox ein leerer test. nun will ich aber das auch wie hier in form 1 eine messagebox erscheint die den wert "bla" der variable "test" ausgibt. könnt ihr mir da mal helfen ich weiss nich mehr weiter :cry:

thx schon im voraus
mfg
scorpion
 
Es gibt 2 Möglichkeiten

entweder du deklarierst sie im modul dann sind sie überall verfügbar

oder du greifst von den anderen Dateien auf die Variablen zu indem du sie explizit benennst also form1.test
 
hmmm ich checks nich ^^............sorry, gib ma beispiele an so in quelltextform

EDIT: okay nu hab icks............. habs mit der modul-variante probiert........danke ^^

mfg
scorpion
 
Zuletzt bearbeitet:
erm.................eine frage hätte ich da noch. mit den variablen das alles wunderbar........thx.
nu hab ich n zweites problem:

in z.b. modul1 steht folgendes:

bla.visible=false 'bla ist ein frame und soll sichtbar werden

dies steht nun halt in modul1. aber wenn ich das modul in die form einbinde dann sagt er mir "undeklarierte variable". hmmmmm..........es ist aber keine variable.
was mach ich da. wie kann ich ihn dazu bringen diese funktion in einem modul zu speichern und auszuführen?

thx im voraus
mfg
scorpion
 
Zurück