火山PC，如何利用超级链接框制作上下文字滚动

开始了

火山pc，如何利用超级链接框制作一个文字上下滚动，并带链接点击跳转。
看到易语言有这样的例子，但是制作成火山pc后，没效果，不知道哪里错了。有知道的能不能帮忙转换成火山pc

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
广告连接	文本型	0
广告文本	文本型	0

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

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

_时钟1_周期事件 ()
文本 ＝ 分割文本 (“准备开始滚动了-百du|http://www.baidu.com” ＋ #换行符 ＋ “已经滚动-精易|http://bbs.125.la” ＋ #换行符 ＋ “正在滚动-url自己改|http://www.qq.com” ＋ #换行符 ＋ “滚动即将完毕|http://www.taobao.cn”, #换行符, )
计次循环首 (取数组成员数 (文本), i)
加入成员 (广告文本, 取文本左边 (文本 [i], 寻找文本 (文本 [i], “|”, , 假) － 1))
加入成员 (广告连接, 取文本右边 (文本 [i], 取文本长度 (文本 [i]) － 寻找文本 (文本 [i], “|”, , 假)))
处理事件 ()
计次循环尾 ()
超级链接框1.标题 ＝ “请稍等.......”

子程序名	返回值类型	公开	备 注
超级连接框上滚动			放到时钟周期里面执行，时钟周期设为1000毫秒（请将超级连接框的类型设为1）。
参数名	类 型	参考	可空	数组	备 注
超级连接框	超级链接框				欲滚动的超级链接框
文本组	文本型				提供需要滚动显示的文本数组
url组	文本型				提供文本组的url地址，成员数必须和参数二相等
文本随机色	逻辑型				默认：假
停顿时间	整数型				默认为5秒

变量名	类 型	静态	数组	备 注
a	整数型
i	整数型
b	整数型
c	整数型
颜色	整数型

a ＝ a ＋ 1
如果真 (是否为空 (停顿时间) ＝ 真)
停顿时间 ＝ 5
如果真 (a ＞ 停顿时间)
计次循环首 (10, i)
处理事件 ()
延时 (10)
超级连接框.顶边 ＝ 超级连接框.顶边 － 1
计次循环尾 ()
超级连接框.可视 ＝ 假
超级连接框.顶边 ＝ 超级连接框.顶边 ＋ 20
b ＝ b ＋ 1
c ＝ 取数组成员数 (文本组)
如果真 (b ＞ c)
b ＝ 1
如果真 (b ＞ 0 且 c ＞ 0)
超级连接框.标题 ＝ 文本组 [b]
超级连接框.Internet地址 ＝ url组 [b]
. ' 如果真 (文本随机色 ＝ 真)
' 颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
' 超级连接框.文本颜色 ＝ 颜色

超级连接框.可视 ＝ 真
计次循环首 (10, i)
处理事件 ()
延时 (10)
超级连接框.顶边 ＝ 超级连接框.顶边 － 1
计次循环尾 ()
a ＝ 0

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

超级连接框上滚动 (超级链接框1, 广告文本, 广告连接, 真, )

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 广告连接, 文本型, , "0"<br /> .程序集变量 广告文本, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> _时钟1_周期事件 ()<br /> 文本 ＝ 分割文本 (“准备开始滚动了-百du|<a href="http://www.baidu.com" rel="nofollow" rel="nofollow" target="_blank">http://www.baidu.com</a>” ＋ #换行符 ＋ “已经滚动-精易|<a href="http://bbs.125.la" target="_blank">http://bbs.125.la</a>” ＋ #换行符 ＋ “正在滚动-url自己改|<a href="http://www.qq.com" rel="nofollow" rel="nofollow" target="_blank">http://www.qq.com</a>” ＋ #换行符 ＋ “滚动即将完毕|http://www.taobao.cn”, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), i)<br />     加入成员 (广告文本, 取文本左边 (文本 <i>, 寻找文本 (文本 <i>, “|”, , 假) － 1))<br />     加入成员 (广告连接, 取文本右边 (文本 <i>, 取文本长度 (文本 <i>) － 寻找文本 (文本 <i>, “|”, , 假)))<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 超级链接框1.标题 ＝ “请稍等.......”<br /> <br /> <br /> .子程序 超级连接框上滚动, , 公开, 放到时钟周期里面执行，时钟周期设为1000毫秒（请将超级连接框的类型设为1）。<br /> .参数 超级连接框, 超级链接框, , 欲滚动的超级链接框<br /> .参数 文本组, 文本型, 数组, 提供需要滚动显示的文本数组<br /> .参数 url组, 文本型, 数组, 提供文本组的url地址，成员数必须和参数二相等<br /> .参数 文本随机色, 逻辑型, 可空, 默认：假<br /> .参数 停顿时间, 整数型, 可空, 默认为5秒<br /> .局部变量 a, 整数型, 静态<br /> .局部变量 i, 整数型<br /> .局部变量 b, 整数型, 静态<br /> .局部变量 c, 整数型<br /> .局部变量 颜色, 整数型<br /> <br /> a ＝ a ＋ 1<br /> .如果真 (是否为空 (停顿时间) ＝ 真)<br />     停顿时间 ＝ 5<br /> .如果真结束<br /> .如果真 (a ＞ 停顿时间)<br />     .计次循环首 (10, i)<br />         处理事件 ()<br />         延时 (10)<br />         超级连接框.顶边 ＝ 超级连接框.顶边 － 1<br />     .计次循环尾 ()<br />     超级连接框.可视 ＝ 假<br />     超级连接框.顶边 ＝ 超级连接框.顶边 ＋ 20<br />     b ＝ b ＋ 1<br />     c ＝ 取数组成员数 (文本组)<br />     .如果真 (b ＞ c)<br />         b ＝ 1<br />     .如果真结束<br />     .如果真 (b ＞ 0 且 c ＞ 0)<br />         超级连接框.标题 ＝ 文本组 <strong><br />         超级连接框.Internet地址 ＝ url组 <strong><br />         .' 如果真 (文本随机色 ＝ 真)<br />             ' 颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))<br />             ' 超级连接框.文本颜色 ＝ 颜色<br />         .如果真结束<br /> <br />     .如果真结束<br />     超级连接框.可视 ＝ 真<br />     .计次循环首 (10, i)<br />         处理事件 ()<br />         延时 (10)<br />         超级连接框.顶边 ＝ 超级连接框.顶边 － 1<br />     .计次循环尾 ()<br />     a ＝ 0<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 超级连接框上滚动 (超级链接框1, 广告文本, 广告连接, 真, )

HelloCatty

有个易转火山的程序，具体叫什么忘了，你去利快云搜一下，还有就是我发现这里基本上没有回答火山的问题，我昨天也发布了一个问题到现在都没人回

开始了

HelloCatty 发表于 2024-9-4 11:25
有个易转火山的程序，具体叫什么忘了，你去利快云搜一下，还有就是我发现这里基本上没有回答火山的问题{:4_ ...

自己转都有问题，软件转的更不行！火山用的人少

HelloCatty

开始了 发表于 2024-9-4 11:30
自己转都有问题，软件转的更不行！火山用的人少

你换个平台去问一下，去官方论坛发看看

开始了

HelloCatty 发表于 2024-9-4 11:45
你换个平台去问一下，去官方论坛发看看

基本上没有人回答，学的人少

开始了

已解决了，不要回帖了

本人吗？

开始了 发表于 2024-9-4 11:30
自己转都有问题，软件转的更不行！火山用的人少

基本转不了  火山资源不多  除非自己有能力封装

UQUQ

6666666666666666666