MS Access定义返回Form类型属性的接口编译报错求助

这个问题我碰到过好几次啦！VB6里出现「User-defined type not defined」错误，本质是编译器找不到Form这个类型的定义——别惊讶，虽然Form是VB的内置类，但如果你的项目里连一个Form模块都没有，编译器根本不知道Form是什么东西！

快速解决步骤 #

• 第一步：给项目添加一个空Form模块
  右键点击你的项目 → 选择「添加」→「添加Form」，直接选标准Form点确定就行，哪怕这个Form是空的也没关系，它只是用来让编译器识别Form类型的。
• 第二步：保留你的接口和类代码，确保语法正确
  接口I_TestInterface的代码不用改：

  Public Property Get MyForm() As Form
  End Property
  

  类模块cls_TestClass的实现代码注意是Private（VB6里实现接口成员必须用Private），并且可以在里面返回具体的Form实例：

  Implements I_TestInterface
  
  Private Property Get I_TestInterface_MyForm() As Form
      ' 示例：返回项目里的Form1实例
      Set I_TestInterface_MyForm = Form1
  End Property
  

额外说明 #

如果你不想在项目里保留实际的Form，也可以把返回类型改成Object，但这样会丢失VB6的类型检查，后期维护容易出问题，不如加个空Form来得稳妥。要是你本来就想返回某个特定的Form子类，也可以直接把接口里的Form改成具体的Form类名（比如Form1），但这样接口的通用性会降低，看你的实际需求来选就行。

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