易语言3D透明效果源码

系统结构:NewWindowProc,建立OPenGL组件,撤消OPenGL组件,框架初始化,绘图,Runinto,Part0,Part1,Part2,尺寸被改变,创建混合字体列表,画正方体_颜色,Ran,选择目标,创建字体,删除目标,Sleep,CallWindowProc,SetWindowLongA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ __启动窗口_空闲
           |  |
           |  |------ NewWindowProc
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |
======框架程序集
           |  |
           |  |------ 建立OPenGL组件
           |  |
           |  |------ 撤消OPenGL组件
           |  |
           |  |------ 框架初始化
           |  |
           |  |------ 绘图
           |  |
           |  |------ Runinto
           |  |
           |  |------ Part0
           |  |
           |  |------ Part1
           |  |
           |  |------ Part2
           |  |
           |  |------ 尺寸被改变
           |  |
           |  |------ 创建混合字体列表
           |  |
           |  |
======功能程序集
           |  |
           |  |------ 画正方体_颜色
           |  |
           |  |------ Ran
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   选择目标
           |  |
           |  |---[dll]------   创建字体
           |  |
           |  |---[dll]------   删除目标
           |  |
           |  |---[dll]------   Sleep
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   SetWindowLongA

调用的DLL命令:

.DLL命令 选择目标, 整数型, , "SelectObject"
    .参数 设备句柄
    .参数 目标号

.DLL命令 创建字体, 整数型, , "CreateFontA"
    .参数 高度
    .参数 宽度
    .参数 倾斜角度
    .参数 后仰角度
    .参数 重量
    .参数 斜体
    .参数 下划线
    .参数 StrikeOut字体
    .参数 字符集
    .参数 输出精度
    .参数 裁剪精度
    .参数 输出质量
    .参数 定位
    .参数 字体名称, 文本型, , 可以为空

.DLL命令 删除目标, 逻辑型, , "DeleteObject"
    .参数 目标号

.DLL命令 Sleep
    .参数 t

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA", 公开, 该函数改变指定窗口的属性．函数也将指定的一个32位值设置在窗口的额外存储空间的指定偏移位置
    .参数 hWnd, 整数型, , 窗口句柄及间接给出的窗口所属的类
    .参数 nIndex, 整数型, , 定将设定的大于等于0的偏移值。有效值的范围从0到额外类的存储空间的字节数-4：例如若指定了12位或多于12位的额外类存储空间，则应设为第三个32位整数的索引位8。要设置其他任何值，可以指定下面值之一，GWL_EXSTYLE：设定一个新的扩展风格，GWL_STYLE：设定一个新的窗口风格，GWL_WNDPROC：为窗口过程设定一个新的地址，GWL_ID：设置一个新的窗口标识符，GWL_HINSTANCE：设置一个新的应用程序实例句柄，GWL_USERDATA：设置与窗口有关的32位值。每个窗口均有一个由创建该窗口的应用程序使用的32位值，当hWnd参数标识了一个对话框时，也可使用下列值，DWL_DLGPROC：设置对话框过程的新地址，DWL_MSGRESULT：设置在对话框过程中处理的消息的返回值，DWL_USER：设置的应用程序私有的新的额外信息，例如一个句柄或指针
    .参数 dwNewLong, 子程序指针, , 指定的替换值