Nhờ giúp đỡ lấy path của file/folder khi kéo thả file/folder vào userform!

hodangbinh47 đã viết:

Cám ơn anh đã giúp đỡ, với tập tin em đã update Declare statements với PtrSafe để chạy x64 ạ. Nhưng lại bị lỗi ở đoạn này ạ:

Mã:Sao chép.

Private Sub UserForm_Initialize()
    hWindow = FindWindow("ThunderDFrame", Me.Caption)
    DragAcceptFiles hWindow, 1
    lpPrevWndProc = SetWindowLong(hWindow, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Xin nhờ anh coi qua. Em cám ơn.

Nhấp chuột vào đây để mở rộng...

Nguyễn Duy Tuân đã viết:

Từ code của anh Batman1, mình test thì với Excel 32-bit thì chạy tốt nhưng để chạy chạy trên Windows 10 64-bit, Excel 64 bit thì cần chỉnh như sau:
Chỉnh sửa nhánh #VBA7, #WIN64:
SetWindowLongA thành SetWindowLongPtrA
Function WindowProc(ByVal hwnd As LongPtr, ByVal uMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
thành
Function WindowProc(ByVal hwnd As LongPtr, ByVal uMsg As Long, _
ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr

Mã nguồn fix hoàn chỉnh đính kèm các bạn tải về:

Nhấp chuột vào đây để mở rộng...

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

#If Win64 Then
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#Else
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#End If

batman1 đã viết:

Đúng là bây giờ nhìn lại mới thấy khai báo sai:
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Nhưng bạn sửa lại vẫn chưa đúng.

Tôi chạy code đã sửa khai báo của bạn:

1. Trên Windows 10 64 bit + Excel 2007 32 bit thì không có lỗi. Cũng dễ hiểu vì Excel 2007 thì sẽ dùng SetWindowLong ở nhánh #Else nên không có lỗi.

2. Tôi chạy trên XP 32 bit + Excel 2010 32 bit thì có lỗi

View attachment 231453

3. Tôi chạy trên Windows 8 32 bit + Excel 2013 32 bit thì có lỗi

View attachment 231454

Ở điểm 2 và 3 (VBA7) thì dùng SetWindowLong ở nhánh #If VBA7 Then, và có lỗi.

Tôi đề nghị những ai có office 64 thử như sau:

Thay

Mã:Sao chép.

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

trong khai báo của Tuân bằng

Mã:Sao chép.

#If Win64 Then
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#Else
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#End If

Nhấp chuột vào đây để mở rộng...

truongvu317 đã viết:

Liên quan tới api cho cháu hỏi một chút, một số api nhận tham số từ ngăn xếp, một số lại nhận tham số theo dạng thanh ghi eax, ecx... gì gì đấy. Vậy hai loại này khác nhau ở đâu, và làm sao vba nó biết cái api thuộc loại nào để nó gọi cho phù hợp.

Nhấp chuột vào đây để mở rộng...

batman1 đã viết:

eax, ecx thì đi với asembler chứ liên quan gì tới API?

Còn về ý bạn thì tôi không hiểu. Nói 1 câu có quá ngắn không? Bạn muốn hỏi gì thì lấy ví dụ cụ thể để người khác hiểu, bạn muốn hỏi gì.

Nhấp chuột vào đây để mở rộng...

truongvu317 đã viết:

Cháu đang muốn nói tới calling conventions đó bác. Trong khai báo api với vba cháu không thấy có cái từ khóa nào liên quan tới calling conventions, phải chăng vba nó tự đoán được calling conventions của api để gọi cho phù hợp?

Nhấp chuột vào đây để mở rộng...