Dll

[Max!]

Я создал Dll ! Код Dll :
sub xxx()
'dapustim
msgbox "Hello"
end sub
назвал dll - "Dll1.dll"
Патом создал "Project1.exe"! Код Project1.exe :

'General
Public a

'in form

Private Sub Command1_Click()
Set a = CreateObject("Dll1.Class1") ' name of Class from dll
Call al.xxx
end sub

Не работает ! Мой проект не оброщается к дллшки !

[alibek]

gaidar, ну зачем ты издеваешься над народом? Опять бота выпустил

[Max!]

Впервые слышу что меня считают ботам !!! Что-то новенькое!
alibek ну ты загнул ! Help me!!

[tyomitch]

Max!, вместо CreateObject("Dll1.Class1") тебе скорее всего надо CreateObject("Project1.Class1")
alibek, ты про что?

[A.A.Z.]

Попробуй для начала назвать проект с DLL "DLL1", затем заново скомпилировать, подключить DLL в Project->References, затем вызвать, как сказал tyomitch -

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

Private Sub Command1_Click()
Dim A As New DLL1.Class1
Call A.xxx
End Sub

[tyomitch]

AAZ, я такого не говорил

[A.A.Z.]

Ну... Не важно

[alibek]

tyomitch, я просто на этом форуме давно, это нервное Можешь у Гайдара спросить, почему у меня на Max! такая реакция неадекватная

[kazah_]

ну и базар у вас...

[tyomitch]

А вопросов не надо задавать

Ок, вопрос снят.

[GSerg]

Неважно
Ему можно