這個功能可以仿聊天氣泡框。
.版本 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