1,451
社区成员
发帖
与我相关
我的任务
分享
Private Declare Function AssignOwnerDraw Lib "cutemenu" (ByVal hMenu As Long) As Long
Private Declare Function MeasureItem Lib "cutemenu" (ByVal lpmis As Long) As Long
Private Declare Function DrawItem Lib "cutemenu" (ByVal lpdis As Long) As Long
Call cMenu.AssignOwnerDraw(GetMenu(Me.hWnd))
'...
Case WM_MEASUREITEM
Call cMenu.MeasureItem(lParam)
Case WM_DRAWITEM
If wParam = 0 Then Call cMenu.DrawItem(lParam)
'...