vba - label.caption 没有更新

Question

我的vba有小问题。我是vba的新手。所以请在这件事上帮助我。

我有两个像图片一样的用户表单。

Userform1

Userform2

用户表单 1 的以下代码

Private Sub CommandButton1_Click()
Me.Hide
UserForm2.Show
End Sub

用户表单 2 的以下代码

Private Sub CommandButton1_Click()
Me.Hide
UserForm1.TextBox1.Value = ""
UserForm1.Show

End Sub


Private Sub UserForm_Initialize()
Label2.Caption = UserForm1.TextBox1.Value
End Sub

问题是当我返回到用户表单 1 并在文本框中输入值时，然后单击执行按钮，它会重定向到用户表单 2，但不更新 label1.caption。

任何人都可以帮助我如何更新label1 ???????

Answer 1

在用户表单 2 上使用 Useform_Activate 事件。

Private Sub UserForm_Activate()
Label2.Caption = UserForm1.TextBox1.Value
Me.Repaint
End Sub