如何将UserForm中的Employee对象作为参数传递至另一UserForm？

首先先给你现有实现的一些优化反馈，再提供对象传递的具体实现思路：

一、现有代码的优化点 #

1. 类模块属性的规范写法
   你当前用SetEmplid、GetName这类方法读写私有变量，其实VBA原生支持Property Get/Let来封装属性，既符合面向对象规范，调用也更直观：

   ' Employee类模块代码
   Private emplId As String
   Private name As String
   Private rank As String
   Private post As String
   
   ' 员工ID属性
   Property Get EmplId() As String
       EmplId = emplId
   End Property
   Property Let EmplId(value As String)
       emplId = value
   End Property
   
   ' 姓名属性
   Property Get Name() As String
       Name = name
   End Property
   Property Let Name(value As String)
       name = value
   End Property
   
   ' 职级属性
   Property Get Rank() As String
       Rank = rank
   End Property
   Property Let Rank(value As String)
       rank = value
   End Property
   
   ' 岗位属性
   Property Get Post() As String
       Post = post
   End Property
   Property Let Post(value As String)
       post = value
   End Property
   

   之后调用时直接写newPerson.EmplId = Emplid即可，不用再写newPerson.SetEmplid = Emplid，代码可读性大幅提升。

2. FuncNewPerson函数的With块优化
   你用了With newPerson却还重复写newPerson.xxx，完全浪费了With块的作用，改成这样更简洁：

   Public Function FuncNewPerson(Emplid As String) As Employee
       Dim newPerson As New Employee
       With newPerson
           .EmplId = Emplid
           .Name = mytab(25, 1)
           .Rank = mytab(23, 1)
           .Post = mytab(27, 1)
       End With
       Set FuncNewPerson = newPerson
   End Function
   

3. UserForm对象的作用域修正
   如果你在第一个窗体的过程里声明person为过程级变量，过程结束后对象会被销毁，根本没法传递到第二个窗体。所以要把它声明为第一个窗体的模块级变量，比如在RequestForm代码模块顶部添加：

   Private m_currentEmployee As Employee ' 整个窗体生命周期内都存在的变量
   

   之后在ComboBox选择事件里初始化：

   ' 示例：ComboBox选择事件
   Private Sub ComboBoxEmplId_Change()
       Set m_currentEmployee = FuncNewPerson(Me.ComboBoxEmplId.Value)
       ' 填充当前窗体文本框
       Me.TxtBoxPerson = m_currentEmployee.Name
       Me.txtBoxRank = m_currentEmployee.Rank
   End Sub
   

二、跨窗体传递Employee对象的实现方案 #

最稳妥且低耦合的方式是给第二个窗体ValidationForm添加一个公共初始化方法，用来接收对象并填充控件：

步骤1：给ValidationForm添加初始化逻辑 #

打开ValidationForm的代码模块，添加以下代码：

Private m_emp As Employee ' 存储传递过来的Employee对象

' 公共初始化方法，接收Employee对象并填充控件
Public Sub InitEmployee(emp As Employee)
    Set m_emp = emp
    ' 填充当前窗体文本框
    Me.TxtBoxEmployee = emp.EmplId
    Me.txtBoxRank = emp.Rank
    Me.txtBoxPost = emp.Post
End Sub

步骤2：修改第一个窗体的按钮点击事件 #

在RequestForm的BtnVerify_Click事件里，先调用第二个窗体的初始化方法传递对象，再显示窗体：

Public Sub BtnVerify_Click()
    Me.Hide
    ' 先传递对象并初始化第二个窗体
    ValidationForm.InitEmployee m_currentEmployee
    ValidationForm.Show
End Sub

额外注意事项 #

• 不要直接在第二个窗体操作第一个窗体的变量，这种高耦合的写法后期维护会很麻烦，用初始化方法传递是更合理的选择。
• VBA中对象默认按引用传递，所以如果第二个窗体修改了m_emp的属性，第一个窗体里的m_currentEmployee也会同步更新，这是正常的对象引用特性。

内容的提问来源于stack exchange，提问作者Nan0