كيف يمكنني إنشاء مثيل لـ OCX في وقت التشغيل في رمز VB6؟

Question

كيف يمكنني إنشاء مثيل لـ OCX في وقت التشغيل في رمز VB6؟

لا يبدو أن الكلمة الرئيسية الجديدة تعمل ...

استخدام غير صالح للكلمة الرئيسية الجديدة

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).