易语言虚表列表框源码

系统结构:虚表自绘函数,虚表绘制表项,画文本W,画背景色,取项目文本W,读内存,到十六I32_W,虚表置项目总数,虚表插入列_W,A2U,WndRoc,控件函数,RtlMoveMemory_DRAWITEMSTRUCT,DrawTextW,SetTextColor,CreateSolidBrush,FillRect,DeleteObject,wvnsprintf,wvsprintfW,ReadProcessMemory,CreateFontW,MulDiv,GetDeviceCaps,GetDC,ReleaseDC,CreateWindowExW,Memory_NMHDR_消息,SendMessageW_LVCOLUMN,MultiByteToWideChar,lstrlenW,SendMessageW,SetWindowLongW,CallWindowProcW,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 虚表自绘函数
           |  |
           |  |------ 虚表绘制表项
           |  |
           |  |------ 画文本W
           |  |
           |  |------ 画背景色
           |  |
           |  |------ 取项目文本W
           |  |
           |  |------ 读内存
           |  |
           |  |------ 到十六I32_W
           |  |
           |  |------ 虚表置项目总数
           |  |
           |  |------ 虚表插入列_W
           |  |
           |  |------ A2U
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ WndRoc
           |  |
           |  |------ 控件函数
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   RtlMoveMemory_DRAWITEMSTRUCT
           |  |
           |  |---[dll]------   DrawTextW
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   wvnsprintf
           |  |
           |  |---[dll]------   wvsprintfW
           |  |
           |  |---[dll]------   ReadProcessMemory
           |  |
           |  |---[dll]------   CreateFontW
           |  |
           |  |---[dll]------   MulDiv
           |  |
           |  |---[dll]------   GetDeviceCaps
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   CreateWindowExW
           |  |
           |  |---[dll]------   Memory_NMHDR_消息
           |  |
           |  |---[dll]------   SendMessageW_LVCOLUMN
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   lstrlenW
           |  |
           |  |---[dll]------   SendMessageW
           |  |
           |  |---[dll]------   SetWindowLongW
           |  |
           |  |---[dll]------   CallWindowProcW

调用的DLL命令:

.DLL命令 RtlMoveMemory_DRAWITEMSTRUCT, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, DRAWITEMSTRUCT
    .参数 Source, 整数型
    .参数 Length48, 整数型

.DLL命令 DrawTextW, 整数型, "user32", "DrawTextW", , 将文本描绘到指定的矩形中  描绘文字的高度
    .参数 hdc, 整数型, , 欲在其中显示文字的一个设备场景的句柄
    .参数 lpStr, 字节集, , 欲描绘的文本字串
    .参数 nCount, 整数型, , 欲描绘的字符数量。如果要描绘整个字串（直到空中止符），则可将这个参数设为-1
    .参数 lpRect, RECT, , RECT，指定用于绘图的一个格式化矩形（采用逻辑坐标）
    .参数 wFormat, 整数型, , 一个标志位数组，决定了以何种形式执行绘图。参考下面总结的常数类型列表标志常数说明DT_BOTTOM必须同时指定DT_SINGLE。指示文本对齐格式化矩形的底边DT_CALCRECT象下面这样计算格式化矩形：多行绘图时矩形的底边根据需要进行延展，以便容下所有文字；单行绘图时，延展矩形的右侧。不描绘文字。由lpRect参数指定的矩形会载入计算出来的值DT_CENTER文本垂直居中DT_EXPANDTABS描绘文字的时候，对制表站进行扩展。默认的制表站间距是8个字符。但是，可用DT_TABSTOP标志改变这项设定DT_EXTERNALLEADING计算文本行高度的时候，使用当前字体的外部间距属性（the external leading attribute）DT_LEFT文本左对齐DT_NOCLIP描绘文字时不剪切到指定的矩形DT_NOPREFIX通常，函数认为 & 字符表示应为下一个字符加上下划线。该标志禁止这种行为DT_RIGHT文本右对齐DT_SINGLELINE只画单行DT_TABSTOP指定新的制表站间距，采用这个整数的高8位DT_TOP必须同时指定DT_SINGLE。指示文本对齐格式化矩形的顶部DT_VCENTER必须同时指定DT_SINGLE。指示文本对齐格式化矩形的中部DT_WORDBREAK进行自动换行。如用SetTextAlign函数设置了TA_UPDATECP标志，这里的设置则无效;

.DLL命令 SetTextColor, 整数型, "gdi32", "SetTextColor", , 设置当前文本颜色。这种颜色也称为“前景色”  文本色的前一个RGB颜色设定。CLR_INVALID表示失败。会设置GetLastError
    .参数 hdc, 整数型
    .参数 crColor, 整数型

.DLL命令 CreateSolidBrush, 整数型, "gdi32", "CreateSolidBrush", , 用纯色创建一个刷子  如执行成功，返回新刷子的一个句柄；否则返回零
    .参数 crColor, 整数型, , 数字的RGB彩色;

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

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放  非零表示成功，零表示失败
    .参数 hObject, 整数型, , 一个GDI对象的句柄;

.DLL命令 wvnsprintf, 整数型, "SHLWAPI.DLL", "wvnsprintf"
    .参数 lpOut, 文本型
    .参数 cchLimitIn, 整数型
    .参数 lpFmt, 文本型
    .参数 arglist, 文本型

.DLL命令 wvsprintfW, 整数型, "user32.dll", "wvsprintfW", , 返回转换后的长度http://msdn.microsoft.com/en-us/library/ms647550(VS.85).aspx
    .参数 文本缓冲lpstr1024, 字节集
    .参数 格式lpcstr, 字节集, , 【有符号%d】【无符号%u】【%I64u无符号长整数】【加零%010u保证10位】【加空格%10u保证10位】【十六进制xX】【加0x则%#x】【Cc字符到文本，小写不排错，仅字节】
    .参数 待转数值OptionalArguments, 长整数型, 传址 数组

.DLL命令 ReadProcessMemory, 整数型, "kernel32.dll", "ReadProcessMemory", , ReadProcessMemory
    .参数 进程句柄, 整数型, , hProcess , 进程的句柄
    .参数 内存地址, 整数型, , lpBaseAddress,内存地址
    .参数 读入数据, 字节集, 传址, lpBuffer, 数据指针 可以为整数型
    .参数 数据的长度, 整数型, , nSize,长度   取字节集长度 (数据)
    .参数 返回实际数据的长度, 整数型, 传址, lpNumberOfBytesWritten实际写出长度  一般填写ReadProcessMemory返回值

.DLL命令 CreateFontW, 整数型, , "CreateFontW", , 创建逻辑字体，执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError
    .参数 nHeight, 整数型, , 所创建字体的字符高度
    .参数 nWidth, 整数型, , 字体的字符平均宽度
    .参数 nEscapement, 整数型, , 字符输出方向与水平向右的方向所成角度，以0.1度为单位
    .参数 nOrientation, 整数型, , 字符与基线的角度，以0.1度为单位
    .参数 nWeight, 整数型, , 字符颜色的深浅度
    .参数 bItalic, 字节型, , 斜体属性标志(0:正常字体，非0:斜体)
    .参数 bUnderline, 字节型, , 下划线属性标志(0:无下划线，非0:有下划线)
    .参数 cStrikeOut, 字节型, , 删除线属性标志(0:无删除线，非0:有删除线) 
    .参数 nCharSet, 字节型, , 字符集标识0:ANSI字符集，1:系统缺省字符集
    .参数 nOutPrecision, 字节型, , 输出精度
    .参数 nClipPrecision, 字节型, , 剪切精度
    .参数 nQuality, 字节型, , 输出品质
    .参数 nPitchAndFamily, 字节型, , 字符间距
    .参数 lpszFacename, 字节集, , 现有系统TrueType字体名称

.DLL命令 MulDiv, 整数型, "kernel32", "MulDiv", , 将两数相乘并并除以结果
    .参数 nNumber, 整数型
    .参数 nNumerator, 整数型
    .参数 nDenominator, 整数型

.DLL命令 GetDeviceCaps, 整数型, "gdi32", "GetDeviceCaps", , 根据指定设备场景代表的设备的功能返回信息  参见GetDeviceCaps索引表
    .参数 hdc, 整数型, , 要查询其设备的信息的设备场景
    .参数 nIndex, 整数型, , 根据GetDeviceCaps索引表所示常数确定返回信息的类型;

.DLL命令 GetDC, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景  指定窗口的设备场景句柄，出错则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 ReleaseDC, 整数型, "user32", "ReleaseDC", , 释放由调用GetDC或GetWindowDC函数获取的指定设备场景。它对类或私有设备场景无效（但这样的调用不会造成损害）  执行成功为1，否则为0
    .参数 hwnd, 整数型, , 要释放的设备场景相关的窗口句柄
    .参数 hdc, 整数型, , 要释放的设备场景句柄;

.DLL命令 CreateWindowExW, 整数型, "user32", "CreateWindowExW", , 创建失败返回0 http://msdn.microsoft.com/en-us/library/windows/desktop/ms632680(v=vs.85).aspx
    .参数 额外风格, 整数型, , dwExStyle 
    .参数 窗口类名, 字节集, , lpClassName 窗口类名必须与注册窗口的类名保持一致
    .参数 窗口标题, 字节集, , lpWindowName
    .参数 窗口风格, 整数型, , dwStyle
    .参数 窗口左边, 整数型, , x
    .参数 窗口顶边, 整数型, , y
    .参数 窗口宽度, 整数型, , nWidth
    .参数 窗口高度, 整数型, , nHeight
    .参数 父窗口句柄, 整数型, , hWndParent 窗口是否有父窗口,设为0则使用桌面为父窗口
    .参数 菜单或ID, 整数型, , hMenu
    .参数 回调句柄, 整数型, , hInstance
    .参数 保留参数, 整数型, , lpParam

.DLL命令 Memory_NMHDR_消息, , , "RtlMoveMemory", 公开
    .参数 结构体, NMHDR, , Destination
    .参数 地址, 整数型, , Source
    .参数 大小12, 整数型, , cbCopy

.DLL命令 SendMessageW_LVCOLUMN, 整数型, "user32", "SendMessageW", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, LVCOLUMN, 传址, 具体取决于消息;

.DLL命令 MultiByteToWideChar, 整数型, "kernel32", "MultiByteToWideChar", , 将多媒体字符串映像为通配字符串
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 lstrlenW, 整数型, "kernel32", "lstrlenW", , 返回字符串中字符数
    .参数 lpString, 字节集

.DLL命令 SendMessageW, 整数型, "user32", "SendMessageW", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, 整数型, , 具体取决于消息;

.DLL命令 SetWindowLongW, 整数型, "user32", "SetWindowLongW", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

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