这个功能可以仿聊天气泡框。
.版本 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