易语言菜单栏写字源码

系统结构:proc,drawText,API_CallWindowProc,API_SetWindowLong,API_SendMessage,API_BeginPaint,API_EndPaint,API_DrawText,API_GetDC,API_GetWindowRect,API_DefWindowProc,API_GetClientRect,API_TextOut,API_ReleaseDC,API_GetMenu,API_ModifyMenu,API_GetWindowDC,API_GetMenuItemRect,API_UnionRect,API_GetMenuItemCount,API_SetBkMode,API_GetSystemMetrics,API_AdjustWindowRect,API_GetWindowLong,API_GetTextExtentPoint32,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ proc
           |  |
           |  |------ drawText
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_CallWindowProc
           |  |
           |  |---[dll]------   API_SetWindowLong
           |  |
           |  |---[dll]------   API_SendMessage
           |  |
           |  |---[dll]------   API_BeginPaint
           |  |
           |  |---[dll]------   API_EndPaint
           |  |
           |  |---[dll]------   API_DrawText
           |  |
           |  |---[dll]------   API_GetDC
           |  |
           |  |---[dll]------   API_GetWindowRect
           |  |
           |  |---[dll]------   API_DefWindowProc
           |  |
           |  |---[dll]------   API_GetClientRect
           |  |
           |  |---[dll]------   API_TextOut
           |  |
           |  |---[dll]------   API_ReleaseDC
           |  |
           |  |---[dll]------   API_GetMenu
           |  |
           |  |---[dll]------   API_ModifyMenu
           |  |
           |  |---[dll]------   API_GetWindowDC
           |  |
           |  |---[dll]------   API_GetMenuItemRect
           |  |
           |  |---[dll]------   API_UnionRect
           |  |
           |  |---[dll]------   API_GetMenuItemCount
           |  |
           |  |---[dll]------   API_SetBkMode
           |  |
           |  |---[dll]------   API_GetSystemMetrics
           |  |
           |  |---[dll]------   API_AdjustWindowRect
           |  |
           |  |---[dll]------   API_GetWindowLong
           |  |
           |  |---[dll]------   API_GetTextExtentPoint32

调用的DLL命令:

.DLL命令 API_CallWindowProc, 整数型, , "CallWindowProcA"
    .参数 程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 API_SetWindowLong, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 要置的特征, 整数型
    .参数 新特征, 子程序指针, , 仅易语言3.0支持

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

.DLL命令 API_BeginPaint, 整数型, "user32", "BeginPaint", , 准备一个画图窗　
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 API_EndPaint, 整数型, "user32", "EndPaint", , 在指定窗口中标记图画结尾标志　
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 API_DrawText, 整数型, "user32", "DrawTextA", , 将文本描绘到指定的矩形中　描绘文字的高度
    .参数 设备场景句柄, 整数型, , 欲在其中显示文字的一个设备场景的句柄
    .参数 描绘的字串, 文本型, , 欲描绘的文本字串
    .参数 描绘的字串数量, 整数型, , 欲描绘的字符数量。如果要描绘整个字串（直到空中止符），则可将这个参数设为-1
    .参数 描绘文本区域, RECT, , RECT，指定用于绘图的一个格式化矩形（采用逻辑坐标）
    .参数 格式, 整数型, , 一个标志位数组，决定了以何种形式执行绘图。参考下面总结的常数类型列表标志常数说明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命令 API_GetDC, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景　指定窗口的设备场景句柄，出错则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;  

.DLL命令 API_GetWindowRect, 整数型, "user32", "GetWindowRect", , 获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内　非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , 想获得范围矩形的那个窗口的句柄
    .参数 矩形区域, RECT, , RECT，屏幕坐标中随同窗口装载的矩形;  

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

.DLL命令 API_GetClientRect, 整数型, "user32", "GetClientRect", , 返回指定窗口客户区矩形的大小　非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲计算大小的目标窗口
    .参数 矩形区域, RECT, , RECT，指定一个矩形，用客户区域的大小载入（以像素为单位）;  

.DLL命令 API_TextOut, 整数型, "gdi32", "TextOutA", , 文本绘图函数。也请参考SetTextAlign　非零表示成功，零表示失败。会设置GetLastError
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 x, 整数型, , 绘图的起点，采用逻辑坐标
    .参数 y, 整数型, , 同上
    .参数 lpString, 文本型, , 欲描绘的字串
    .参数 nCount, 整数型, , 字串中要描绘的字符数量;  

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

.DLL命令 API_GetMenu, 整数型, "user32", "GetMenu", , 取得窗口中一个菜单的句柄　依附于指定窗口的一个菜单的句柄（如果有菜单）；否则返回零
    .参数 窗口句柄, 整数型, , 窗口句柄。对于vb，这应该是一个窗体句柄。注意可能不是子窗口的句柄;

.DLL命令 API_ModifyMenu, 整数型, "user32", "ModifyMenuA", , 改变菜单条目。在vb里这个函数做出的许多改变都会有效的执行，但不能由vb菜单对象反映出来　非零表示成功，零表示失败。会设置GetLastError
    .参数 菜单句柄, 整数型
    .参数 标识符, 整数型
    .参数 常数标志, 整数型
    .参数 新命令ID, 整数型
    .参数 标志, 整数型

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

.DLL命令 API_GetMenuItemRect, 整数型, "user32", "GetMenuItemRect", , 在一个矩形中装载指定菜单条目的屏幕坐标信息　TRUE（非零）表示成功，否则返回零。会设置GetLastError
    .参数 窗口句柄, 整数型, , 包含指定菜单或弹出式菜单的一个窗口的句柄
    .参数 菜单句柄, 整数型, , 菜单的句柄
    .参数 位置, 整数型, , 欲检查的菜单条目的位置或菜单ID
    .参数 矩形位置, RECT, , RECT，在这个结构中装载菜单条目的位置及大小（采用屏幕坐标表示）;

.DLL命令 API_UnionRect, 整数型, "user32", "UnionRect", , 这个函数会装载一个lpDestRect目标矩形，它是lpSrc1Rect和lpSrc2Rect联合起来的结果。目标矩形的所有点都同时位于两个源矩形里；也即是它们的一个交集　非零表示成功，零表示失败。会设置GetLastError
    .参数 lpDestRect, RECT, , RECT，用于容纳lpSrc1Rect和lpSrc2Rect联合运算结果的目标矩形
    .参数 lpSrc1Rect, RECT, , RECT，第一个源矩形
    .参数 lpSrc2Rect, RECT, , RECT，第二个源矩形;

.DLL命令 API_GetMenuItemCount, 整数型, "user32", "GetMenuItemCount", , 返回菜单中条目（菜单项）的数量　菜单中的条目数量；-1意味着出错。会设置GetLastError
    .参数 菜单句柄, 整数型, , 目标菜单的句柄;

.DLL命令 API_SetBkMode, 整数型, "gdi32", "SetBkMode", , 指定阴影刷子、虚线画笔以及字符中的空隙的填充方式　前一个背景模式的值
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 nBkMode, 整数型, , 下述常数之一：;OPAQUE：用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙;TRANSPARENT：透明处理，即不作上述填充;  

.DLL命令 API_GetSystemMetrics, 整数型, "user32", "GetSystemMetrics", , 返回与windows环境有关的信息　取决于具体的常数索引
    .参数 索引, 整数型

.DLL命令 API_AdjustWindowRect, 整数型, "user32", "AdjustWindowRect", , 在给定一种窗口样式的前提下，计算获得目标客户区矩形所需的窗口大小　如执行成功，则返回非零值；如失败，返回零值。会设置GetLastError
    .参数 客户区, RECT
    .参数 窗口样式, 整数型
    .参数 窗口菜单, 整数型

.DLL命令 API_GetWindowLong, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息　由nIndex决定。零表示出错。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

.DLL命令 API_GetTextExtentPoint32, 整数型, "gdi32", "GetTextExtentPoint32A", , 返回字符串大小　
    .参数 hdc, 整数型
    .参数 lpsz, 文本型
    .参数 cbString, 整数型
    .参数 lpSize, Size