VB6拆分MDI项目：子项目窗体作为MDI子窗体加载的实现问题

问题背景 #

原项目是大型VB6 MDI项目，核心为MDI父窗体frmMain，所有子窗体通过菜单操作在其中打开。现在要拆分项目：

• MainProject（Standard Exe）：仅保留frmMain和对应菜单项
• prjModule1、prjModule2等：作为独立DLL项目，各自的主窗体需在点击对应菜单时，作为frmMain的MDI子窗体加载

现有方案的问题 #

将子模块做成DLL并暴露ShowForm方法后，出现两个问题：

• 调用后窗体可打开，但并非MDI子窗体（独立于frmMain）
• 把DLL中窗体的MDIChild属性设为True时，直接报错“无可用MDI窗体加载”——因为DLL上下文无法识别主项目已加载的frmMain

解决方法：传递MDI父窗体句柄并绑定 #

核心思路是让主项目把frmMain的窗口句柄（hWnd）传给DLL，DLL通过Windows API将子窗体绑定到该句柄，同时确保子窗体的MDIChild属性为True。

步骤1：修改DLL的公共类方法 #

在DLL的公共类中，修改ShowForm方法，添加参数接收MDI父窗体的句柄，同时引入SetParentAPI绑定父窗口：

' DLL公共类的通用声明部分
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Public Sub ShowForm(ByVal mdiParentHwnd As Long)
    Dim localForm As New frmModule1Main
    ' 确保窗体为MDI子窗体（设计时设为True也可，此处加代码双重保障）
    localForm.MDIChild = True
    ' 将子窗体绑定到主项目的MDI父窗体句柄
    SetParent localForm.hWnd, mdiParentHwnd
    ' 显示子窗体
    localForm.Show
End Sub

步骤2：主项目调用时传递句柄 #

在MainProject的菜单点击事件中，调用DLL方法时传入frmMain的hWnd：

Private Sub mnuModule1_Click()
    Dim cls As New prjModule1.Class1
    ' 传递MDI父窗体的句柄给DLL
    cls.ShowForm frmMain.hWnd
End Sub

注意事项 #

• 确保DLL中的子窗体frmModule1Main的MDIChild属性在设计时设为True，避免运行时额外设置的潜在问题
• 无需在DLL中创建任何MDI父窗体，完全依赖主项目已加载的frmMain
• 该方法利用Windows底层API跨模块绑定窗口，绕过了VB6默认MDI子窗体只能同项目识别的限制

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