label.caption未更新

Question

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

我有两个类似图片的用户表单。

Userform1

Userform2

userform 1的以下代码

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

UserForm2的以下代码

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并在文本框中输入值，然后单击go按钮时，它会重定向到用户表单2，但不会更新label1.caption。

有人能帮我更新label1吗？

Answer 1

在你的userForm2上使用Useform_Activate事件。

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

Answer 2

在设置值之后使用Me.Repaint，这将强制表单更新其上的所有内容，值将会显示出来。