vb6 - 如何在运行时在 vb6 代码中实例化 ocx 的实例？

Question

如何在运行时在 vb6 代码中实例化 ocx 的实例？

新关键字似乎不起作用...

新关键字的使用无效

Set bob = new bobocxlib.bobcontrol

Answer 1

您将其添加到容器的Controls集合中，例如在加载时将内部文本框控件添加到 VB 表单：

Private Sub Form_Load()
  Dim txt As TextBox
  Set txt = Me.Controls.Add("VB.TextBox", "MyTextBox")
  With txt
    .Move 120, 120, 2000, 285
    .Visible = True
  End With
End Sub

控件的名称是对象浏览器 ( ) 中显示的库名称 ( VB) 和类名称 ( TextBox) 的串联。