透明背景不闪烁的滚动字幕源码

轨迹轨迹

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集宽度	整数型
是否刷新	逻辑型

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

变量名	类 型	静态	数组	备 注
原始样式	整数型

' 设置窗口双缓冲
原始样式 ＝ 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	扩展界面支持库一

.版本 2<br /> .支持库 const<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集宽度, 整数型<br /> .程序集变量 是否刷新, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 原始样式, 整数型<br /> <br /> ' 设置窗口双缓冲<br /> 原始样式 ＝ GetWindowLongA (_启动窗口.取窗口句柄 (), #GWL_EXSTYLE)<br /> SetWindowLongA (_启动窗口.取窗口句柄 (), #GWL_EXSTYLE, 位或 (原始样式, #WS_EX_COMPOSITED))<br /> ' 设置标签双缓冲<br /> SetWindowLongA (_启动窗口.取窗口句柄 (), #GWL_STYLE, 位或 (GetWindowLongA (_启动窗口.取窗口句柄 (), #GWL_STYLE), #WS_CLIPCHILDREN))<br /> SetWindowLongA (透明标签公告.取窗口句柄 (), #GWL_EXSTYLE, 位或 (GetWindowLongA (透明标签公告.取窗口句柄 (), #GWL_EXSTYLE), #WS_EX_LAYERED))<br /> 透明标签公告.标题 ＝ 到文本 ({ 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 })<br /> 透明标签公告.宽度 ＝ 取文本长度 (透明标签公告.标题) × 18<br /> 集宽度 ＝ _启动窗口.宽度<br /> 时钟1.时钟周期 ＝ 25<br /> 是否刷新 ＝ 真<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 上次时间, 整数型, 静态<br /> <br /> .如果真 (取启动时间 () － 上次时间 ＜ 25)<br />     返回 ()<br /> .如果真结束<br /> 上次时间 ＝ 取启动时间 ()<br /> <br /> .如果真 (是否刷新)<br />     是否刷新 ＝ 假<br />     .如果真 (集宽度 ≤ －透明标签公告.宽度)<br />         集宽度 ＝ _启动窗口.宽度<br />     .如果真结束<br /> <br />     ' 锁定窗口绘制<br />     LockWindowUpdate (_启动窗口.取窗口句柄 ())<br /> <br />     ' 使用SWP_NOREDRAW避免中间重绘<br />     移动控件 (透明标签公告.取窗口句柄 (), 集宽度, 透明标签公告.顶边)<br /> <br />     LockWindowUpdate (0)<br /> <br />     集宽度 ＝ 集宽度 － 2<br /> <br />     是否刷新 ＝ 真<br /> <br /> .如果真结束<br /> <br /> ' 自定义移动控件函数<br /> <br /> .子程序 移动控件, , , 使用DeferWindowPos实现批量操作<br /> .参数 hWnd<br /> .参数 x<br /> .参数 y<br /> .局部变量 hdwp, 整数型<br /> <br /> hdwp ＝ BeginDeferWindowPos (1)<br /> <br /> hdwp ＝ DeferWindowPos (hdwp, hWnd, 0, x, y, 0, 0, 位或 (#SWP_NOSIZE, #SWP_NOZORDER, #SWP_NOACTIVATE, #SWP_NOCOPYBITS))<br /> <br /> EndDeferWindowPos (hdwp)

反而让国人

发给他人烦得很

cdqpx

太棒了，谢谢分享

year1970

感谢分享

ttggnn

感谢分享

轨迹轨迹

我們還太嫩 发表于 2025-3-10 18:09
大佬 测试了还是会闪

时钟改  25  30再看看

我們還太嫩

大佬 测试了还是会闪

胖子葛格

感谢大神分享~！

何浩文

支持开源~！感谢分享

1184798949

感谢分享