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

chunyang300

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

cunanhai

  

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

子程序1 (行号 － 1)

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

子程序1 (行号 ＋ 1)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
指定行号	整数型

变量名	类 型	静态	数组	备 注
行文本	文本型		0
行数	整数型

行数 ＝ 文本_分割文本 (编辑框1.内容, #换行符, , 行文本)
如果真 (指定行号 ≤ 0)
指定行号 ＝ 1
如果真 (指定行号 ＞ 行数)
指定行号 ＝ 行数
行号 ＝ 指定行号
编辑框2.内容 ＝ 行文本 [行号]

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 子程序1 (行号 － 1)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 子程序1 (行号 ＋ 1)<br /> <br /> <br /> .子程序 子程序1<br /> .参数 指定行号, 整数型<br /> .局部变量 行文本, 文本型, , "0"<br /> .局部变量 行数, 整数型<br /> <br /> 行数 ＝ 文本_分割文本 (编辑框1.内容, #换行符, , 行文本)<br /> .如果真 (指定行号 ≤ 0)<br />     指定行号 ＝ 1<br /> .如果真结束<br /> .如果真 (指定行号 ＞ 行数)<br />     指定行号 ＝ 行数<br /> .如果真结束<br /> 行号 ＝ 指定行号<br /> 编辑框2.内容 ＝ 行文本 [行号]

yb139

子程序名：_按钮1_被单击
参数：无
返回值：无
功能：点击下一行按钮时，编辑框2显示下一行的网址

子程序名：_按钮2_被单击
参数：无
返回值：无
功能：点击上一行按钮时，编辑框2显示上一行的网址

变量定义：
行号（整数型）- 当前行号
行文本（文本型数组）- 存储所有行的网址
行数（整数型）- 总行数

实现代码：
行数 ＝ 文本_分割文本 (编辑框1.内容, #换行符, , 行文本)
如果真 (指定行号 ≤ 0)
    指定行号 ＝ 1
如果真 (指定行号 ＞ 行数)
    指定行号 ＝ 行数
行号 ＝ 指定行号
编辑框2.内容 ＝ 行文本 [行号]

chunyang300

求:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
行号	整数型
窗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)

源修改