易语言七夕表白源码

系统结构:取文本行数,窗口_透明效果,读入资源配置,效果,玫瑰闪烁,SetWindowLongA,GetWindowLongA,SetLayeredWindowAttributes,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 取文本行数
           |  |
           |  |------ 窗口_透明效果
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 读入资源配置
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |------ 效果
           |  |
           |  |------ 玫瑰闪烁
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _图片框_背景_被双击
           |  |
           |  |------ _图形按钮1_被单击
           |  |
           |  |------ _图片框_背景_鼠标右键被放开
           |  |
           |  |------ _退出程序_被选择
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _字幕窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   GetWindowLongA
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes

调用的DLL命令:

.DLL命令 SetWindowLongA, 整数型, , "SetWindowLongA"
    .参数 hwmd, 整数型
    .参数 nlndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 GetWindowLongA, 整数型, , "GetWindowLongA", , 获取窗口信息
    .参数 Hwnd, 整数型
    .参数 nlndex, 整数型

.DLL命令 SetLayeredWindowAttributes, 整数型, , "SetLayeredWindowAttributes", 公开, 设置透明度
    .参数 hWnd, 整数型
    .参数 crKey, 整数型
    .参数 bAlpha, 整数型
    .参数 dwFlags, 整数型