پیام WM_PAINT جهت رنگ Client و WM_DRAWITEM برای باتن ساخته شده بجای باتن CANCEL

تست شده 

The WM_PAINT message is sent when the system or another application makes a request to paint a portion 

  of an application's window

The PAINTSTRUCT structure contains information that can be used to paint the.client area of a window

حاوی اطلاعاتی برای استفاده در نقاشی ناحیه ی Client پنجره.

Case WM_PAINT

Dim ps As PAINTSTRUCT

    ( hdc = BeginPaint(lhwnd, ps

     Dim rrc As RECT

     GetClientRect lhwnd, rrc 

  (( FillRect hdc, rrc, CreateSolidBrush(RGB(100, 0, 100

     SetTextColor hdc, vbRed

     TextOutA hdc, 10, 10, "sa", 2

     EndPaint lhwnd, ps

     ReleaseDC lhwnd, hdc

البته غیر از پیام زیر میشود با پیام WM_CTLCOLORBTN  هم  رنگ باتن  را تغییر داد که lParam میشود هندل باتن و wParam هم هندل DC میشود

Case WM_DRAWITEM

   Dim pDIS As DRAWITEMSTRUCT

   Dim state

   (CopyMemory pDIS, ByVal lParam, Len(pDIS

  ( hdc = GetDC(pDIS.hdc

   Dim p As RECT

   p = pDIS.rcItem

   state = pDIS.itemState

  GetClientRect can, p

   If pDIS.CtlID = 2 Then

   If state = 272 Then       

  RoundRect hdc, p.Left, p.Top, p.Right, p.Bottom, 16, 16  

ReleaseDC can, hdc  

  Else         

  RoundRect hdc, p.Left, p.Top, p.Right, p.Bottom, 4, 4       

  ReleaseDC can, hdc      

 End If     

   End If

   (CopyMemory ByVal lParam, pDIS,Len(pDIS

زمان کلیک روی باتن کنسل  مکث عمل RounRect را نمایش داده و پنجره بسته میشود.

If state = 785 Then  '272

  RoundRect hdc, p.Left, p.Top, p.Right, p.Bottom, 16, 16

  Sleep 400

  ReleaseDC can, hdc

If (pDIS.itemState And???

ODS_SELECTED)=ODS_SELECTED Then

---

طبق داکیومنت آفیس  (WM_CTLCOLORBTN) :

در موارد بالا حتما باید BS_OWNERDRAW تنظیم شود برای کل باتن ها که هندل میشود هندل Dlg و برای باتن خاص هندل همان باتن فقط ،   setwindowlongptra را در WIN64 ببینید.

See For Button Control button-styles

See For Static Control static-control-styles

wParam
An HDC that specifies the handle to the display context for the button
lParam
)An HWND that specifies the handle to the button

getdlgitem : Retrieves a handle to a control in the 

(specified dialog box

hdc=wParam '

Case WM_CTLCOLORBTN

if lparam=GetDlgItem(hwnd,IDCANCEL) then

.

End if

Exit Function

---

The idea is to add your own Windows message handler, you can do this using 

.SetWindowsHookEx function

Don't forget : Before terminating, an application must call the UnhookWindowsHookEx function to free 

system resources associated with the hook