0

我们迁移我们的 vb6 项目以使用 sidebyside(regfree) 技术 ....但是在动态添加控件以形成如下问题时遇到问题：

Private WithEvents tmpCtl As VBControlExtender

Private Sub UserControl_Initialize()
Set tmpCtl = Controls.Add("Project2.UserControl1", "ctl")
  With tmpCtl
    Set .Container = Me
    .Visible = True
  End With
End Sub

当使用 tmpCtl 对象时：

tmpCtl.Properties

我们收到错误“对象不支持此属性或方法”

我发现人们也有同样的问题（缺少方法的奇怪案例：SXS 和 Controls.Add 导致“对象不支持此属性或方法”？）并建议实施“直接用户控制”。

有人可以知道如何在 vb6 代码中实现这一点吗？我们如何解决 sxs 和动态添加控件到表单的问题？

可以给我们相同的解决方案示例如何解决这个问题？

4

0 回答 0