Обращение DLL к Форме

[Akella]

Привет!!!. Скажите, а как с написанной DLL обращаться к активной форме , ну или к форме которая вызывеат DLL

[Akella]

Ну неужели ни кто незнает.

[alibek]

Я полагаю, что активная форма, которая вызывает DLL, должна предварительно передать в DLL свой hWnd.

[Akella]

Да об этом я не подумал, А как получить имя формы

[tyomitch]

Пусть тогда передаёт в DLL свой объект Form.
Тогда имя - Form.Name, хэндл - Form.hWnd

[Akella]

вот смотрите

В Форме

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

Private Sub Command1_Click()
Set A = CreateObject("Project1.Class1") ' name of Class from dll
Print A.fn1(Me.hWnd, Me.Name)
End Sub

в Dll

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

Function fn1(d As Long, fnb As String)
fn1 = "Name: " & fnb & "hwnd: " & d
fnb.Line (0, 0)-(100, 100), vbGreen
fnb.Refresh
End Function

И ничего не выходит, напишите кто нибуть примерчик, или хотябы дайте ссылку.

[GSerg]

О боже мой

В классе dll:

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

private mForm as form
property set FormHandle(byval f as form)
  set mform=f
end property

Сделав один раз

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

set a.formhandle=me

, делай потом что хочешь с mform.