求:每点击"下一行"下面编辑框2就变换一次不同网址 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
行号	整数型
窗ID	整数型

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

窗ID ＝编辑框1.取窗口句柄 ()
标签1.标题＝ “总行数：” ＋ “ ” ＋到文本 (编辑框1.发送信息 (186, 0, 0))
行号＝ 0

子程序名	返回值类型	公开	备注
_按钮1_被单击

翻行 ()

子程序名	返回值类型	公开	备注
_按钮2_被单击

翻行 (1)

子程序名	返回值类型	公开	备注
翻行
参数名	类型	参考	可空	数组	备注
参数1	整数型				留空为1,0是向上,1是向下

变量名	类型	静态	数组	备注
文本1	文本型		0
总行数	整数型
起始位置	整数型
文本长度	整数型

如果真 (是否为空 (参数1))

参数1 ＝ 0

如果真 (参数1 ＝ 0)

如果真 (行号＞ 1)

行号＝行号－ 1

如果真 (参数1 ＝ 1)

行号＝行号＋ 1
总行数＝发送消息 (窗ID, 186, 0, 0)
起始位置＝发送消息 (窗ID, 187, 行号－ 1, 0)
文本长度＝发送消息 (窗ID, 193, 起始位置, 0)
文本1 ＝分割文本 (编辑框1.内容, #换行符, )
编辑框1.起始选择位置＝起始位置
编辑框1.被选择字符数＝文本长度
编辑框1.获取焦点 ()
输出调试文本 (“选中行：” ＋到文本 (行号) ＋ “ ” ＋ “当前选中内容：” ＋文本1 [行号])
标签1.标题＝ “总行数：” ＋到文本 (总行数)
标签2.标题＝ “第” ＋到文本 (行号) ＋ “行”
' 调试输出 (总行数, “总行数”)
' 调试输出 (行号, “行号”)
' 调试输出 (起始位置, “起始位置”)
' 调试输出 (文本长度, “长度”)

如果真 (行号＝总行数)

行号＝ 0

子程序名	返回值类型	公开	备注
_编辑框1_鼠标左键被放开	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类型	静态	数组	备注
总行数	整数型
文本1	文本型		0
起始位置	整数型
文本长度	整数型
行号1	整数型

取光标行数据 (窗ID, 总行数, 行号1, 起始位置, 文本长度)
文本1 ＝分割文本 (编辑框1.内容, #换行符, )
编辑框1.起始选择位置＝起始位置
编辑框1.被选择字符数＝文本长度
编辑框1.获取焦点 ()
输出调试文本 (“选中行：” ＋到文本 (行号1 ＋ 1) ＋ “ ” ＋ “当前选中内容：” ＋文本1 [行号1 ＋ 1])
标签1.标题＝ “总行数：” ＋到文本 (总行数)
标签2.标题＝ “第” ＋到文本 (行号1 ＋ 1) ＋ “行”

子程序名	返回值类型	公开	备注
取光标行数据
参数名	类型	参考	可空	数组	备注
句柄	整数型
总行数	整数型
行号1	整数型
起始位置	整数型
文本长度	整数型

变量名	类型	静态	数组	备注
位置	整数型

位置＝发送消息 (句柄, 176, 0, 0) ％ 65536
总行数＝发送消息 (句柄, 186, 0, 0)
行号1 ＝发送消息 (句柄, 201, 位置, 0)
起始位置＝发送消息 (句柄, 187, 行号1, 0)
文本长度＝发送消息 (句柄, 193, 起始位置, 0)

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 行号, 整数型<br />
.程序集变量 窗ID, 整数型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
窗ID ＝ 编辑框1.取窗口句柄 ()<br />
标签1.标题 ＝ “总行数：” ＋ “ ” ＋ 到文本 (编辑框1.发送信息 (186, 0, 0))<br />
行号 ＝ 0<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
翻行 ()<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
翻行 (1)<br />
<br />
.子程序 翻行<br />
.参数 参数1, 整数型, 可空, 留空为1,0是向上,1是向下<br />
.局部变量 文本1, 文本型, , "0"<br />
.局部变量 总行数, 整数型<br />
.局部变量 起始位置, 整数型<br />
.局部变量 文本长度, 整数型<br />
<br />
.如果真 (是否为空 (参数1))<br />
    参数1 ＝ 0<br />
.如果真结束<br />
.如果真 (参数1 ＝ 0)<br />
    .如果真 (行号 ＞ 1)<br />
        行号 ＝ 行号 － 1<br />
    .如果真结束<br />
<br />
.如果真结束<br />
.如果真 (参数1 ＝ 1)<br />
    行号 ＝ 行号 ＋ 1<br />
.如果真结束<br />
总行数 ＝ 发送消息 (窗ID, 186, 0, 0)<br />
起始位置 ＝ 发送消息 (窗ID, 187, 行号 － 1, 0)<br />
文本长度 ＝ 发送消息 (窗ID, 193, 起始位置, 0)<br />
文本1 ＝ 分割文本 (编辑框1.内容, #换行符, )<br />
编辑框1.起始选择位置 ＝ 起始位置<br />
编辑框1.被选择字符数 ＝ 文本长度<br />
编辑框1.获取焦点 ()<br />
输出调试文本 (“选中行：” ＋ 到文本 (行号) ＋ “  ” ＋ “当前选中内容：” ＋ 文本1 [行号])<br />
标签1.标题 ＝ “总行数：” ＋ 到文本 (总行数)<br />
标签2.标题 ＝ “第” ＋ 到文本 (行号) ＋ “行”<br />
<br />
' 调试输出 (总行数, “总行数”)<br />
' 调试输出 (行号, “行号”)<br />
' 调试输出 (起始位置, “起始位置”)<br />
' 调试输出 (文本长度, “长度”)<br />
<br />
.如果真 (行号 ＝ 总行数)<br />
    行号 ＝ 0<br />
.如果真结束<br />
<br />
<br />
.子程序 _编辑框1_鼠标左键被放开, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
.局部变量 总行数, 整数型<br />
.局部变量 文本1, 文本型, , "0"<br />
.局部变量 起始位置, 整数型<br />
.局部变量 文本长度, 整数型<br />
.局部变量 行号1, 整数型<br />
<br />
取光标行数据 (窗ID, 总行数, 行号1, 起始位置, 文本长度)<br />
文本1 ＝ 分割文本 (编辑框1.内容, #换行符, )<br />
编辑框1.起始选择位置 ＝ 起始位置<br />
编辑框1.被选择字符数 ＝ 文本长度<br />
编辑框1.获取焦点 ()<br />
输出调试文本 (“选中行：” ＋ 到文本 (行号1 ＋ 1) ＋ “  ” ＋ “当前选中内容：” ＋ 文本1 [行号1 ＋ 1])<br />
标签1.标题 ＝ “总行数：” ＋ 到文本 (总行数)<br />
标签2.标题 ＝ “第” ＋ 到文本 (行号1 ＋ 1) ＋ “行”<br />
<br />
.子程序 取光标行数据<br />
.参数 句柄, 整数型<br />
.参数 总行数, 整数型, 参考<br />
.参数 行号1, 整数型, 参考<br />
.参数 起始位置, 整数型, 参考<br />
.参数 文本长度, 整数型, 参考<br />
.局部变量 位置, 整数型<br />
<br />
位置 ＝ 发送消息 (句柄, 176, 0, 0) ％ 65536<br />
总行数 ＝ 发送消息 (句柄, 186, 0, 0)<br />
行号1 ＝ 发送消息 (句柄, 201, 位置, 0)<br />
起始位置 ＝ 发送消息 (句柄, 187, 行号1, 0)<br />
文本长度 ＝ 发送消息 (句柄, 193, 起始位置, 0)