پرسش اسکرول بار

[میثم مقدم نیا]

سلام خدمت اساتید عزیز
من در فایل پیوست با یک مشکل مواجه شدم که هربار فایلم را اجرا میکنم با پیغام خطا در خط فرمان زیر روبرو میشم

Sub HookListBoxScroll(frm As Object, 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 Not frm.ActiveControl Is ctl Then
             ctl.SetFocus
     End If
     If mListBoxHwnd <> hwndUnderCursor Then
             UnhookListBoxScroll
             Set mCtl = ctl
             mListBoxHwnd = hwndUnderCursor
             lngAppInst = GetWindowLong(mListBoxHwnd, GWL_HINSTANCE)
                        If Not mbHook Then
                     mLngMouseHook = SetWindowsHookEx( _
                                                     WH_MOUSE_LL, AddressOf MouseProc, lngAppInst, 0)
                     mbHook = mLngMouseHook <> 0
             End If
     End If
End Sub 

لطفا راهنماییم کنید

[ali.b]

سلام خدمت اساتید عزیز
من در فایل پیوست با یک مشکل مواجه شدم که هربار فایلم را اجرا میکنم با پیغام خطا در خط فرمان زیر روبرو میشم

Sub HookListBoxScroll(frm As Object, 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 Not frm.ActiveControl Is ctl Then
             ctl.SetFocus
     End If
     If mListBoxHwnd <> hwndUnderCursor Then
             UnhookListBoxScroll
             Set mCtl = ctl
             mListBoxHwnd = hwndUnderCursor
             lngAppInst = GetWindowLong(mListBoxHwnd, GWL_HINSTANCE)
                        If Not mbHook Then
                     mLngMouseHook = SetWindowsHookEx( _
                                                     WH_MOUSE_LL, AddressOf MouseProc, lngAppInst, 0)
                     mbHook = mLngMouseHook <> 0
             End If
     End If
End Sub 

[ATTACH=CONFIG]19946[/ATTACH]
لطفا راهنماییم کنید

سلام زیر این کد اضافه کن ببین درست میشه

[COLOR=#0000BB][FONT=monospace]Sub HookListBoxScroll[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]frm [/FONT][/COLOR][COLOR=#007700][FONT=monospace]As [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Object[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ctl [/FONT][/COLOR][COLOR=#007700][FONT=monospace]As [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]MSForms[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Control[/FONT][/COLOR][COLOR=#007700][FONT=monospace])[/FONT][/COLOR]

من با اینکد کار کردم تو بعضی از سیستم ها این ارور رو میداد

on error resume next

[میثم مقدم نیا]

سلام زیر این کد اضافه کن ببین درست میشه

[COLOR=#0000BB][FONT=monospace]Sub HookListBoxScroll[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]frm [/FONT][/COLOR][COLOR=#007700][FONT=monospace]As [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Object[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ctl [/FONT][/COLOR][COLOR=#007700][FONT=monospace]As [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]MSForms[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Control[/FONT][/COLOR][COLOR=#007700][FONT=monospace])[/FONT][/COLOR]

من با اینکد کار کردم تو بعضی از سیستم ها این ارور رو میداد

on error resume next

ممنون ولی جواب نداد

[میثم مقدم نیا]

سلام مجدد
اساتید عزیز کسی نبود کمکی برسونه

[Amir Ghasemiyan]

سلام دوست عزيز
كاربرد اين كد چيه؟ چكار ميكنه؟

من كه فرم رو اجرا كردم بدون مشكل ران شد و هيچ خطايي نداد. هيچ اتفاق خاصي هم نيفتاد

[میثم مقدم نیا]

سلام دوست عزيز
كاربرد اين كد چيه؟ چكار ميكنه؟

من كه فرم رو اجرا كردم بدون مشكل ران شد و هيچ خطايي نداد. هيچ اتفاق خاصي هم نيفتاد

سلام
کارای این کد اینکه میتونید اسکرول بار داخل فرم را با قلتک موس بالا و پایین میکنیم