Запуск ОСХ

[Dzhon]

Добрый день!
Уважаемые знатоки! Кто подскажет каким образом можно запустить мой OCX в программе!
Пояснение:
Имеется прорегистрированный ОСХ, и при нажатии на пункт меню в приложении необходимо запустить данный OCX на выполнение. Знаю точно что так можно сделать, а принцип кода не знаю!
Если кто поможет примером ОГРОМНОЕ СПАСИБО!

[GSerg]

Инстанс контрола создаётся через Load или через Controls.Add

[Dzhon]

Уважаемый GSerg!
Если не трудно можно какой-нибудь пример!
В любом случае спасибо.

[GSerg]

На примере CommandButton.

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
  With Me.Controls.Add("vb.CommandButton", "Commandbutton1")
    .Visible = True
    .Caption = "ГЫ!"
  End With
End Sub

Что касается Load, то тут нужно вручную добавить контрол, вручную же установить проперть Index равной чему-нибудь, и тогда при выполнении можно будет делать Load Commandbutton(n) и unload commandbutton(n).

[Dzhon]

Спасибо GSerg!
Буду пробовать.

[Ramauf]

А как вообще можно зарегистрировать OCX??? Знаю, что это делают с помощью REGSVR32, но куда его прописывать, и как сделать через VB???

[Dagobert]

Регистрируем OCX.
1. Запускаем "regsvr32 bla.ocx", где лежит OCX не важно.
Дерегистрация - "regsvr32 -u"
2. Если OCX лежит именно в папке с программой, или в системной папке, то Declare Function DllRegisterServer Lib "bla.ocx" () As Long
3. Загляни на сайт www25.brinkster.com/msvbasic там есть статья о плагинах. Может подойти.

[Ramauf]

Спасбо. Попробую.