View Full Version : جهت حرکت اسکرول موس
حسین علوی
جمعه 12 تیر 1394, 23:30 عصر
با سلام خدمت دوستان
چطور میتونم اسکرول موس را در vb6 مشخص کنم در واقع میخواهم مشخص کنم که به طرف بالاحرکت میکنه یا به طرف پایین؟
meys34
یک شنبه 14 تیر 1394, 12: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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.