جهت حرکت اسکرول موس [بایگانی]

حسین علوی

جمعه 12 تیر 1394, 22:30 عصر

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

meys34

یک شنبه 14 تیر 1394, 11:10 صبح

سلام

فقط با 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