2013-06-15 明经AutoCAD.VBA编程(45054712) 群聊记录：API的右键菜单回调函数，老出错，帮忙看一下，函数如下： Public Fu

明经快报

罗哲兴 12:16:10

API的右键菜单回调函数，老出错，帮忙看一下，函数如下：
Public Function AddCallBack(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case wMsg
        Case WM_COMMAND '消息
            Select Case wParam
                Case WM_USER + IDM_CUT
                   Call cmd剪切
                Case WM_USER + IDM_CREAT
                   Call Cmd添加
                Case WM_USER + IDM_PASTE
                  Call cmd粘贴
            End Select
    End Select
    AddCallBack = CallWindowProc(OldProc, hwnd, wMsg, wParam, lParam)
End Function