易语言游戏脚本开发-录像第11课(进程线程多线程的认识)
.版本 2 .程序集 窗口程序集1 .程序集变量 PHwnd, 整数型 .程序集变量 HModule, 整数型 .程序集变量 ID按钮1, 整数型 .程序集变量 ID按钮2, 整数型 .程序集变量 HButton1, 整数型 .程序集变量 HButton2, 整数型 .程序集变量 HEdit, 整数型 .程序集变量 ID编辑框, 整数型 .程序集变量 消息, MSG .程序集变量 ID标签1, 整数型 .程序集变量 HLabel1, 整数型 .程序集变量 PRect, RECT .子程序 开始运行 .局部变量 窗口类信息, WNDCLASS 窗口类信息.style ＝ 3 窗口类信息.lpfnwndproc ＝ &WProc 窗口类信息.hbrBackground ＝ 5 窗口类信息.lpszClassName ＝ “aaa” 窗口类信息.hInstance ＝ HModule 窗口类信息.lpszMenuName ＝ 0 窗口类信息.cbClsextra ＝ 0 窗口类信息.cbWndExtra2 ＝ 0 RegisterClass_ (窗口类信息) ' 注册窗口 PHwnd ＝ CreateWindowEx_ (512, “aaa”, “CreateWindow”, 13565952, 400, 300, 400, 300, 0, 0, HModule, 0) ' 创建窗口 ShowWindow_ (PHwnd, 1) ' 显示窗口 .判断循环首 (GetMessage (消息, 0, 0, 0) ≠ 0) ' ---消息循环 TranslateMessage (消息) DispatchMessage (消息) .判断循环尾 () .子程序 WProc, 整数型 .参数 hwnd .参数 msg .参数 wp .参数 lp .如果真 (msg ＝ 1) ' 窗口创建 HEdit ＝ CreateWindowEx_ (512, “Edit”, “”, 1342177280, 160, 60, 120, 30, hwnd, ID编辑框, HModule, 0) HButton1 ＝ CreateWindowEx_ (0, “Button”, “开始”, 1342177280, 120, 140, 40, 30, hwnd, ID按钮1, HModule, 0) HButton2 ＝ CreateWindowEx_ (0, “Button”, “停止”, 1342177280, 240, 140, 40, 30, hwnd, ID按钮2, HModule, 0) HLabel1 ＝ CreateWindowEx_ (0, “Static”, “aaab”, 1342177280, 125, 34, 220, 18, hwnd, ID标签1, HModule, 0) .如果真结束 .如果真 (msg ＝ 2) ' 接收退出消息 PostQuitMessage (0) .如果真结束 .如果真 (msg ＝ 5) ' 窗口改变大小 GetWindowRect_ (PHwnd, PRect) SetWindowPos_ (HEdit, 0, (PRect.Right － PRect.Left － 120) ÷ 2, (PRect.Bottom － PRect.Top － 140) ÷ 2, 120, 30, 0) SetWindowPos_ (HButton1, 0, (PRect.Right － PRect.Left － 120) ÷ 2, (PRect.Bottom － PRect.Top － 50) ÷ 2, 40, 30, 0) SetWindowPos_ (HButton2, 0, (PRect.Right － PRect.Left ＋ 40) ÷ 2, (PRect.Bottom － PRect.Top － 50) ÷ 2, 40, 30, 0) SetWindowPos_ (HLabel1, 0, (PRect.Right － PRect.Left － 150) ÷ 2, (PRect.Bottom － PRect.Top － 200) ÷ 2, 220, 18, 0) .如果真结束 .如果真 (msg ＝ 273) ' 控件向窗口发消息 .如果真 (lp ＝ HButton1) SendMessage_ (HEdit, 12, 16, “按钮开始按下了！”) .如果真结束 .如果真 (lp ＝ HButton2) SendMessage_ (HEdit, 12, 16, “按钮停止按下了！”) .如果真结束 .如果真结束 返回 (DefWindowProc_ (hwnd, msg, wp, lp)) .子程序 _启动子程序, 整数型 开始运行 () 返回 (0)