VB拆分类代码后跨实例调用对象实例错误问题咨询

1. 确认类实例化流程正确 #

VB中自定义类必须先实例化才能调用其成员方法，若直接调用BuildStammdaten.Build()（未创建实例）或实例化时出现异常，必然触发对象实例错误。正确的实例化方式：

' 在TransferTxt类中调用时
Dim buildObj As New BuildStammdaten
buildObj.Build()
' 分步实例化（排查初始化异常时推荐）
Dim buildObj As BuildStammdaten
Set buildObj = New BuildStammdaten ' VB6/早期版本用Set，VB.NET省略该关键字
buildObj.Build()

2. 传递原类的依赖资源 #

原核心代码大概率依赖TransferTxt类中的成员变量、对象或方法，拆分到新类后这些依赖会丢失，导致Build方法第一行访问未初始化的资源报错。提供两种解决思路：

方案A：通过初始化方法传递依赖 #

给BuildStammdaten类添加带参数的初始化逻辑，批量传入所有依赖：

' BuildStammdaten类代码
Private m_SourceData As String ' 对应原TransferTxt中的依赖变量
Private m_TransferInst As TransferTxt ' 若需调用原类方法则保留

Public Sub Init(sourceData As String, transferInst As TransferTxt)
    m_SourceData = sourceData
    Set m_TransferInst = transferInst ' VB6用Set，VB.NET直接赋值
End Sub

Public Sub Build()
    ' 原核心代码，用m_SourceData替代原TransferTxt中的对应变量
    ' 例：原代码为 txtContent = Me.SourceData，改为 txtContent = m_SourceData
End Sub

' TransferTxt类中调用
Dim buildObj As New BuildStammdaten
buildObj.Init(Me.SourceData, Me)
buildObj.Build()

方案B：将依赖作为Build方法参数传入 #

如果依赖仅在Build方法中使用，直接传参更简洁：

' BuildStammdaten类的Build方法
Public Sub Build(sourceData As String, transferInst As TransferTxt)
    ' 原核心代码直接使用传入的参数
End Sub

' TransferTxt类中调用
Dim buildObj As New BuildStammdaten
buildObj.Build(Me.SourceData, Me)

3. 检查方法与成员的访问修饰符 #

确保BuildStammdaten类的Build方法是Public修饰的，若为Private或Friend（仅同程序集可见），TransferTxt类会因权限问题无法调用，触发类似对象实例的错误提示。

4. 排查隐式上下文依赖 #

原代码可能存在隐式依赖（比如用Me指向TransferTxt实例的成员，或依赖类的全局状态），拆分后这些上下文消失。此时需把TransferTxt的实例完整传递给新类，让新类可访问原类的所有公开成员。

5. 精准定位错误点 #

打开VB调试器，在Build方法第一行设置断点，运行后查看具体报错信息（如“对象变量未设置”），检查该行代码中的所有变量/对象：

• 是否有未初始化的对象？
• 是否引用了TransferTxt类的成员但未传递？
• 是否存在空引用？

通过调试可快速锁定问题根源，比盲目试错高效得多。

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