WM_MOUSEMOVE در Custom Draw Control

---

برگرفته از فروم خارجی 

Dim r As RECT

(HWND h=GetDlgItem(hwndDlg,IDC_YOURCTLID

GetWindowRect h, r ' get window rect of control relative to screen

POINT pt={r.left,r.top } 'new point object using rect x, y

Above means ->>>??? pt.x=r.left:pt.y=r.top '

ScreenToClient hwndDlg,pt ' convert screen co-ords to

 client based points

example if I wanted to move said control'

-MoveWindow h,pt.x,pt.y+15,r.right-r.left, r.bottom

(r.top,TRUE

 r.right - r.left, r.bottom - r.top to keep control at its '

current size

---

برگرفته از فروم خارجی

(void CMyButton::OnTimer(UINT nIDEvent

()DWORD GetMessagePos'

Point p(GetMessagePos

Dim p As PONIAPI And p=GetMessagePos ??? '

'BOOL ScreenToClient(HWND hWnd,LPPOINT lpPoint'

ScreenToClient hBtn ,p

(Get the bounds of the control (just the client area '
 CRect rect

(BOOL GetClientRect(HWND hWnd,LPRECT lpRect'

GetClientRect hBtn,rect

 Check the mouse is inside the control '

(BOOL PtInRect(const RECT *lprc,POINT pt'

if PtInRect(rect,p)<>0 Then

Else
 ...if not then stop looking '
m_bOverControl=FALSE

(BOOL KillTimer(HWND hWnd,UINT_PTR uIDEvent'

KillTimer lhwnd,m_nTimerID

 ...and redraw the control '
  InvalidateRect ? Or Redraw 

CButton::OnTimer(nIDEvent ??? '

تایمر در توابع API

مربوط به 32 بیت 

Declare Function SetTimer Lib “user32” (ByVal hWnd As Long, ByVal nIDEvent_ As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib “user32” (ByVal hWnd As Long, _ ByVal nIDEvent As Long) As Long

Dim timerID As Long

Create a timer that sends a notification every 500'

milliseconds. 

(timerID = SetTimer(0, 0, 500, AddressOf Timer_CBK

Destroy the timer created previously '

KillTimer  0,timerID

Sub Timer_CBK(ByVal hWnd As Long, ByVal uMsg As Long, _ ByVal idEvent As Long, ByVal SysTime As Long)

 Just display the system time in a label control '

Form1.lblTimer = SysTime 

End Sub