Globale Variable in Userform

Suche ich über diese hier im forum und fand einige Antworten, aber nicht für mich arbeiten.

Ich habe zwei UserForms.

In der ersten gebe ich einen Wert an eine variable mit dem Namen Word.

In der zweiten, ich habe ein Label, das ich brauche die Beschriftung zu der variable Wort.

Beispiel:

Public Word as String

Private Sub Userform1_Activate
   Word = "Today Is Saturday"
End Sub

Private Sub Userform2_Activate
   Label1.Caption = Word
End Sub

Aber das funktioniert nicht. Die Beschriftung wird Null Wert.
Könnte jemand mir helfen?

Dank.

First Form

Private Sub CommandButton5_Click()

Db = "C:\Users\Desktop\db.txt"

Set File1 = CreateObject("Scripting.FileSystemObject")
Set File2 = File1.OpenTextFile(Db, 1)

Do Until File2.AtEndOfStream

If (File2.Readline = TextBox1) Then Exit Do
If File2.AtEndOfStream Then WordNotFound.Show
If File2.AtEndOfStream Then TextBox1.Value = ""
If File2.AtEndOfStream Then Exit Sub

Loop

Word = File2.Readline

MsgBox Word

TextBox1.Value = ""

End Sub

Zweite Form

Private Sub UserForm_Click()

Label1.Caption = Word

End Sub
Sollte dies funktionieren. Können Sie die Reihenfolge der Anzeige von Formularen?
Ich habe Sie zu meinem ersten Beitrag, werfen Sie einen Blick.
Siehe mein Beispiel-code. Hoffe, das hilft.

InformationsquelleAutor AndroidDev | 2013-12-27

  1. 5

    Als ich sagte, in meinem Kommentar, dass deine Methode funktionieren sollte. Hier ist der test-code, den ich versucht

    1 - In Module1

    Public Word As String

    2 - 2 user-forms - UserForm1 und UserForm2

    2a - In UserForm1

    Private Sub UserForm_Activate()
    Word = "This is Saturday"
End Sub

    2b - In UserForm2

    Private Sub UserForm_Activate()
    Label1.Caption = Word
End Sub

    3 - Dann in ThisWorkbook

    Private Sub Workbook_Open()
    UserForm1.Show
    UserForm2.Show
End Sub

    So, wenn Sie in der Nähe UserForm1 die UserForm2 angezeigt werden würde, wie unten

    Globale Variable in Userform

    Pankaj Jaju, dein code funktioniert gut. Aber ich beabsichtige zu verwenden, nur Useforms. Kann ich es tun nur durch die Verwendung der zwei useforms? Weil ich möchte erstellen Sie eine exe-Datei später. Und wenn es mit "ThiwWorkbook" und ein Modul, ich bin nicht sicher, es wird möglich sein
    Ich zeigte nur, Sie meinen test code. Sie implementieren können, die .Show überall Sie wollen. Für e.g, die Sie verwenden können UserForm2.Show Ende UserForm1 code. Stellen Sie lediglich sicher, dass die Word festgelegt ist, bevor Sie anrufen UserForm2
    Oh, vielen Dank, ich bekomme es! Aber was ist mit den Öffentlich-Wort als String-Anweisung ? Muss es gehen in einem separaten Modul?
    Nicht unbedingt. Sie haben es zu Beginn des UserForm-Codes.
    Nochmals vielen Dank, Mann

    InformationsquelleAutor Pankaj Jaju

Schreibe einen Kommentar