如何在运行时在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）中所示。