Tạo thư viện liên kết động (DLL) bằng VB6

[tindl88]

Tên chương trình: VB Club Dll
Ngôn ngữ lập trình: VB6
Tác giả: Sưu tầm
Chức năng: Tạo thư viện liên kết động bằng VB

---

HD:
Vào thư mục C:\Program Files\Microsoft Visual Studio\VB98 đổi tên tập tin Link.exe thành LinkLnk.exe.
Mở thư mục Linker copy tập tin Link.exe dán vào C:\Program Files\Microsoft Visual Studio\VB98.

Tạo một file *.Def với nội dung sau:

NAME vbClubDll
LIBRARY vbClubFunction
DESCRIPTION "VB Club Functions 1.0"
EXPORTS DllMain @1
vbClub_OnTop @2
vbClub_MinimizeAllWindow @3
vbClub_RestoreAllWindow @4
vbClub_GetColor @5
vbClub_MouseClick @6
vbClub_KeyPress @7

Lưu vào thư mục Test

Mở thư mục DLL chạy project -> Make Dll. Nếu khi tạo file dll mà có báo lỗi thì bạn coi lại tập tin .def, coi lại có thừa hoặc thiếu function nào không.

Mở thư mục Test để test

[Tkkk_Vnn]

Tuyệt cú mèo !

[conso0va0]

Xin hỏi thêm khi tạo DLL kiểu này khi khi sử dụng lại các hàm viết trong DLL trên VBA (của Excel) thì sẽ phải thực hiện như thế nào?
Khi mình dùng VBA (Excel) Call các hàm trong DLL (như cách đã hướng dẫn ở trên) thì khi chạy phát sinh lỗi Run-time error '53' File not found vbClub.dll

[Tkkk_Vnn]

Runtime error 53 là lỗi cơ bản , bạn phải đặt thư viện Dll trong cùng thư mục của chương trình chạy ,hay bạn có thể copy file vào system32 đó , sau đó gọi hàm Vb6 mới được !

[conso0va0]

Mình đã thử 2 cách bạn nói nhưng chưa được. Xin lưu ý, mình dùng VB 6.0 gọi các hàm trong file *.dll đó thì vẫn bình thường nhưng mình gặp lỗi đó khi mình gọi bằng VBA trong Excel thì gặp lỗi đó. Xin mọi người hỗ trợ thêm!

Automation error
The Object invodek has disconnected from clients