易语言字幕滚动源码
1. 易语言 字幕左右来回滚动源码 怎样写
.版本2
.支持库spec
.程序集窗口程序集_启动窗口
.程序集变量左右,逻辑型
.程序集变量计次,整数型
.程序集变量来回宽,整数型
.子程序_按钮1_被单击
标签1.字体.字体大小=20
标签1.高度=25
标签1.宽度=取文本长度(编辑框1.内容)×15
标签1.左边=0
标签1.标题=编辑框1.内容
左右=真
来回宽=_启动窗口.宽度-标签1.宽度-1
滚动()
.子程序滚动
.如果(左右)
.计次循环首(来回宽,计次)
标签1.左边=计次
延迟(50)
.计次循环尾()
.否则
.计次循环首(来回宽,计次)
标签1.左边=来回宽-计次
延迟(50)
.计次循环尾()
.如果结束
左右=取反(左右)
滚动()
2. 易语言上下滚动字幕怎么写代码 求源码
要显示彩色的字,有两种方法:
一、用画板滚动写行,可以一行一行地写文字,可以用不同颜色画出。
二、用WebBrowser控件调用网页,网页里设置文本滚动。
以上组件的用法在易语言官方论坛中可以搜索到例程。
3. 易语言 如何制作字幕滚动
把文字添加到标签上!或者透明标签上。
.版本 2.支持库 iext
.如果真 (透明标签1.左边 = 0)
透明标签1.左边 = _启动窗口.宽度
.如果真结束
.如果真 (透明标签1.左边 ≠ 0)
透明标签1.左边 = 透明标签1.左边 - 1
.如果真结束
4. 易语言滚动字怎么写求源码
.版本 2
.子程序 __启动窗口_创建完毕
超级链接框1.类型 = 1
超级链接框1.标题 = “这里就是你想要的滚动文字,你可以自己修改成自己的” ' 你可以改为用HTTP读文件来自动读取网络文字,下面的地址也一样可以.
超级链接框1.Internet地址 = “http://www..com”
时钟1.时钟周期 = 100 ' 这里的时间能控制速度
.子程序 _时钟1_周期事件
超级链接框1.左边 = 超级链接框1.左边 - 50 ' 这里的50可以修改为你想要的效果
.如果真 (超级链接框1.左边 < -_启动窗口.左边)
超级链接框1.左边 = _启动窗口.左边
.如果真结束
另外在帮你写一个鼠标停留在公告上时公告停止滚动的代码:
.版本 2
.子程序 _超级链接框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 超级链接坐标, 坐标_
.局部变量 鼠标坐标, 坐标_
取鼠标位置_ (鼠标坐标)
超级链接坐标.横向位置 = 0
超级链接坐标.纵向位置 = 0
取窗口区域位置_ (超级链接框1.取窗口句柄 (), 超级链接坐标)
.判断开始 (鼠标坐标.横向位置 < 超级链接坐标.横向位置 + 超级链接框1.宽度 且 鼠标坐标.横向位置 > 超级链接坐标.横向位置)
.判断开始 (鼠标坐标.纵向位置 < 超级链接坐标.纵向位置 + 超级链接框1.高度 且 鼠标坐标.纵向位置 > 超级链接坐标.纵向位置)
时钟1.时钟周期 = 0
.默认
时钟1.时钟周期 = 500
.判断结束
.默认
时钟1.时钟周期 = 500
.判断结束
.版本 2
.DLL命令 取鼠标位置_, 整数型, "user32", "GetCursorPos", , ,
.参数 位置, 坐标_
.DLL命令 取窗口区域位置_, 整数型, "user32.dll", "ClientToScreen", , , 非零表示成功,零表示失败
.参数 窗口句柄, 整数型, , hwnd,要取出区域坐标的窗口句柄
.参数 位置变量, 坐标_, , lpPoint,参见相关帮助
.版本 2
.数据类型 坐标_, , , POINTAPI
.成员 横向位置, 整数型, , , x,横向位置
.成员 纵向位置, 整数型, , , y,纵向位置
5. 易语言标签做滚动字幕
也可以这样写标签1.写衮动文本=“自己写”
6. 易语言编辑框文字滚动,并出现随机的数字,这代码该咋写
编辑框1.内容=到文本(取随机数(10000,99999))
7. 在里易语言如何实现滚动文字
方法一:使用
画板
,把图片设为底图,滚动写行,可以逐行显示形成滚动效果
方法二:使用
超文本
浏览框,把要滚动的内容做成网页在里面调用
8. 易语言怎么做滚动字幕和会动的进度条
简单点的,就用 透明标签,调整位置即可
.版本2
.子程序_按钮1_被单击
.局部变量Seek,整数型
.局部变量i,整数型
标签1.标题=编辑框1.内容
.子程序_时钟1_周期事件
标签1.宽度=取文本长度(标签1.标题)×6.5
.如果真(标签1.左边≤-标签1.宽度)
标签1.左边=取用户区宽度()-10
.如果真结束
标签1.左边=标签1.左边-10
稍微高级一点的,可以用画板定位写出,2个画板可以做不到闪,不卡
9. 易语言标签做成滚动字幕代码
.版本
2.程序集
窗口程序集1.子程序
_时钟1_周期事件标签1.左边
=
标签1.左边
-
2
.如果真
(标签1.左边
<
0)
标签1.左边
=
左边
.如果真结束
改变时钟周期和-2来控制速度
不懂可以追问