本帖最后由 xin354033 于 2019-1-19 14:47 编辑
窗口程序集名 | 保 留 | 保 留 | 备 注 | 程序集1 | | | | 变量名 | 类 型 | 数组 | 备 注 | 矩形块 | 矩形 | | 窗口宽 | 整数型 | | 尺寸 | SIZE | | 字体_ | 整数型 | | 小字体 | 整数型 | | _临时子程序 () 返回 (0 ) 变量名 | 类 型 | 静态 | 数组 | 备 注 | RECT1 | 整数型 | | | RECT2 | 整数型 | | | ps | 坐标点 | | 5 |
矩形块 = 到矩形_ (200, 0, 300, 10 )尺寸.width = 500 尺寸.height = 300 窗口宽 = 50 RECT1 = 创建矩形区域_ (0, 0, 尺寸.width, 尺寸.height )RECT2 = 创建矩形区域_ (窗口宽, 窗口宽, 尺寸.width - 窗口宽, 尺寸.height - 窗口宽 )合并区域_ (RECT1, RECT2, RECT1, #RGN_XOR )删除对象_ (RECT2 )ps [4 ] = 到坐标点 (尺寸.width ÷ 2, 尺寸.height ÷ 2 - 60 )ps [1 ] = 到坐标点 (尺寸.width ÷ 2 - 57, 尺寸.height ÷ 2 - 18 )ps [3 ] = 到坐标点 (尺寸.width ÷ 2 - 35, 尺寸.height ÷ 2 + 48 )ps [5 ] = 到坐标点 (尺寸.width ÷ 2 + 35, 尺寸.height ÷ 2 + 48 )ps [2 ] = 到坐标点 (尺寸.width ÷ 2 + 57, 尺寸.height ÷ 2 - 18 )RECT2 = 创建多边形区域_ (ps, { 5 }, 1, 2 )合并区域_ (RECT1, RECT2, RECT1, #RGN_XOR )删除对象_ (RECT2 )字体_ = 创建逻辑字体 (, 14, , , , , )小字体 = 创建逻辑字体 (, 1, , , , , )凭空创建窗口_ (“测试”, “WTWindow”, 1, , 到SIZE (500, 300 ), , , , #天蓝, 200, 字体_, 真, 真, 真, RECT1, #WS_POPUP, , &完毕, &控件事件, )变量名 | 类 型 | 静态 | 数组 | 备 注 | hbq | 整数型 | | | hhh | 整数型 | | | box | 整数型 | | | 置窗口最前 (hwnd, 真)输出调试文本 (取窗口透明度 (hwnd )) 绑定事件处理函数 (hwnd, #WM_PAINT, &绘制文字, , , )绑定事件处理函数 (hwnd, #WM_ERASEBKGND, &绘制文字, , , )创建控件_ (hwnd, #控件_标签, , , 10, 10, 50, 30, #红色, , , , , , )hbq = 创建控件_ (hwnd, #控件_标签, , “标签”, 65, 10, 50, 30, , , 字体_, , , , )hhh = 创建控件_ (hwnd, #控件_按钮, , , 400, 10, 50, 30, #芙红, , , , , , )复制控件_ (hbq, , , , “复制标签”, 315, 260, 80, , , )复制控件_ (hhh, , , , , , 260, , , , )创建控件_ (hwnd, #控件_编辑框, , , 120, 10, 80, 30, , , 字体_, , , , )绑定事件处理函数 (hwnd, #WM_LBUTTONDOWN, &鼠标左键按下, , , )绑定事件处理函数 (hwnd, #WM_LBUTTONUP, &鼠标左键抬起, , , )绑定事件处理函数 (hwnd, #WM_LBUTTONDBLCLK, &鼠标左键双击, , , )绑定事件处理函数 (hwnd, #WM_RBUTTONDOWN, &鼠标右键按下, , , )绑定事件处理函数 (hwnd, #WM_RBUTTONUP, &鼠标右键抬起, , , )绑定事件处理函数 (hwnd, #WM_RBUTTONDBLCLK, &鼠标右键双击, , , )绑定事件处理函数 (hwnd, #WM_MOUSEMOVE, &鼠标移动, , , )绑定事件处理函数 (hwnd, #WM_DESTROY, &将被销毁, , , )绑定事件处理函数 (hhh, #WM_PAINT, &画按钮, , , )发送消息_ (hhh, #WM_PAINT, 0, 0 )发送消息_ (hwnd, #WM_PAINT, 0, 0 )box = 创建控件_ (hwnd, #控件_按钮, , “”, 100, 255, 150, 40, , , 小字体, , #BS_GROUPBOX, , )创建控件_ (box, #控件_按钮, , , 5, 5, , , , , , , #BS_AUTO3STATE, , )绑定事件处理函数 (box, #WM_COMMAND, &分组框内控件, , , )|
控件事件 | | | |
hwnd | 整数型 | | | | ID | 整数型 | | | | lparam | 整数型 | | | | 输出调试文本 (“按钮被单击--” + 到文本 (ID ) + “ ” + 到文本 (窗口控件ID取句柄_ (hwnd, ID ) = lparam )) 判断 (ID = 1003 ) 凭空创建窗口_ (“”, , 1, , 到SIZE (800, 600 ), , , , #粉红, , , , , , , , , &窗口2完成, , ) |
画按钮 | | | |
hwnd | 整数型 | | | | wparam | 整数型 | | | | lparam | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | font | 整数型 | | | hdc | 整数型 | | | wen | 整数型 | | | paint | PAINTSTRUCT | | | BeginPaint_ (hwnd, paint )hdc = 取设备场景_ (hwnd )font = 创建逻辑字体 (, 16, , , , , )wen = 选入设备场景_ (hdc, font )设置背景模式_ (hdc, #TRANSPARENT )设置前景色_ (hdc, 取颜色值 (255, 255, 0 )) 文本绘图_ (hdc, 8, 6, “按钮”, 4 )删除对象_ (font )选入设备场景_ (hdc, wen )释放设备场景_ (hwnd, hdc )EndPaint_ (hwnd, paint )|
绘制文字 | | | |
hwnd | 整数型 | | | | wparam | 整数型 | | | | lparam | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | hdc | 整数型 | | | font | 整数型 | | | Brush | 整数型 | | | wen | 整数型 | | |
hdc = 取设备场景_ (hwnd )font = 创建逻辑字体 (, 20, , 真, , 真, )wen = 选入设备场景_ (hdc, font )设置背景模式_ (hdc, #TRANSPARENT )设置前景色_ (hdc, 取颜色值 (255, 200, 255 )) 文本绘图_ (hdc, 10, 260, “窗口”, 4 )Brush = 创建纯色刷子_ ( #橙黄 )填充矩形_ (hdc, 矩形块, Brush )删除对象_ (Brush )删除对象_ (font )选入设备场景_ (hdc, wen )释放设备场景_ (hwnd, hdc )|
鼠标左键按下 | | | |
hwnd | 整数型 | | | | wparam | 整数型 | | | | lparam | 整数型 | | | | 输出调试文本 (“左键按下”)lp = 到字节集 (lparam )xy = 到坐标点 (取字节集数据 (lp, #短整数型, 1 ), 取字节集数据 (lp, #短整数型, 3 )) 输出调试文本 (点是否在矩形内_ (矩形块, xy.横向位置, xy.纵向位置 )) 置窗口焦点 (hwnd )|
鼠标左键抬起 | | | |
hwnd | 整数型 | | | | wparam | 整数型 | | | | lparam | 整数型 | | | | 输出调试文本 (“左键抬起”)|
鼠标左键双击 | | | |
hwnd | 整数型 | | | | wparam | 整数型 | | | | lparam | 整数型 | | | | 输出调试文本 (“左键双击”)|
鼠标右键按下 | | | |
hwnd | 整数型 | | | | wparam | 整数型 | | | | lparam | 整数型 | | | | 输出调试文本 (“右键按下”)|
鼠标右键抬起 | | | |
hwnd | 整数型 | | | | wparam | 整数型 | | | | lparam | 整数型 | | | | 输出调试文本 (“右键抬起”)|
鼠标右键双击 | | | |
hwnd | 整数型 | | | | wparam | 整数型 | | | | lparam | 整数型 | | | | 输出调试文本 (“右键双击”)|
鼠标移动 | | | |
hwnd | 整数型 | | | | wparam | 整数型 | | | | lparam | 整数型 | | | |
如果真 (wparam = 2 ) lp = 到字节集 (lparam ) 输出调试文本 (到文本 (取字节集数据 (lp, #短整数型, 1 )) + “,” + 到文本 (取字节集数据 (lp, #短整数型, 3 )) ) |
将被销毁 | | | |
hwnd | 整数型 | | | | wparam | 整数型 | | | | lparam | 整数型 | | | | 删除对象_ (字体_ )删除对象_ (小字体 )创建浏览器控件 (句柄, “http://www.baidu.com”, , , , , , , hwnd )绑定事件处理函数 (句柄, #WM_SIZE, &窗口2改变大小, 真, hwnd, )窗口2改变大小 (句柄, hwnd, 0 )|
窗口2改变大小 | | | |
句柄 | 整数型 | | | | 参数1 | 整数型 | | | | 参数2 | 整数型 | | | | 取客户区矩形_ (句柄, rec )移动位置 (参数1, 0, 0, rec.右边, rec.底边, )|
分组框内控件 | | | |
hwnd | 整数型 | | | | ID | 整数型 | | | | lparam | 整数型 | | | | 输出调试文本 (“选择框状态:” + 到文本 (发送消息_ (lparam, 240, 0, 0 )) )
|