Sử dụng con lăn chuột trong listbox UserForm

[vu_tuan_manh_linh]

Tôi đang sử dụng code sưu tầm trên diễn đàn về việc sử dụng con lăn chuột trong listbox userform. Tuy nhiên code chỉ chạy trên office 32bit. Nếu dùng office bản 64 bit thì bị lỗi đoạn code sau:

Sub HookControlScroll(ByVal Ctl As MSForms.control)
    Dim lngAppInst As Long
    Dim hwndUnderCursor As Long
    Dim tPT As PointAPI
    GetCursorPos tPT
    hwndUnderCursor = WindowFromPoint(tPT.x, tPT.y)
    If mControlHwnd <> hwndUnderCursor Then
        UnhookControlScroll
        Set mCtl = Ctl
        mControlHwnd = hwndUnderCursor
        lngAppInst = GetWindowLong(mControlHwnd, GWL_HINSTANCE)
        If Not mbHook Then
            mLngMouseHook = _
            SetWindowsHookEx(WH_MOUSE_LL, _
'lỗi đúng chỗ này
'______________________
                             AddressOf MouseProc, _
'______________________
                             lngAppInst, 0)
            mbHook = mLngMouseHook <> 0
        End If
    End If
End Sub

Tôi đã cố gắng tìm giải pháp trên các trang khác (VD https://stackoverflow.com/questions...serform-form-does-not-scroll-with-mouse-wheel) nhưng được trả lời là code này không chạy trên bản office 64 bit. Kính nhờ các thành viên giải quyết giúp vấn đề này. Xin cảm ơn!!

 

[huhumalu]

Đào lại bài cách đây 4 năm: một lỗi gặp phải với code scroll mouse listbox khi dùng office 2016 là hay bị đơ, out luôn excel, đành phải gỡ ra dùng 2010. Liệu có phải do ảnh hưởng của hiệu ứng chuyển tiếp cells của phiên bản 2016 không cả nhà???

Việc này hình như anh Tuân xử lý xong lâu rồi.
Hiện đã tải lại theo bài, với Office 2016-64bits, Win10-64bits, chuột chứ không phải touchpad thì vẫn ổn, không lỗi lầm gì cả.

Scroll Wheel cho ListBox & ComboBox.

Từ nhiều nguồn code sưu tầm được cả trên diễn đàn ta lẫn các diễn đàn khác, thì mỗi một thủ tục sẽ cho ra một kết quả nhất định, song, chúng không lỗi vấn đề này thì lỗi ở vấn đề khác. Chẳng hạn, có code thì cuộn trên ListBox nhưng khi mở một ứng dụng khác như NotePad thì vô hiệu hóa thanh cuộn...

www.giaiphapexcel.com