برای تغییر استایل کامند باتون به فلات کد زیر رو داخل یه ماژول ذخیره کنید. و هندل کامند مورد نظرتون رو برای تابع ارسال کنید.

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
 (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const BS_FLAT = &H8000&
Private Const GWL_STYLE = (-16)

Public Function SetButtonFlat(ByVal hWnd As Long) As Boolean
Dim style As Long
style = GetWindowLong(hWnd, GWL_STYLE)
style = style Or BS_FLAT
SetButtonFlat = SetWindowLong(hWnd, GWL_STYLE, style)
End Function

نوشته شده توسط مهدی در سه شنبه 90/5/18 و ساعت 3:26 عصر | نظرات دیگران()