桌面歌词滚动播放效果源码
桌面歌词滚动播放效果源码纯易语言源码未用模块和DLL
.版本 2
.支持库 iext
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
' ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
' ┃易语言学习网www.eyy8.vip 易语言学习群33745762 ┃
' ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
' ┃纯源码制作，无任何模块与Dll。 ┃
' ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
' ┃原理使用两个透明标签（一个高亮一个底层）一个盖板实现。┃
' ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
' ┃原创作品，转载请注明！ ┃
' ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
.子程序 _按钮1_被单击
' 高亮.调整层次 (#最高层)' 用来调整层次用的命令（可有可无）
高亮.宽度 ＝ 1' 高亮宽度设置初始值
高亮.文本颜色 ＝ 高亮颜色.颜色' 设置颜色
底层.文本颜色 ＝ 底层颜色.颜色' 设置颜色
底层.标题 ＝ 编辑框1.内容' 设置标题
高亮.标题 ＝ 编辑框1.内容' 设置标题
设置歌词宽度与位置 ()
盖板.宽度 ＝ 1' 设置盖板初始值
时钟1.时钟周期 ＝ 到整数 (编辑框2.内容)
.子程序 _时钟1_周期事件
.判断开始 (高亮.宽度 ＝ 底层.宽度)
时钟1.时钟周期 ＝ 0
.默认
高亮.宽度 ＝ 高亮.宽度 ＋ 1
盖板.宽度 ＝ 盖板.宽度 ＋ 1
' 高亮.调整层次 (#最高层)' 用来调整层次用的命令（可有可无）
.判断结束
.子程序 设置歌词宽度与位置, , , 单独写这个子程序的原因是因为这个需要你们自行计算出实际宽度与位置。
底层.宽度 ＝ 取文本长度 (底层.标题) × 13.5' 根据文本长度计算出标签的宽度（仅限于当前字体与字体大小）。 其他字体需自行计算。
' 没有设置高亮和盖板宽度是因为高亮的宽度等于底层的宽度以后程序自动停止
底层.左边 ＝ (_启动窗口.宽度 － 底层.宽度) ÷ 2 － 4' 通过计算得出歌词显示在正中央的位置
高亮.左边 ＝ 底层.左边' 同上
盖板.左边 ＝ 底层.左边' 同上
.子程序 __启动窗口_可否被关闭, 逻辑型
结束 ()
效果:
源码下载:
https://eyy8.lanzoup.com/iesDpdnv5he
楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！ 太好了！！！！！！！！！！
页:
[1]