Для A.A.Z. - продолжение вопросов про DLL

[DDimok]

Ниже была тема про DLL (не умею вставлять ссылочки).
Спасибо за ответ и ссылку, пытаюсь разобраться ... Вопрос вот самый элементарный возник -
--- требуется определить точку входя для моей функции, а вот ГДЕ МНЕ ЕЕ ВЗЯТЬ (точку входа) ??? Как ее определить ? Как понять точку входя для СЛЕДУЮЩЕЙ функции ? Чесслово - непонимаю

Заранее спасибо

[A.A.Z.]

Да просто все
Делаешь DLL, как указано в том топике. Допустим, ты впихнул в нее функцию

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

Function Sum(Num1 As Long, Num2 As Long) As Long
Sum = Num1 + Num2
End Function

Затем выписал ее в Exporting

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

Sub Exporting()
'...
Exports "Sum", AddressOf Sum
End Sub


Скомпилировал и запустил. Теперь она у тебя, допустим, C:\Project1.dll. Открываешь новый проект и вверху (в самом верху) пишешь:

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

Private Declare Function Sum Lib "C:\Project1.dll" Alias "Sum" (Num1 As Long, Num2 As Long) As Long

А потом, скажем, в процедуре Form_Load() используешь ее:

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

Sub Form_Load()
MsgBox Sum(100, 200)
End Sub

Готово!

ЗЫ афтар - не я, это - GSerg, tyomitch и daniel lo nigro. Так что спасибо не мне, а им

[DDimok]

Ага, но ... А где по умолчанию Excel ищет DLLки ? Че-то я уже их во все места понасовывал, а резалта - ноль
(Это к тому, что путь в объявлениях не хочу указывать, вдруг он смотрит на c:\ мои документы\ ...\application data\ excel\xlstart или
где еще ?

[A.A.Z.]

В system32, кажись...

[DDimok]

Блиииин, точно ... Последнее место куда я его не засовывал ДАже в C:\WINDOWS\system32\dllcache\ запихнул, вот повыше - недогадался )) Туповат
Спасибо за терпение и ответы

[Андрей Васюта]

Да просто все
Делаешь DLL, как указано в том топике. Допустим, ты впихнул в нее функцию

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

Function Sum(Num1 As Long, Num2 As Long) As Long
Sum = Num1 + Num2
End Function

Затем выписал ее в Exporting

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

Sub Exporting()
'...
Exports "Sum", AddressOf Sum
End Sub


Скомпилировал и запустил. Теперь она у тебя, допустим, C:\Project1.dll. Открываешь новый проект и вверху (в самом верху) пишешь:

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

Private Declare Function Sum Lib "C:\Project1.dll" Alias "Sum" (Num1 As Long, Num2 As Long) As Long

А потом, скажем, в процедуре Form_Load() используешь ее:

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

Sub Form_Load()
MsgBox Sum(100, 200)
End Sub

Готово!

ЗЫ афтар - не я, это - GSerg, tyomitch и daniel lo nigro. Так что спасибо не мне, а им

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

[GSerg]

А между тем, разбираться самим - это самое интересное...

[vvs_adm]

А между тем, разбираться самим - это самое интересное...

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