易语言吧

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2388|回复: 2

[易语言源码] 桌面歌词滚动播放效果源码

[复制链接]

169

主题

298

帖子

4594

积分

VIP超级贵宾

Rank: 8Rank: 8

积分
4594
QQ
威望
0
易币
4291
贡献
0
积分
4594
UID
3
在线时间
166 小时
注册时间
2019-7-22
发表于 2020-6-14 16:48:38 | 显示全部楼层 |阅读模式
桌面歌词滚动播放效果源码

纯易语言源码未用模块和DLL
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
' ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
' ┃易语言学习网[url]www.eyy8.vip[/url]     易语言学习群33745762     ┃
' ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
' ┃纯源码制作,无任何模块与Dll。                         ┃
' ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
' ┃原理使用两个透明标签(一个高亮一个底层)一个盖板实现。┃
' ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
' ┃原创作品,转载请注明!                                ┃
' ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
子程序名返回值类型公开备 注
_按钮1_被单击  
' 高亮.调整层次 (#最高层)  ' 用来调整层次用的命令(可有可无)
高亮.宽度 = 1  ' 高亮宽度设置初始值
高亮.文本颜色 = 高亮颜色.颜色  ' 设置颜色
底层.文本颜色 = 底层颜色.颜色  ' 设置颜色
底层.标题 = 编辑框1.内容  ' 设置标题
高亮.标题 = 编辑框1.内容  ' 设置标题
设置歌词宽度与位置 ()
盖板.宽度 = 1  ' 设置盖板初始值
时钟1.时钟周期 = 到整数 (编辑框2.内容)
子程序名返回值类型公开备 注
_时钟1_周期事件  
判断 (高亮.宽度 = 底层.宽度)
时钟1.时钟周期 = 0
高亮.宽度 = 高亮.宽度 + 1
盖板.宽度 = 盖板.宽度 + 1
' 高亮.调整层次 (#最高层)  ' 用来调整层次用的命令(可有可无)

子程序名返回值类型公开备 注
设置歌词宽度与位置 单独写这个子程序的原因是因为这个需要你们自行计算出实际宽度与位置。
底层.宽度 = 取文本长度 (底层.标题) × 13.5  ' 根据文本长度计算出标签的宽度(仅限于当前字体与字体大小)。 其他字体需自行计算。
' 没有设置高亮和盖板宽度是因为高亮的宽度等于底层的宽度以后程序自动停止
底层.左边 (_启动窗口.宽度 - 底层.宽度) ÷ 2 - 4  ' 通过计算得出歌词显示在正中央的位置
高亮.左边 = 底层.左边  ' 同上
盖板.左边 = 底层.左边  ' 同上
子程序名返回值类型公开备 注
__启动窗口_可否被关闭逻辑型 
结束 ()


i支持库列表   支持库注释   
iext扩展界面支持库一



效果:
截图202006141647112422..png


源码下载:
https://eyy8.lanzoup.com/iesDpdnv5he

0

主题

2368

帖子

9586

积分

VIP超级贵宾

Rank: 8Rank: 8

积分
9586
威望
198
易币
6819
贡献
0
积分
9586
UID
11903
在线时间
36 小时
注册时间
2021-1-23
发表于 2021-5-29 02:35:37 | 显示全部楼层
楼主发贴辛苦了,谢谢楼主分享!我觉得易语言吧是注册对了!
回复

使用道具 举报

0

主题

3

帖子

31

积分

初识易语言

Rank: 1

积分
31
威望
0
易币
28
贡献
0
积分
31
UID
30581
在线时间
3 小时
注册时间
2022-9-30
发表于 2023-3-5 11:47:31 | 显示全部楼层
太好了!!!!!!!!!!
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【选择右侧内容,快速回复】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

大漠插件注册码无须等1-3号

QQ|一:站内所有资源均来自互联网收集或用户上传分享,本站不拥有此类资源的版权。 作为网络服务提供者,对转载行为的发生不具备充分的监控能力。但是当版权拥有者提出侵权并出示充分的版权证明材料时,易语言吧负有移除转载作品以及停止继续传播的义务。在满足前款条件下采取移除等相应措施后不为此向原发布人承担违约责任,包括不承担因侵权不成立而给原发布人带来损害的赔偿责任。 用户免费分享产生,如果侵犯了你的权益,联系QQ:3066137757|Archiver|手机版|小黑屋|易语言吧

GMT+8, 2024-5-18 12:01 , Processed in 0.227740 second(s), 30 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表