自定义事件（20+80）

Question

在现有窗口事件中，我可以编写我的代码。但是目前需要我自己为一个窗口定义一个事件，并对此做出响应。（相当于响应VC中的WM_USER + n (n为自然数)的窗口消息）求高手指点。
如果问题成功解决。可以加分（）

Answer 1

很麻烦的一个办法
用SetWindowLong把窗口回调函数的入口制向 普通模块中的一个public类型函数(如WndProc)
setwindowlong(... , addressOf WndProc)
用snedMessage发送消息
在WndProc中处理消息

Answer 2

在类模块和控件中可以做到，但是在窗体里面好象不行啊，只能向楼上说的使用WINDOWS消息了。

Answer 3

例如Function WinProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'此为回调函数，此函数请定义在模块中
    Select Case uMsg
    
      Case WM_USER+100  '有自定义消息
        Select Case lParam
          '处理部分
           ........
        End Select
      Case Else
        WinProc = CallWindowProc(lproc, hwnd, uMsg, wParam, lParam)
    End Select
End Function

Answer 4

然后用 WQ771211(SyanSea)的方法来使用