вопрос по DLL

[bevaine2000]

Я запуская форму из dll, как сделать активной главную форму(родителя), не закрывая дллэшную.

[tyomitch]

Сcылка на форму-родителя есть? Тогда ParentForm.SetFocus

[bevaine2000]

Что за ссылка по подробнее можно, желательно с примерчиком.
Вообщето я делаю так:
DLLObject = CreateObject(DLLName & ".Data")

[Antonariy]

Если тебе из дллки нужно форму родителя сделать активной, то в дллку ссылку на форму передай. Например так:

В дллке в классе Data:

Dim pForm as Object

Public Property Set ParentForm(rhs as object)
set pForm = rhs
End Property

В программе:

Set DLLObject = CreateObject(DLLName & ".Data")
Set DLLObject.ParentForm = Form1

И где-нибудь в дллке:

pForm.SetFocus

[bevaine2000]

а ты сам пробовал, у меня почему-то не работает, вот выкладываю пример основанный на твоем коде. Посмотри в чем загвоздка.

[bevaine2000]

Спасибо что не оставили в беде

[Konst_One]

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

...
Form2.Show vbModal, rhs


[bevaine2000]

Не помогло, и не поможет потомучто setfocus это равноценно, что нажать мышкой на другом окне, а даже мышкой не выходит, так как родительское окно, здесь наверное надо менять родителя.

[Konst_One]

vbModal = ты сам поставил, если тебе не нужна модальность, то замени это на vbModeless

[bevaine2000]

БОООООООООЛьшое спасибо получилось, такая мелочь, а столько проблем.

[bevaine2000]

Да похоже сглазил. У меня тут такая проблема имеется форма мне необходимо открыть dll-форму. Пишу код в главной форме:

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

Set NewObject = CreateObject("Project1.Data")
Set NewObject.ParentForm = Form1

В dll пишу следущие:

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

Public Property Set ParentForm(rhs As Object)
Dim pForm As Object
Set pForm = rhs
Form1.Show vbModeless, pForm
End Property

Выдает 373 ошибку!
Убираю pForm все нормально. В том что переменной pForm присваемается объект Form1 я уверен, потомучто pForm.Hide работает.

[bevaine2000]

Ни кто не знает

[Konst_One]

у тебя форма-родитель случаем не MDI-окно?

[bevaine2000]

Нет, обычная форма

[Konst_One]

очень странно, я твой код проверял. если поставить

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

Public Property Set ParentForm(rhs As Object)
Dim pForm As Object
Set pForm = rhs
Form1.Show vbModeless, rhs
End Property

то все работает нормально. я так и не пойму в чем у тебя проблема

[bevaine2000]

вот сам исходник

[Konst_One]

запускать Project1.exe, перед этим надо зарегистрировать Project1.dll (regsvr32)

[bevaine2000]

Спасибо дружище, век тебя не забуду.