VBA-定义用户形式以稍后调用

Question

对不起，如果这不清楚，但由于某种原因，我的代码最近停止工作，我不知道为什么。

基本上是我在我的工作中创建了一个Excel VBA程序来进行报告(即炉子报告或树报告(。有一个封面表，要求用户输入报告的各种详细信息(即参加者，日期，地址等(。完成此操作后，他们将选择一个报告(从封面页面上可以转到5种不同的用户形式(。例如，如果他们选择电气，则可以选择一般，炉灶或热水系统报告(请记住这一点(。相反，他们选择了管道，他们可以选择一般或热水系统报告。这是我的问题...我在所有用户形式上都有退回或返回按钮(封面除外(，并且我在热水系统中使用相同的用户形式，并且用于电气和管道的一般报告(因为文本框，复选框是相同的(。考虑到所有这些.....(对不起....(.....

我如何定义哪个用户形式(管道或电气(也可以返回？

可以在需要的情况下发布代码

Answer 1

您可以添加例如 Parent属性为孩子形式，因此孩子知道其父母。hth。

简单的示例具有两种形式： UserForm1 is parent ， UserForm2 is child 。

' This is parent Form
Private child As UserForm2
Private Sub UserForm_Initialize()
    Set child = New UserForm2
    Set child.Parent = Me ' here the parent is set so the child knows it
End Sub
Private Sub CommandButton1_Click()
    Me.Hide
    child.Show
End Sub

---

' This is Child Form which knows about it's parent
Private m_parent As Object
Public Property Get Parent() As Object
    Set Parent = m_parent
End Property
Public Property Set Parent(ByVal vNewValue As Object)
    Set m_parent = vNewValue
End Property
Private Sub CommandButton1_Click()
    ' Go back to parent
    Me.Hide
    m_parent.Show
End Sub