易语言真彩工具条模块例程源码,易语言闪电自绘真彩工具条模块源 [db:版本]

易语言闪电自绘真彩工具条模块源码

系统结构:工具条按钮被单击,取低16位,取高16位,MyWinProc,置被单击事件,刷新显示,创建,添加工具条按钮,全部重画,On_MouseMove,On_LBBOTTONUP,SetWindowLong,BeginPaint,EndPaint,CallWindowProc,InvalidateRect_整型,SendMessage,TrackMouseEvent,

======程序集1
| |
| |------ _启动子程序
| |
| |
======窗口程序集1
| |
| |------ _窗口1_创建完毕
| |
| |------ 工具条按钮被单击
======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 取低16位
| |
| |------ 取高16位
| |
| |
======自绘真彩工具条
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ MyWinProc
| |
| |------ 置被单击事件
| |
| |------ 刷新显示
| |
| |------ 创建
| |
| |------ 添加工具条按钮
| |
| |------ 全部重画
| |
| |------ On_MouseMove
| |
| |------ On_LBBOTTONUP
| |
| |
======调用的Dll
| |
| |---[dll]------ SetWindowLong
| |
| |---[dll]------ BeginPaint
| |
| |---[dll]------ EndPaint
| |
| |---[dll]------ CallWindowProc
| |
| |---[dll]------ InvalidateRect_整型
| |
| |---[dll]------ SendMessage
| |
| |---[dll]------ TrackMouseEvent

调用的DLL命令:

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
.参数 hWnd
.参数 nIndex
.参数 hNewLong

.DLL命令 BeginPaint, 整数型, "user32", "BeginPaint", , 准备一个画图窗 返回设备句柄
.参数 hwnd, 整数型
.参数 lpPaint, PAINTSTRUCT

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

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
.参数 Address
.参数 hWnd
.参数 Msg
.参数 wParam
.参数 lParam

.DLL命令 InvalidateRect_整型, 整数型, "user32", "InvalidateRect", , 这个函数屏蔽一个窗口客户区的全部或部分区域。这会导致窗口在事件期间部分重画 非零表示成功，零表示失败
.参数 hwnd, 整数型, , 待屏蔽窗口的句柄
.参数 lpRect, 整数型, , RECT，用于描述待屏蔽矩形部分的一个矩形结构。可用InvalidateRectBynum函数，同时将lpRect设为零（Long数据类型），从而屏蔽（或禁用）整个窗口
.参数 bErase, 整数型, , TRUE（非零）导致指定的区域在重画前先删除;

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

.DLL命令 TrackMouseEvent, 整数型, "user32.dll", "TrackMouseEvent"
.参数 lpEventTrack, 鼠标动作结构