Hướng dẫn tạo Dll và dùng Dll trong VB!

Dẫn nhập:

Thật ra từ
trước tới giờ Peter thấy các bạn chủ chốt dùng các hàm API của Windows
mà chưa dùng đến các dll tự tạo; vậy bài viết này Peter sẽ hướng dẫn các
bạn tạo một dll và dùng nó để viết ứng dụng trong VB; với VB thì Peter
sẽ trình bày cách tạo dll class xây dựng trên chính môi trường VB; và
một phần khác Peter sẽ xây dựng dll Windows bằng VC++ (Về điểm khác nhau
của 2 loại dll này Peter sẽ nói sau cùng của bài viết). Hy vọng các bạn sẽ tìm thấy ở đây nhiều điều thú vị (Sau khi viết bài này thì Peter sẽ viết tặng các bạn bài hướng dẫn sử dụng các hàm API trong VB, mong các bạn chờ đợi!).

Phần 1: Viết dll Class và ứng dụng

1. Viết dll Class:
Dll Class là
một loại dll được xây dựng bằng chính môi trường VB, ở đây Peter dùng
VB6.0 để làm việc này. Các bước xây dựng như sau:
- Bước 1: Khởi động
VB6.0 và chọn ActiveX Dll trên tab New của hộp thoại New Project.
-
Bước 2: Đặt thuộc tính Name cho Class này là ClsTong. Thuộc tính
Instancing là 6-GlobalMultiUser.
- Bước 3: Cho đoạn code sau vào cửa
sổ code:

Code:

Public Function Tong(a As Double, b As Double) As Double
On Error
Resume Next
Tong = a + b
End Function

- Bước 4: Chọn menu File\Make Project1.dll và biên dịch. Đặt tên dll này
là Tong.dll
Như vậy là chúng ta đã thành công trong việc biên dịch
tạo một dll class bằng VB6.0.

2.
Ứng dụng:
Sau khi tạo được dll Class Tong.dll chúng ta làm
trình tự các bước sau:
- Bước 1: Tạo một Project mới, lần này chúng
ta chọn Standard EXE. Và đặt Name cho Project là TestDll.
- Bước 2:
Tạo 3 TextBox là Text1, Text2, Text3 (Trong đó Text3 dùng để lưu kết quả
tính tổng của Text1 và Text2). Thêm một CommandButton có Name là
Command1.
- Bước 3: Nhấn chọn menu Project\References... và nhấn chọn
Browse; chọn đường dẫn đến Dll chúng ta biên dịch phía trên và nhấn OK
để kết thúc quá trình chọn.
- Bước 4: Đặt đoạn code sau vào cửa sổ
code:

Code:

Private Sub Command1_Click()
Dim x As New ClsTong
Text3 =
x.Tong(Text1, Text2)
End Sub

Sau đó nhấn F5 để thực thi chương trình. Chúng ta nhập vào 2 ô Text1 và
Text2 những con số và nhấn button Command1. Kết quả là Tổng của 2 ô đó
được hiện trong Ô Text3.... Các bạn có hài lòng không?

Phần 2: Viết dll Windows và ứng dụng

1. Viết dll Windows
Phần này
Peter sẽ hướng dẫn các bạn tạo một dll WIndows bằng VC++6.0; các thao
tác làm như sau:
- Bước 1: Khởi động VC++6.0; nhấn Ctrl+N hoặc vô
menu File\New; chọn tab Projects trong hộp thoại New; chọn tiếp Win32
Dynamic-Link Library trong danh sách của tab, Tiếp tục là đặt tên cho
Project tại TextBox Project name (Ở đây Peter đặt là DllWin). Nhấn OK để
tiếp tục.
- Bước 2: Chọn A simple dll project (lựa chọn thứ 2 trong 3
lựa chọn xuất hiện). Nhấn Finish và chọn tiếp OK.
- Bước 3: Trên tab
FileView kích đúp vào file DllWin.cpp; xoá bỏ code có sẵn là:

Code:

BOOL APIENTRY DllMain( HANDLE hModule,
                      DWORD
 ul_reason_for_call,
                      LPVOID lpReserved
 
              )
{
    return TRUE;
}

và thay bằng đoạn code sau:

Code:

double _stdcall Tong(double x,double y)
{
  return x+y;
  }

- Bước 4: Dùng NotePad để soạn một tập tin DllWin.def (cùng tên với
Project), với nội dung sau:

Code:

EXPORTS
      Tong;

Chú ý viết đúng như trên (phân biệt chữ hoa và chữ thường), tên hàm Tong
phải trùng với tên hàm của code trên. Sau đó đặt file này chung thư mục
với dự án DllWin.dsw.
- Bước 5: Trở lại VC++ chúng ta chọn menu
Project\Add to project\Files và chọn file DllWin.def để add file này vào
dự án. Nhấn OK.
- Bước 6: Biên dịch dll bằng cách nhấn F7. Một file
dll có tên là DllWin.dll sẽ xuất hiện trong thư mục Debug. Hãy copy file
này vào C:\Windows\System32.
Vậy là chúng ta đã biên dịch và tạo
thành công file DllWin.dll để phục vụ cho chương trình VB của chúng ta.

2. Ứng dụng
Khởi động VB6.0 và
làm theo các bước từ 1 đến 2 của bài hướng dẫn trước.
- Bước 3: Đặt
đoanj code sau vào cửa sổ code:

Code:

Private Declare Function Tong Lib "DllWin.dll" (ByVal x As Double, ByVal
 y As Double) As Double

Private Sub Command1_Click()
Text3 =
Tong(Text1, Text2)
End Sub

- Bước 4: Nhấn F5 để thực thi; nhập số vào các Text1, Text2 và nhân
Command1; so sánh kết quả của bài hướng dẫn trước!
Chúc các bạn thành
công!