易语言编辑框随文本变化宽度和高度

  这个功能可以仿聊天气泡框。

.版本 2

.子程序 _编辑框1_内容被改变

.如果 (编辑框1.宽度 ≤ 230)
    编辑框1.宽度 ＝ 取文本长度 (编辑框1.内容) × 7 ＋ 7
.否则

    编辑框1.高度 ＝ 20 × (取整 (取文本长度 (编辑框1.内容) × 7 ÷ 220) ＋ 1)


.如果结束

 

==============

.版本 2

.子程序 计算编辑框宽高
.参数 文本, 文本型
.参数 编辑框, 编辑框
.局部变量 宽, 整数型
.局部变量 高, 整数型

.如果 (取文本长度 (文本) × 7 ＋ 7 ＜ 290)
    高 ＝ 20
    宽 ＝ 取文本长度 (文本) × 7 ＋ 7

.否则

    宽 ＝ 290
    高 ＝ 20 × (取整 (取文本长度 (文本) × 7 ÷ 290) ＋ 1)
.如果结束

编辑框.高度 ＝ 高
编辑框.宽度 ＝ 宽

这段代码，可以直接根据文本，生成相应的编辑框高度。

这里限制最大宽为290