Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,538
- Được thích
- 4,133
- Giới tính
- Nam
1/ Mình đang từng bước Nghiên cứu và tập Viết 1 thư viên liên kết động ( Standard DLL) khai báo gọi hàm kiểu Declare ... để khi copy vao bất cứ máy nào cũng có thể sử dụng tốt mà không cần phải đăng ký thư viên với Windows hay hệ điều hành khác vv...
2/ Mình úp lên đây nhờ các Bạn Test dùm trên các máy win32 , Office32, Win64, Office64 và nếu có hệ điều hành khác càng tốt ...và máy đó có cài office ...
Xem nó có chạy hay không ....nếu Lỗi Xin báo lỗi
3/ Code khai báo khi File Test.dll trong Folder D:\TestDLL\Test.dll Như sau:
4/ Code khai báo khi File Test.dll trong Folder C:\Windws\System32\Test.dll Như sau:
Xin cảm ơn
2/ Mình úp lên đây nhờ các Bạn Test dùm trên các máy win32 , Office32, Win64, Office64 và nếu có hệ điều hành khác càng tốt ...và máy đó có cài office ...
Xem nó có chạy hay không ....nếu Lỗi Xin báo lỗi
3/ Code khai báo khi File Test.dll trong Folder D:\TestDLL\Test.dll Như sau:
PHP:
Private Declare Function Chuoi Lib "D:\TestDLL\Test.dll" (ByVal strValue As String) As String
Private Declare Function Cong Lib "D:\TestDLL\Test.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
Private Declare Function Tru Lib "D:\TestDLL\Test.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
Private Declare Function Nhan Lib "D:\TestDLL\Test.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
Rem Code trong Module nay Chi su dung duoc Khi File [Test.dll] Copy dung Vao Duong Dan: D:\TestDLL\Test.dll
Rem ==========
Private Sub Test1()
Dim xx As String
Cells.ClearContents
xx = "Kieu .........Manh"
Range("A1") = Chuoi(xx)
End Sub
Rem ==========
Private Sub Test2()
Cells.ClearContents
Range("A2") = Cong(2, 7)
End Sub
Rem ==========
Private Sub Test3()
Cells.ClearContents
Range("A3") = Tru(10, 7)
End Sub
Rem ==========
Private Sub Test4()
Cells.ClearContents
Range("A4") = Nhan(2, 2)
End Sub4/ Code khai báo khi File Test.dll trong Folder C:\Windws\System32\Test.dll Như sau:
PHP:
Private Declare Function Chuoi Lib "Test.dll" (ByVal strValue As String) As String
Private Declare Function Cong Lib "Test.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
Private Declare Function Tru Lib "Test.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
Private Declare Function Nhan Lib "Test.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
Rem Code Trong Module nay chi su dung duoc Khi Copy File Test.dll Vào C:\Windows\System32\Test.dll
Rem ==========
Private Sub Test1()
Dim xx As String
Cells.ClearContents
xx = "Kieu .........Manh"
Range("A1") = Chuoi(xx)
End Sub
Rem ==========
Private Sub Test2()
Cells.ClearContents
Range("A2") = Cong(2, 7)
End Sub
Rem ==========
Private Sub Test3()
Cells.ClearContents
Range("A3") = Tru(2, 7)
End Sub
Rem ==========
Private Sub Test4()
Cells.ClearContents
Range("A4") = Nhan(2, 2)
End SubXin cảm ơn
Lần chỉnh sửa cuối:
