求:每点击"下一行"下面编辑框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.内容 ＝ 行文本 [行号]