:9.794KB : :1 :2019-12-15 08:34:36
集_画板.移动 (0, 0, 编辑框.宽度 + 2, 编辑框.高度 + 2)
集_画板.清除 (, , , )
集_画板.画笔颜色 = 集_边框文本色
集_画板.文本颜色 = 集_编辑文本色
.如果真 (编辑框.内容 ≠ “”)
集_画板.字体 = 编辑框.字体
高度 = 取字体高度 (编辑框.字体.字体大小)
' 宽度 = 取字体宽度 (标签.字体.字体大小)
宽度 = 集_画板.取宽度 (编辑框.内容)
.判断开始 (编辑框.对齐方式 = 0)
左边 = 1
.判断 (编辑框.对齐方式 = 2)
左边 = 编辑框.宽度 - 宽度 - 1
.默认
左边 = (编辑框.宽度 - 宽度) ÷ 2
.判断结束
.判断开始 (编辑框.是否允许多行)
上边 = 1
' 总行数 = 编辑框.发送信息 (#EM_GETLINECOUNT, 0, 0)
SendMessageRECT (编辑框.取窗口句柄 (), #EM_GETRECT, 0, 可视范围) ' 获取编辑框的客户区范围
最小可见行 = 编辑框.发送信息 (#EM_CHARFROMPOS, 0, 1 × 65536) \ 65535 ' 取编辑框左上角当前的可见行行号
最大可见行 = 编辑框.发送信息 (#EM_CHARFROMPOS, 0, (可视范围.Bottom - 1) × 65536) \ 65535 ' 取编辑框左下角当前的可见行行号
.变量循环首 (最小可见行, 最大可见行, 1, 行号)
行文本长度 = SendMessageTEXT (编辑框.取窗口句柄 (), #EM_GETLINE, 行号, 集_行文本)
行文本 = 取文本左边 (集_行文本, 行文本长度)
集_画板.定位写出 (1, 上边, 行文本)
上边 = 上边 + 高度
.变量循环尾 ()
.默认
上边 = (编辑框.高度 - 高度) ÷ 2
集_画板.定位写出 (左边, 上边, 编辑框.内容)
.判断结束
.如果真结束
.如果真 (集_无边框 = 假 且 编辑框.边框 > 0)
集_画板.画出方式 = 8
集_画板.画矩形 (0, 0, 编辑框.宽度, 编辑框.高度)
.如果真结束
集_画板.复制 (0, 0, 编辑框.宽度, 编辑框.高度, 集_打印画板, 编辑框.左边, 编辑框.顶边 + 集_顶边位置, 1)
02-18易语言的自用CAD插件开源
02-17会员管理插件源码
02-16易语言打造的最简单易用的http服务框架
02-16Fiddler批量自动生成易语言代码
02-16动态创建菜单与响应事件源码,菜单编辑器
02-16易语言如何判断按钮只能在30秒内点击一次
02-16锐浪标签打印E2EE连接SQLSEVER
02-17WORD表格中使用EXCEL的常用命令
02-05Word设置附件文档预览时看到文字打印
02-05在WPS表格中插入批注使用方法
01-06excel表格按内容字数排序的教程
01-06excel打印文件信息时去除底纹和颜色
01-06excel复制表格时如何不包含隐藏单元格
01-02在EXCEL表格中使用IMSQRT函数
01-02在word表格中把单元格分页断开
01-02EXCEL表格ISBLANK函数使用方法