易语言HTML文本框源码

系统结构:Unicode转Ansi,Ansi转Unicode,输出调试字节集,创建,移动A,移动W,取编码类型,置文本内容A,取文本内容A,加入文本A,清空内容A,置文本内容W,取文本内容W,加入文本W,清空内容W,Atl控件_初始化,Atl控件_绑定对象,WideCharToMultiByte,MultiByteToWideChar,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ Unicode转Ansi
           |  |
           |  |------ Ansi转Unicode
           |  |
           |  |------ 输出调试字节集
           |  |
           |  |
======HTML编辑框
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 移动A
           |  |
           |  |------ 移动W
           |  |
           |  |------ 取编码类型
           |  |
           |  |------ 置文本内容A
           |  |
           |  |------ 取文本内容A
           |  |
           |  |------ 加入文本A
           |  |
           |  |------ 清空内容A
           |  |
           |  |------ 置文本内容W
           |  |
           |  |------ 取文本内容W
           |  |
           |  |------ 加入文本W
           |  |
           |  |------ 清空内容W
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮6_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _按钮8_被单击
           |  |
           |  |------ _按钮7_被单击
           |  |
           |  |------ _按钮9_被单击
           |  |
           |  |------ _按钮10_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _创建窗口
           |  |
           |  |---[dll]------   _移动窗口
           |  |
           |  |---[dll]------   Atl控件_初始化
           |  |
           |  |---[dll]------   Atl控件_绑定对象
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   MultiByteToWideChar

调用的DLL命令:

.DLL命令 _创建窗口, 整数型, "user32.dll", "CreateWindowExA"
    .参数 扩展风格, 整数型
    .参数 类名, 文本型
    .参数 标题, 文本型
    .参数 风格, 整数型
    .参数 左边, 整数型
    .参数 顶边, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型
    .参数 父窗口句柄, 整数型, , 没有就写0
    .参数 菜单句柄, 整数型
    .参数 模块句柄, 整数型
    .参数 参数, 整数型

.DLL命令 _移动窗口, 整数型, "user32.dll", "MoveWindow", , 如果函数成功，返回值为非零；如果函数失败，返回值为零。
    .参数 hwnd, 整数型
    .参数 x, 整数型, , 窗口新的左侧位置
    .参数 y, 整数型, , 窗口新的顶部位置
    .参数 dwWidth, 整数型, , 窗口的新宽度
    .参数 dwHeight, 整数型, , 窗口的新高度
    .参数 dwRePaint, 逻辑型, , 是否刷新窗口

.DLL命令 Atl控件_初始化, 整数型, "atl.dll", "AtlAxWinInit", , 初始化控件宿主代码。 

.DLL命令 Atl控件_绑定对象, 整数型, "atl.dll", "AtlAxGetControl", , 创建一个宿主对象，将它连接到提供的窗口，然后附加现有控件。
    .参数 控件句柄, 整数型
    .参数 对象变量, 对象, , 此对象将与控件关联

.DLL命令 WideCharToMultiByte, 整数型, "kernel32.dll", "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 文本型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 MultiByteToWideChar, 整数型, "Kernel32.dll", "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型