易语言例程源码,易语言工具提示类模块源码

易语言工具提示类模块源码

系统结构:SendMessageA,创建,添加工具提示,删除工具提示,取提示背景颜色,置提示背景颜色,取提示文本颜色,置提示文本颜色,更新提示文本,置提示延时,销毁,取回句柄,移除工具提示,置入句柄,置提示宽度,取控件总数,取所有控件句柄,取提示文本,CreateWindowExA,SendMessageA_TOOLINFO,SendMessageA,GetClientRect,DestroyWindow,SetWindowPos,

======窗口程序集1
| |
| |------ __启动窗口_创建完毕
| |
| |------ _列表框1_鼠标位置被移动
| |
| |------ _按钮2_被单击
| |
| |------ _按钮1_被单击
| |
| |
======调用的Dll
| |
| |---[dll]------ SendMessageA
======程序集
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======工具提示类
| |
| |------ _初始化
| |
| |------ 创建
| |
| |------ 添加工具提示
| |
| |------ 删除工具提示
| |
| |------ 取提示背景颜色
| |
| |------ 置提示背景颜色
| |
| |------ 取提示文本颜色
| |
| |------ 置提示文本颜色
| |
| |------ 更新提示文本
| |
| |------ 置提示延时
| |
| |------ 销毁
| |
| |------ 取回句柄
| |
| |------ 移除工具提示
| |
| |------ 置入句柄
| |
| |------ 置提示宽度
| |
| |------ 取控件总数
| |
| |------ 取所有控件句柄
| |
| |------ 取提示文本
| |
| |------ _销毁
| |
| |
======调用的Dll
| |
| |---[dll]------ CreateWindowExA
| |
| |---[dll]------ SendMessageA_TOOLINFO
| |
| |---[dll]------ SendMessageA
| |
| |---[dll]------ GetClientRect
| |
| |---[dll]------ DestroyWindow
| |
| |---[dll]------ SetWindowPos

调用的DLL命令:

.DLL命令 SendMessageA, 整数型, , "SendMessageA"
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型

调用的DLL命令:

.DLL命令 CreateWindowExA, 整数型, "user32.dll", "CreateWindowExA"
.参数 dwExStyle, 整数型
.参数 lpClassName, 文本型
.参数 lpWindowName, 文本型
.参数 dwStyle, 整数型
.参数 x, 整数型
.参数 y, 整数型
.参数 nWidth, 整数型
.参数 nHeight, 整数型
.参数 hWndParent, 整数型
.参数 hMenu, 整数型
.参数 hInstance, 整数型
.参数 lpParam, 整数型

.DLL命令 SendMessageA_TOOLINFO, 整数型, "user32.dll", "SendMessageA"
.参数 hWnd, 整数型
.参数 Msg, 整数型
.参数 wParam, 整数型
.参数 lParam, TOOLINFO

.DLL命令 SendMessageA, 整数型, "user32.dll", "SendMessageA"
.参数 hWnd, 整数型
.参数 Msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 GetClientRect, , "user32.dll", "GetClientRect"
.参数 hwnd, 整数型
.参数 lpRect, RECT, 传址

.DLL命令 DestroyWindow, 整数型, "user32.dll", "DestroyWindow"
.参数 hWnd, 整数型

.DLL命令 SetWindowPos, 整数型, , "SetWindowPos"
.参数 hwnd
.参数 hWndInsertAfter
.参数 x
.参数 y
.参数 cx
.参数 cy
.参数 wFlags