易语言API创建表格源码

系统结构:十六到十,取低16位,取高16位,GridCreate,Grid程序,GetStockObject,LoadCursor,RegisterClassEx,CreateWindowEx,DefWindowProc,MoveWindow,ReleaseDC,GetWindowDC,SetBkColor,SetTextColor,SelectObject,CreatePen,Rectangle,FillRect,CreateSolidBrush,DrawText,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 十六到十
           |  |
           |  |------ 取低16位
           |  |
           |  |------ 取高16位
           |  |
           |  |------ GridCreate
           |  |
           |  |------ __Grid_画表格
           |  |
           |  |------ Grid程序
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetStockObject
           |  |
           |  |---[dll]------   LoadCursor
           |  |
           |  |---[dll]------   RegisterClassEx
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   DefWindowProc
           |  |
           |  |---[dll]------   MoveWindow
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   GetWindowDC
           |  |
           |  |---[dll]------   SetBkColor
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   CreatePen
           |  |
           |  |---[dll]------   Rectangle
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   DrawText

调用的DLL命令:

.DLL命令 GetStockObject, 整数型, "gdi32.dll", "GetStockObject", , 获取系统提供的背景刷　指向指定对象的一个句柄。零表示出错
    .参数 类型, 整数型

.DLL命令 LoadCursor, 整数型, "user32.dll", "LoadCursorA", , 载入鼠标指针
    .参数 实例句柄, 整数型
    .参数 鼠标指针标识, 整数型

.DLL命令 RegisterClassEx, 整数型, "user32.dll", "RegisterClassExA"
    .参数 pcWndClassEx, WNDCLASSEX, 传址

.DLL命令 CreateWindowEx, 整数型, "user32.dll", "CreateWindowExA"
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型
    .参数 dwStyle, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hWndParent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lpParam, 整数型

.DLL命令 DefWindowProc, 整数型, "user32.dll", "DefWindowProcA", , 调用缺省窗口过程　
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 MoveWindow, 整数型, "user32.dll", "MoveWindow", , 移动窗口
    .参数 窗口句柄, 整数型, , hwnd，欲移动窗口的句柄
    .参数 左侧位置, 整数型, , x，窗口新的左侧位置
    .参数 顶部位置, 整数型, , y，窗口新的顶部位置
    .参数 新宽度, 整数型, , nWidth，窗口的新宽度
    .参数 新高度, 整数型, , nHeight，窗口的高宽度
    .参数 是否重画, 逻辑型, , bRepaint，如窗口此时应重画，则设为TRUE（非零）

.DLL命令 ReleaseDC, 整数型, "user32.dll", "ReleaseDC", , 释放设备场景
    .参数 窗口句柄, 整数型
    .参数 设备句柄, 整数型

.DLL命令 GetWindowDC, 整数型, "user32.dll", "GetWindowDC", , 获取整个窗口（包括边框、滚动条、标题栏、菜单等）的设备场景　执行成功为窗口设备场景，失败则为0
    .参数 窗口句柄, 整数型, , 将获取其设备场景的窗口;  

.DLL命令 SetBkColor, 整数型, "gdi32.dll", "SetBkColor"
    .参数 hdc, 整数型
    .参数 crColor, 整数型

.DLL命令 SetTextColor, 整数型, "gdi32.dll", "SetTextColor", , 置文本颜色,设置当前文本颜色。这种颜色也称为“前景色”　文本色的前一个RGB颜色设定。CLR_INVALID表示失败。会设置GetLastError
    .参数 设备场景, 整数型, , 设备场景的句柄
    .参数 颜色, 整数型, , 新的文本色在VB里使用如改变了这个设置，注意恢复VB窗体或控件原始的文本颜色;

.DLL命令 SelectObject, 整数型, "gdi32.dll", "SelectObject", , 选入对象,每个设备场景都可能有选入其中的图形对象。其中包括位图、刷子、字体、画笔以及区域等等
    .参数 设备场景句柄, 整数型, , 一个设备场景的句柄
    .参数 对象句柄, 整数型, , 一个画笔、位图、刷子、字体或区域的句柄;  

.DLL命令 CreatePen, 整数型, "gdi32.dll", "CreatePen", , 创建画笔。用指定的样式、宽度和颜色创建一个画笔　如函数执行成功，就返回指向新画笔的一个句柄；否则返回零
    .参数 风格, 整数型
    .参数 宽度, 整数型
    .参数 颜色, 整数型

.DLL命令 Rectangle, 整数型, "gdi32.dll", "Rectangle", , 用当前选定的画笔描绘矩形，并用当前选定的刷子进行填充　非零表示成功，零表示失败。会设置GetLastError
    .参数 设备场景句柄, 整数型, , 设备场景的句柄
    .参数 左上角横坐标, 整数型, , 指定矩形左上角位置
    .参数 左上角纵坐标, 整数型, , 同上
    .参数 右下角横坐标, 整数型, , 指定矩形右下角位置
    .参数 右下角纵坐标, 整数型, , 同上;

.DLL命令 FillRect, 整数型, "user32.dll", "FillRect", , 用指定的刷子填充一个矩形  非零表示成功，零表示失败。会设置GetLastError
    .参数 设备场景, 整数型, , 设备场景的句柄
    .参数 填充区域, RECT, , RECT，对填充区域进行描述的一个矩形，采用逻辑坐标
    .参数 刷子句柄, 整数型, , 欲使用的刷子的句柄;

.DLL命令 CreateSolidBrush, 整数型, , "CreateSolidBrush", , 创建颜色刷子
    .参数 颜色, 整数型

.DLL命令 DrawText, 整数型, "user32.dll", "DrawTextA", , 返回文本高度
    .参数 hdc, 整数型, , 设备句柄
    .参数 lpStr, 文本型, , 文本
    .参数 nCount, 整数型, , 字符个数
    .参数 lpRect, RECT, , 矩形
    .参数 wFormat, 整数型, , 格式 DT_