易语言自绘皮肤学习教程源码
系统结构:取位高,取位低,是否在矩形,皮肤创建,取窗口尺寸,初始化按钮,窗口回调事件,画_背景,画_控制按钮,鼠标被按下,鼠标被提起,鼠标被移动,按钮事件,设置指针,调整大小,尺寸被改变,DeleteObject,GetDC,DeleteDC,StretchBlt,FillRect,CreateSolidBrush,发送命令_,API_SetCursor,GdiTransparentBlt,API_LoadCursor,SetWindowlong,GetWindowRect,
======程序集_启动
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======程序集_公用
| |
| |------ 取位高
| |
| |------ 取位低
| |
| |------ 是否在矩形
| |
| |
======程序集_皮肤
| |
| |------ 皮肤创建
| |
| |------ 取窗口尺寸
| |
| |------ 初始化按钮
| |
| |------ 窗口回调事件
| |
| |------ 画_背景
| |
| |------ 画_控制按钮
| |
| |------ 鼠标被按下
| |
| |------ 鼠标被提起
| |
| |------ 鼠标被移动
| |
| |------ 按钮事件
| |
| |------ 设置指针
| |
| |------ 调整大小
| |
| |------ 尺寸被改变
| |
| |
======窗口程序集1
| |
| |------ _窗口_测试_创建完毕
| |
| |
======调用的Dll
| |
| |---[dll]------ DeleteObject
| |
| |---[dll]------ GetDC
| |
| |---[dll]------ DeleteDC
| |
| |---[dll]------ StretchBlt
| |
| |---[dll]------ FillRect
| |
| |---[dll]------ CreateSolidBrush
| |
| |---[dll]------ 发送命令_
| |
| |---[dll]------ API_SetCursor
| |
| |---[dll]------ GdiTransparentBlt
| |
| |---[dll]------ API_LoadCursor
| |
| |---[dll]------ SetWindowlong
| |
| |---[dll]------ GetWindowRect
======程序集_启动
| |
| |------ _启动子程序
| |
| |
======窗口程序集_主窗口
| |
| |------ _窗口_主窗口_创建完毕
调用的DLL命令:
.DLL命令 DeleteObject, 整数型, , , , 失败为0
.参数 hObject, 整数型
.DLL命令 GetDC, 整数型, , , , 获取指定窗口的设备场景。返回指定窗口的设备场景句柄,出错则为0
.参数 hwnd, 整数型
.DLL命令 DeleteDC, 整数型, , , , 删除专用设备场景或信息场景,释放所有相关窗口资源。不要将它用于GetDC函数取回的设备场景
.参数 hdc, 整数型
.DLL命令 StretchBlt, 整数型, , "StretchBlt"
.参数 目标hdc, 整数型
.参数 目标左边, 整数型
.参数 目标顶部, 整数型
.参数 目标宽度, 整数型
.参数 目标高度, 整数型
.参数 源hdc, 整数型
.参数 源左边, 整数型
.参数 源顶部, 整数型
.参数 源宽度, 整数型
.参数 源高度, 整数型
.参数 光栅运算, 整数型
.DLL命令 FillRect, 整数型, "user32", "FillRect", , 用指定的刷子填充一个矩形 非零表示成功,零表示失败。会设置GetLastError
.参数 hdc, 整数型, , 设备场景的句柄
.参数 lpRect, GP_矩形L, , RECT,对填充区域进行描述的一个矩形,采用逻辑坐标
.参数 hBrush, 整数型, , 欲使用的刷子的句柄;
.DLL命令 CreateSolidBrush, 整数型, "gdi32", "CreateSolidBrush", , 用纯色创建一个刷子 如执行成功,返回新刷子的一个句柄;否则返回零
.参数 crColor, 整数型, , 数字的RGB彩色;
.DLL命令 发送命令_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum, ; SendMessageByString是该函数的“类型security”声明形式 由具体的消息决定
.参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
.参数 信息值, 整数型, , 消息的标识符
.参数 参数一, 整数型, , 具体取决于消息
.参数 参数二, 整数型, , 具体取决于消息;
.DLL命令 API_SetCursor, 整数型, "user32", "SetCursor", , 将指定的鼠标指针设为当前指针 前一个指针的值
.参数 指针句柄, 整数型, , 要设为当前指针的一个指针的句柄。如设为零,表示不显示任何指针;
.DLL命令 GdiTransparentBlt, 整数型, "gdi32"
.参数 hdc1, 整数型
.参数 X1, 整数型
.参数 Y1, 整数型
.参数 W1, 整数型
.参数 H1, 整数型
.参数 Hdc2, 整数型
.参数 X2, 整数型
.参数 Y2, 整数型
.参数 W2, 整数型
.参数 H2, 整数型
.参数 Color, 整数型
.DLL命令 API_LoadCursor, 整数型, "user32", "LoadCursorA", , 从指定的模块或应用程序实例中载入一个鼠标指针。LoadCursorBynum是LoadCursor函数的类型security声明 执行成功则返回已载入的指针的句柄;零表示失败。在Windows ; 95 和Win16环境中,这个函数只能载入标准尺寸的图标
.参数 实例句柄, 整数型, , 一个DLL的模块句柄;或者一个实例句柄,指定包含了鼠标指针的可执行程序
.参数 鼠标指针标识, 整数型, , 作为一个字串,指定欲载入的指针资源。作为一个长整数值,指定欲载入的资源ID;或者设置一个常数,代表某幅固有系统指针。如装载的是一个固有系统指针,注意hInstance参数应设为零。在api32.txt文件中以前缀IDC_ 作为标志;
.DLL命令 SetWindowlong, , , "SetWindowLongA", , 设置窗口样式
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.参数 dwNewLong, 整数型
.DLL命令 GetWindowRect, , , "GetWindowRect", , 取窗口尺寸
.参数 hwnd, 整数型
.参数 rect, GP_矩形L
易语言卷帘工具箱源码,初始化卷帘,取星期,更换风格,搜索文件,线程搜索,修改底色,获取信息,取信息记录,取网络信息...
易语言仅用核心支持库实现对外部数据库的操作ADODB操作外部数据库例程源码,根据村组查询数据,数据库_读取数据到高级表格,数据库_保存高级表格数据到数据库,数据库_读取数据到列表...
易语言仅用核心支持库实现对外部数据库的操作ADODB操作外部数据库例程源码,根据村组查询数据,数据库_读取数据到高级表格,数据库_保存高级表格数据到数据库,数据库_读取数据到列表...
易语言仅用核心支持库实现对外部数据库的操作ADODB操作外部数据库例程源码,根据村组查询数据,数据库_读取数据到高级表格,数据库_保存高级表格数据到数据库,数据库_读取数据到列表...
易语言两个文件内存中通讯源码,子程序1,打开文件,生成空文件,生成重复字节文件,移到文件首,移到文件尾,移动读写位置,取读写位置,关闭文件,取文件长度,写出字节集,是否在文件尾,取错...
易语言易模块管理器Include目录源码,CopyTo_CreateProcessDebugInfo,CopyTo_CreateThreadDebugInfo,CopyTo_ExitThreadDebugInfo,CopyTo_ExitProcessDebugInfo,CopyTo_LoadDllDebugInfo,CopyTo_UnloadDllDebugInfo,CopyTo_ExceptionDebugInfo,Copy...
易语言卷帘工具箱源码,初始化卷帘,取星期,更换风格,搜索文件,线程搜索,修改底色,获取信息,取信息记录,取网络信息...
子程序1,打开文件,生成空文件,生成重复字节文件,移到文件首,移到文件尾,移动读写位置,取读写位置,关闭文件,取文件长度,写出字节集,是否在文件尾,取错误信息,读入字节集,读入2M字节集,清除文件缓冲区,读入文本,写出文本,写文本行,读入一行,插入字节集,取文件号...
初始化卷帘,取星期,更换风格,搜索文件,线程搜索,修改底色,获取信息,取信息记录,取网络信息...