جهت حرکت اسکرول موس

[حسین علوی]

با سلام خدمت دوستان
چطور میتونم اسکرول موس را در vb6 مشخص کنم در واقع میخواهم مشخص کنم که به طرف بالاحرکت میکنه یا به طرف پایین؟

[meys34]

سلام

فقط با subclassing میشه فهمید...

این یه تیکه از کد مربوطه:

Case WM_MOUSEWHEEL



WHEEL_DELTA = 120



 Delta = wParam / 65536 / WHEEL_DELTA

              

            Dim i As Long

            

             If Delta > 0 Then                       ' Scroll Up

                   Do While i < Delta

                            If Combo.TopIndex > 0 Then Combo.TopIndex = Combo.TopIndex - 1

                            i = i + 1

                  Loop

              Else                                   ' Scroll Down

                   Do While i > Delta

                            Combo.TopIndex = Combo.TopIndex + 1

                            i = i - 1

                  Loop

              End If

              Exit Function