通过命令VBA.Userform.Add（“ UF”）加载时重新初始化用户窗体

Question

我陷入了VBA编码问题。 有两种名为“ UsersForm”和“ Registration”的用户窗体。

在“ UsersForm”中，有一个名为CreateProfile的命令按钮，单击它应该显示“ Registration”表单。

为此，已在一个模块中编写了一个名为“ ShowNextUF”的过程，我在其中提供如下所示的参数：

Private Sub CreateProfile_Click()  ' <----its an activex Command button of the userform "UsersForm"

 Call ShowNextUF("Registration", Me, True)

End Sub

在模块中：

Sub ShowNextUF(ByVal NxtUF As String, ByVal PrevUF As Object, Optional ByVal UnLd As Boolean = False)

 Dim nUF As Object

 Set nUF = VBA.UserForms.Add(NxtUF)
 If UnLd Then Unload PrevUF
 nUF.Show

End Sub

现在的问题是：当我想检查用户窗体“ Registration”的文本框的值时，则可以正常工作。

Private Sub tbStdName_Change()     '<---- A TextBox of "Registration" userform

 StudenName = UCase(tbStdName.Value)

End Sub

但是它没有（下面）； 实际上，在这种情况下，“注册”表格将再次初始化。 不知道为什么要重新初始化。

Private Sub tbStdName_Change()     

 StudenName = UCase(Registration.tbStdName.Value)  '<---- Reinitilizing...

End Sub

我需要在另一个新用户表单中使用该UCase（Registration.tbStdName.Value），当我在隐藏“注册”表单后调用该新用户表单时。 我要去哪里错了？

Answer 1

@阿诺·范·博文

感谢您提供的亲切信息，使我想到了“ .Add”将在USerform中添加新集合...只是尝试了一下，它就解决了！

摆脱这种情况的方法是将参数作为Object而不是String传递。

Private Sub CreateProfile_Click() 
   Call ShowNextUF(Registration, Me, True) 
End Sub 

并在模块中：

Sub ShowNextUF(ByVal NxtUF As Object, ByVal PrevUF As Object, Optional ByVal UnLd As Boolean = False) 
   If UnLd Then Unload PrevUF 
   NxtUF.Show 
End Sub 

再次感谢...干杯！！！