Code Sử dụng con lăn của chuột trong list box báo lỗi type mismatch

[AnhThu-1976]

Anh/ chị giúp em xem code bi lỗi type mismatch
Trước đây em vẫn sử dụng file này bình thường (máy cũ)
nay qua máy mới (máy mới mua), thì báo lỗi
Em thấy báo lỗi code Sử dụng con lăn của chuột trong list box
Em mở máy mới thì thấy Office 64 bit, Em có chuyển
Long thành Longptr thì cũng bị lỗi
Anh chị xem giúp em bị sửa lỗi
Em có chụp hình cấu hình máy mới của em
Mở form: Tại ô D9 của sheet TH DoubleClick
Em cảm ơn

 

[AnhThu-1976]

Anh, chị có máy 64 bit chạy thử giúp em file trên xem có bị lỗi không ạ

 

[ongke0711]

Anh, chị có máy 64 bit chạy thử giúp em file trên xem có bị lỗi không ạ

Bạn xóa nội dung trong Module1 file của bạn, copy code trong file module1.txt vào chạy thử.

 

[AnhThu-1976]

Bạn xóa nội dung trong Module1 file của bạn, copy code trong file module1.txt vào chạy thử.

Đã chạy OK rồi anh, cảm ơn anh nhiều!

 

[AnhThu-1976]

Bạn xóa nội dung trong Module1 file của bạn, copy code trong file module1.txt vào chạy thử.

Anh cho em hỏi
Trong file em có 2 list, nhưng khi lăn chuột thì chỉ có List dưới di chuyển, còn list trên thì đứng yên
Em nhờ anh xem chổ nào sai
(cách mở form, double click từ ô D9 trở xuống)
Em cảm ơn!
P/S: bài đã sửa code theo bài #3 của anh rồi, chạy trên máy 64 bit mới bị, còn trên máy 32 thì bình thường

 

[ongke0711]

Anh cho em hỏi
Trong file em có 2 list, nhưng khi lăn chuột thì chỉ có List dưới di chuyển, còn list trên thì đứng yên
Em nhờ anh xem chổ nào sai
(cách mở form, double click từ ô D9 trở xuống)
Em cảm ơn!
P/S: bài đã sửa code theo bài #3 của anh rồi, chạy trên máy 64 bit mới bị, còn trên máy 32 thì bình thường

Bạn thêm dòng code như bên dưới xem thử.

'**********************************************2 code duoi dung de lan chuot trong list box
Private Sub MHList_MouseMove(ByVal Button As Integer, _
                               ByVal Shift As Integer, _
                               ByVal X As Single, _
                               ByVal Y As Single)
    UnhookControlScroll  'Them dong nay'
    HookControlScroll MHList
End Sub
Private Sub lbSelect_MouseMove(ByVal Button As Integer, _
                               ByVal Shift As Integer, _
                               ByVal X As Single, _
                               ByVal Y As Single)
    UnhookControlScroll
    HookControlScroll lbSelect
End Sub