易语言制作屏保源码

制作屏保源码

.版本 2

.子程序 _窗口1_创建完毕
.局部变量 窗口样式, 整数型
.局部变量 abc, lpRect

图片框1.图片 ＝ #a1
时钟1.时钟周期 ＝ 2000
.如果 (预览是否为真 ＝ 假)
    本窗口句柄 ＝ 窗口1.取窗口句柄 ()
    窗口样式 ＝ GetWindowLong (本窗口句柄, -16)
    ' 窗口样式 ＝ 窗口样式 或 1073741824
    SetWindowLong (本窗口句柄, -16, 窗口样式)
    SetWindowLong (本窗口句柄, -16, 1073741824)
    SetParent (本窗口句柄, 小电视句柄)
    GetClientRect (小电视句柄, abc)
    SetWindowPos (本窗口句柄, 0, 0, 0, abc.右边, abc.下边, 4)
    SetWindowPos (本窗口句柄, 0, 0, 0, abc.右边, abc.下边, 16)
    SetWindowPos (本窗口句柄, 0, 0, 0, abc.右边, abc.下边, 64)
    ' 本源码来自三叶资源网(www.sanye.cx)
.否则
    隐藏鼠标 (假)
    连续赋值 (0, 窗口1.左边, 窗口1.顶边)
    窗口1.宽度 ＝ 取屏幕宽度 ()
    窗口1.高度 ＝ 取屏幕高度 ()
    当前信息 ()
.如果结束

@易语言学习论坛