label.captionが更新されていません

Question

私のvbaには少し問題があります。私はvbaで新しいです。だからplsはこの問題で私を助けます。

私は2つのユーザーフォームのような画像を持っています。

Userform1

Userform2

ユーザーフォーム1

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

次のコードiは1 &をユーザーフォームに戻るときに問題があるユーザーフォーム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 

次のコード値をテキストボックスに入力してgoボタンをクリックすると、userform 2にリダイレクトされますが、label1.captionは更新されません。

誰でも、ラベル1の更新方法を教えていただけますか？

Answer 1

値を設定した後でMe.Repaintを使用すると、フォーム上のすべてのものが更新され、値が表示されます。

Answer 2

は、代わりに `Userform_Activate`イベントを使用します。2.

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