.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 行首, 整数型
.局部变量 句柄, 整数型
句柄 = 编辑框1.取窗口句柄 ()
行首 = SendMessage (句柄, #EM_LINEINDEX, 到数值 (编辑框2.内容) - 1, 0) * 取行首位置,编辑框2为指定行数
SendMessage (句柄, #EM_SETSEL, 行首, 行首 + SendMessage (句柄, #EM_LINELENGTH, 行首, 0) + 1) * 选中要删除的行
SendMessage (句柄, #EM_REPLACESEL, 0, 0) * 删除选中的文本