易语言实现转圈的特效源码

.版本 2
.支持库 iext
.支持库 EThread

.程序集 窗口程序集_启动窗口
.程序集变量 stp1, 整数型
.程序集变量 spt3, 整数型

.子程序 _时钟1_周期事件

picture.标题 ＝ W2A (到字节集 (stp1))
stp1 ＝ stp1 ＋ 1
.如果真 (stp1 ＞ 57547)
    stp1 ＝ 57426
.如果真结束


.子程序 __启动窗口_创建完毕

启动线程 (&子程序_启动初始化, , )

.子程序 子程序_启动初始化
.局部变量 cFonts

spt3 ＝ AddFontMemResourceEx (#font, 取字节集长度 (#font), 0, cFonts)
stp1 ＝ 57426  ' 57547
picture.字体.字体名称 ＝ “Setup”
置入代码 ({ 100, 161, 48, 0, 0, 0, 139, 64, 24, 139, 216, 139, 67, 12, 131, 248, 2, 117, 14, 139, 67, 16, 133, 192, 117, 7, 184, 0, 0, 0, 0, 235, 5, 184, 1, 0, 0, 0, 201, 195 })
选择 (NtSetDebugFilterState (0, 0, 1) ＝ 0, 真, 假)

.子程序 W2A, 文本型, 公开, 将Unicode转成Ansi
.参数 参数_Unicode文本, 字节集
.局部变量 Ansi长度, 整数型
.局部变量 返回值, 文本型

Ansi长度 ＝ WideCharToMultiByte (0, 0, 参数_Unicode文本, -1, “”, 0, 0, 0)
返回值 ＝ 取空白文本 (Ansi长度)
WideCharToMultiByte (0, 0, 参数_Unicode文本, -1, 返回值, Ansi长度, 0, 0)
返回 (返回值)

@jwj52