Снова свой DLL

[Alexander N. Samarin]

По всему форуму не могу найти, как сделать свой РАБОТАЮЩИЙ DLL. (Только не NativeDLL). Помогите, кто может!!!

[Морфий]

В каком смысле работающий? Смотря как ты его собираешься использовать...

[Konst_One]

1. Открываешь бейсик
2. Выбираешь проект ActiveX DLL
3. Обзываешь его как тебе нравиться , например: MyDll
4. Добавляешь новый class и называешь его: MyClass
5. выставляешь у этого класса свойство Instancing=5 MultiUse
6. В свойствах проекта StartUp Object=None
7. Добавляешь в свой класс несколько свойств, например:

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

dim m_MyProperty as Long
Public Property Get MyProperty() as Long
MyProperty =m_MyProperty
end Property
Public Property Let MyProperty(Byval Value as Long)
m_MyProperty =Value
end Property


8. Компилишь свою dll c именем MyDll.dll
9. Открываешь свойства проекта и на закладке Component ставишь Binary Compatibility и в строчке пишешь имя своей dll : MyDll.Dll
10. Компилишь еще раз.
11. Открываешь любой exe - проект
12. добавляешь референс на свою dll: MyDll
13. в коде пишешь:

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

Dim obj as MyDll.MyClass

set obj=new MyDll.MyClass
obj.MyProperty=1
set obj =nothing


14. вуаля

[Alexander N. Samarin]

А как ставиь этот референс?

[Konst_One]

меню Project\References ищешь в списке свою dll-ку и галочку рядом с ней ставишь и потом ОК

[Alexander N. Samarin]

Другой вопрос - если нужно функцию туда запихать, то как?

[KDima]

Как и с обычным классом!

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

Public Sub/Function Abc()