精易论坛

标题: 透明背景不闪烁的滚动字幕源码 [打印本页]

作者: 轨迹轨迹    时间: 2025-3-10 09:02
标题: 透明背景不闪烁的滚动字幕源码
本帖最后由 轨迹轨迹 于 2025-3-10 21:22 编辑
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
集宽度整数型  
是否刷新逻辑型  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
变量名类 型静态数组备 注
原始样式整数型 
' 设置窗口双缓冲
原始样式 = GetWindowLongA (_启动窗口.取窗口句柄 (), #GWL_EXSTYLE )
SetWindowLongA (_启动窗口.取窗口句柄 (), #GWL_EXSTYLE, 位或 (原始样式, #WS_EX_COMPOSITED ))
' 设置标签双缓冲
SetWindowLongA (_启动窗口.取窗口句柄 (), #GWL_STYLE, 位或 (GetWindowLongA (_启动窗口.取窗口句柄 (), #GWL_STYLE ), #WS_CLIPCHILDREN ))
SetWindowLongA (透明标签公告.取窗口句柄 (), #GWL_EXSTYLE, 位或 (GetWindowLongA (透明标签公告.取窗口句柄 (), #GWL_EXSTYLE ), #WS_EX_LAYERED ))
透明标签公告.标题 = 到文本 ({ 185, 171, 184, 230, 163, 186, 190, 173, 185, 253, 209, 207, 208, 204, 191, 189, 180, 242, 68, 101, 101, 112, 83, 101, 101, 107, 45, 86, 200, 253, 204, 236, 163, 172, 214, 213, 211, 218, 178, 187, 201, 193, 203, 184, 193, 203, 163, 172, 215, 247, 213, 223, 163, 186, 57, 50, 56, 56, 51, 53, 52, 49, 57 })
透明标签公告.宽度 = 取文本长度 (透明标签公告.标题) × 18
集宽度 = _启动窗口.宽度
时钟1.时钟周期 = 25
是否刷新 = 真
子程序名返回值类型公开备 注
_时钟1_周期事件  
变量名类 型静态数组备 注
上次时间整数型 
如果真 (取启动时间 () - 上次时间 < 25)
返回 ()
上次时间 = 取启动时间 ()
如果真 (是否刷新)
是否刷新 = 假
如果真 (集宽度 ≤ -透明标签公告.宽度)
集宽度 = _启动窗口.宽度

' 锁定窗口绘制
LockWindowUpdate (_启动窗口.取窗口句柄 ())
' 使用SWP_NOREDRAW避免中间重绘
移动控件 (透明标签公告.取窗口句柄 (), 集宽度, 透明标签公告.顶边)
LockWindowUpdate (0)
集宽度 = 集宽度 - 2
是否刷新 = 真

' 自定义移动控件函数
子程序名返回值类型公开备 注
移动控件 使用DeferWindowPos实现批量操作
参数名类 型参考可空数组备 注
hWnd 
x 
y 
变量名类 型静态数组备 注
hdwp整数型 
hdwp = BeginDeferWindowPos (1)
hdwp = DeferWindowPos (hdwp, hWnd, 0, x, y, 0, 0, 位或 ( #SWP_NOSIZE, #SWP_NOZORDER, #SWP_NOACTIVATE, #SWP_NOCOPYBITS ))
EndDeferWindowPos (hdwp)


i支持库列表   支持库注释   
const(未知支持库)
iext扩展界面支持库一

1741612898663.jpg (335.22 KB, 下载次数: 0)

如果还有轻微的,可以更改时钟为20 到30

如果还有轻微的,可以更改时钟为20  到30

滚动字幕不闪烁源码.e

809.89 KB, 下载次数: 53, 下载积分: 精币 -2 枚

滚动字幕不闪烁


作者: 是可可吖    时间: 2025-3-10 10:21
没有效果图啊
作者: zhaode2888    时间: 2025-3-10 12:34
感谢分享
作者: 薛城    时间: 2025-3-10 12:38
纯靠想象
作者: happyweeks365    时间: 2025-3-10 14:23
666666666666666666666
作者: kyo9766    时间: 2025-3-10 14:25
直接上代码好评啊,感谢分享
作者: pipicool    时间: 2025-3-10 15:00
学习一下
作者: 轨迹轨迹    时间: 2025-3-10 15:12
薛城 发表于 2025-3-10 12:38
纯靠想象

就像你评论一样靠想象,你打开看了么
作者: 皮皮君    时间: 2025-3-10 15:33
学习学习
作者: 1184798949    时间: 2025-3-10 15:52
感谢分享
作者: 何浩文    时间: 2025-3-10 16:31
支持开源~!感谢分享
作者: 胖子葛格    时间: 2025-3-10 16:39
感谢大神分享~!
作者: 我們還太嫩    时间: 2025-3-10 18:09
大佬 测试了还是会闪
作者: 轨迹轨迹    时间: 2025-3-10 20:50
我們還太嫩 发表于 2025-3-10 18:09
大佬 测试了还是会闪

时钟改  25  30再看看
作者: ttggnn    时间: 2025-3-10 21:04

感谢分享
作者: year1970    时间: 2025-3-12 07:56
感谢分享
作者: cdqpx    时间: 2025-3-12 12:06
太棒了,谢谢分享
作者: 反而让国人    时间: 2025-4-23 13:34
发给他人烦得很
作者: 静赏幽兰    时间: 2025-5-3 16:21
闪烁问题好解决,帧率不稳定(平移会抖动)才是比较难解决的,建议用D2D绘制,然后开启同步帧,这样效果才是最好的
作者: maxsky    时间: 2025-5-6 07:37
感谢分享
作者: ferrisy    时间: 2025-6-4 11:57
,谢谢分享




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4