|
发表于 2022-10-4 19:52:54
|
显示全部楼层
江苏省连云港市
.版本 2
.子程序 创建截图按钮
.参数 IDE句柄, 整数型
.参数 创建位置, 整数型, 可空
.局部变量 rect, rect
.局部变量 i, 整数型
.局部变量 父句柄, 整数型
.局部变量 Button, 整数型
.局部变量 按钮高度, 整数型
.局部变量 按钮宽度, 整数型
.判断开始 (创建位置 = 1)
父句柄 = IDE句柄
按钮高度 = 30
按钮宽度 = 80
.默认
GetWindowRect (父句柄, rect)
按钮高度 = rect.底边 - rect.顶边 - 4
按钮宽度 = 100
.判断结束
Button = CreateWindowExA (0, “BUTTON”, “截图保存→易语言项目管理器”, 位或 (#BS_PUSHBUTTON, #WS_TABSTOP, 1073741824, 268435456, 0), 取随机数 (0, 200), 取随机数 (0, 200), 按钮宽度, 按钮高度, 父句柄, 10001, 0, 0)
SendMessageA (Button, #WM_SETFONT, CreateFontA (30, 10, 0, 0, 1, 假, 假, 假, 1, 1, 0, 500, 1, “微软雅黑”), 0)
SetParent (Button, 父句柄)
.判断开始 (创建位置 = 1)
MoveWindow (Button, rect.左边 - 105, 0, 320, rect.底边 - rect.顶边 - 1, 真)
.默认
MoveWindow (Button, rect.右边 ÷ 2, 10, 320, 50, 真)
.判断结束
|
|