易语言类中窗口回调的正确使用方法

.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 window, 窗口类
.局部变量 msg, MSG

window.创建 ()
.判断循环首 (GetMessage (msg, 0, 0, 0))
    TranslateMessage (msg)
    DispatchMessage (msg)
.判断循环尾 ()
返回 (msg.wParam)  ' 可以根据您的需要返回任意数值

.子程序 窗口_WndProc, 整数型
.参数 hWnd, 整数型
.参数 message, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.局部变量 窗口类指针, 整数型
.局部变量 窗口类, 窗口类, 静态
.局部变量 返回值, 逻辑型

窗口类指针 ＝ GetWindowLong (hWnd, #GWL_USERDATA)
.如果真 (message ＝ 2)
    PostQuitMessage (0)
.如果真结束
.如果真 (窗口类指针 ≠ 0)
    .如果真 (message ＝ 16)
        强制交换变量 (窗口类指针, 窗口类)
        返回值 ＝ 窗口类.可否被关闭 ()
        强制交换变量 (窗口类指针, 窗口类)
        .如果真 (返回值 ＝ 假)
            返回 (0)
        .如果真结束

    .如果真结束

.如果真结束
返回 (DefWindowProc (hWnd, message, wParam, lParam))

@ysc3839