易语言把FreeBasic的代码转换成NiceBasic代码源码

易语言把FreeBasic的代码转换成NiceBasic代码

系统结构:FB2NB,子程序1,创建,取文本,替换,搜索全部,取匹配数量,取匹配文本,取子匹配文本,API_透明窗口,API_设置窗口信息,API_发送消息,

======窗口程序集1
| |
| |------ __启动窗口_创建完毕
| |
| |------ __启动窗口_尺寸被改变
| |
| |------ _编辑框1_内容被改变
| |
| |------ FB2NB
| |
| |------ _编辑框1_获得焦点
| |
| |------ _编辑框2_获得焦点
| |
| |------ 子程序1
| |
| |
======彗星正则表达式类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 创建
| |
| |------ 取文本
| |
| |------ 替换
| |
| |------ 搜索全部
| |
| |------ 取匹配数量
| |
| |------ 取匹配文本
| |
| |------ 取子匹配文本
| |
| |
======调用的Dll
| |
| |---[dll]------ API_透明窗口
| |
| |---[dll]------ API_设置窗口信息
| |
| |---[dll]------ API_发送消息

调用的DLL命令:

.DLL命令 API_透明窗口, 逻辑型, , "SetLayeredWindowAttributes", , 成功返回真，否则返回假
.参数 hwnd, 整数型, , 透明窗体的句柄
.参数 crKey, 整数型, , 颜色值
.参数 bAlpha, 字节型, , 透明度，取值范围是[0,255]
.参数 dwFlags, 整数型, , 透明方式：LWA_ALPHA(2)时，crKey参数无效，bAlpha参数有效 || LWA_COLORKEY(1)时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明

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

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