VBA -定义稍后访问的用户表单

Question

如果这一点不清楚，请提前道歉，但由于某些原因，我的代码最近停止工作，我不知道为什么。

基本上，我在我的工作中创建了一个excel vba程序来做报告(例如，一个炉子报告或一个树报告)。有一个封面表单，要求用户输入报告的各种详细信息(即与会者、日期、地址等)。一旦完成，他们就会选择一份报告来完成(他们可以从封面转到5种不同的用户表单)。例如，如果他们选择电气，那么他们可以选择常规、炉灶或热水系统报告(请记住这一点)。比方说，他们选择了管道，他们可以选择常规或热水系统报告。这就是我的问题。我在所有用户表单(封面除外)上都有后退或返回按钮，并且我对热水系统使用相同的用户表单，对电气和管道使用常规报告(因为文本框和复选框是相同的)。考虑到这一切……(对不起……)……

我如何定义返回什么用户表单(管道或电气)？

如果需要，可以发布代码

Answer 1

你可以将Parent属性添加到子窗体，这样子窗体就知道它的父窗体了。HTH。

有两种形式的简单示例：UserForm1是父级，UserForm2是子级。

' 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