易语言编辑框加横线源码

.版本 2

.程序集 窗口程序集1
.程序集变量 Word, 文本型
.程序集变量 Text, 文本型

.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 i, 整数型
.局部变量 m, 整数型
.局部变量 横线, 文本型
.局部变量 横线1, 文本型

m ＝ 编辑框1.宽度 ÷ 13
横线1 ＝ “”
.计次循环首 (m, )
    横线1 ＝ 横线1 ＋ “━”
.计次循环尾 ()
横线 ＝ “”
.计次循环首 (m, )
    横线 ＝ 横线 ＋ “─”
.计次循环尾 ()
Text ＝ 横线1 ＋ #换行符
n ＝ 编辑框1.发送信息 (186, 0, 0)
.计次循环首 (n, i)
    Word ＝ 取空白文本 (255)
    SendMessageStr (编辑框1.取窗口句柄 (), 196, i － 1, Word)
    Text ＝ Text ＋ #换行符 ＋ 横线 ＋ #换行符 ＋ 删尾空 (Word)
.计次循环尾 ()
Text ＝ Text ＋ #换行符 ＋ 横线1
编辑框2.内容 ＝ Text


.子程序 __启动窗口_创建完毕

@lijianye