رویداد چرخش غلطک ماوس در یک کنترل مثل TextBox

Public Const WM_VSCROLL = &H115 Public Const WM_HSCROLL = &H114 Public Const SB_LINEUP = 0

Public Const SB_LINEDOWN = 1

Public Declare Function SendMessageA Lib "User32" (ByVal hwnd As Long, ByVal wMsg As Long,ByVal wParam As Long, lParam As Any) As Long

Public Declare Function GetFocus Lib "User32" () As Long

wm-vscroll

Public Function Wnd(Ctl As Control) As Long

On Error Resume Next

Ctl.SetFocus

If Err Then

Wnd=0

Else

Wnd=GetFocus

End If

On Error Goto 0

End Function

OnMouseWheel : 

HandleWindow=Wnd(Screen.ActiveControl)

Count<0

iCount From1 To -1 * Count

hWnd,WM_VSCROLL,SB_LINEUP,0

Count Not Zero

iCount From 1 To Count

hWnd,WM_VSCROLL,SB_LINEDOWN,0

به گزارش سایت خبری تحلیلی ساعدنیوز به نقل از روزیاتو، آنی شارلوت ۲۳ ساله، اهل شهرستان ساری انگلیس، وقتی در ۱۶ سالگی برای معاینه پیش پزشک زنان رفته بود معلوم شد به دو رحمی (Uterus Didelphys) دچار است.

زنانی که به این پدیده پزشکی دچارند در صورت داشتن شرکای جنسی متعدد ممکن است همزمان از ۲ مرد مختلف باردار شوند.

۱۸ دیماه ۱۴۰۱ :

اعتمادآنلاین |

روزنامه آرمان امروز از رونق بازار اجاره کارت ملی برای معامله خودرو در بورس کالا گزارش دارد. به نوشته این روزنامه کارت های ملی تا ۱۰۰ میلیون تومان اجاره داده می‌شوند! .... دلالان همه جا هستند ، سکه دلار بورس کالا