我如何在运行时用 vb6 代码实例化 ocx 实例？

Question

我如何在运行时用 vb6 代码实例化 ocx 实例？

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

New 关键字的使用无效

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）。