易语言窗口模板源码 [db:版本]

窗口模板

系统结构:组合父菜单图片,创建父菜单,创建子菜单,菜单滚动,鼠标是否在指定窗口内,执行子菜单,API_SetCursorPos,API_SetCapture,API_ReleaseCapture,API_GetCursorPos,API_GetWindowRect,API_PtInRect,API_CallWindowProc,API_SendMessage,API_GetWindowDC,API_SetWindowLong,API_GetWindowWord,DLL命令1,

======窗口程序集1
| |
| |------ 组合父菜单图片
| |
| |------ _重画菜单
| |
| |------ _重画画板背景
| |
| |------ 创建父菜单
| |
| |------ 创建子菜单
| |
| |------ _初始化菜单
| |
| |------ 菜单滚动
| |
| |------ _标题标签_鼠标左键被按下
| |
| |------ _调节标签_鼠标左键被按下
| |
| |------ _关闭按钮_被单击
| |
| |------ _隐藏按钮_被单击
| |
| |------ _时钟1_周期事件
| |
| |------ 鼠标是否在指定窗口内
| |
| |------ _父菜单标签1_鼠标位置被移动
| |
| |------ _父菜单标签1_鼠标左键被按下
| |
| |------ _父菜单标签1_鼠标左键被放开
| |
| |------ _子菜单标签1_鼠标位置被移动
| |
| |------ _子菜单标签1_鼠标左键被按下
| |
| |------ _子菜单标签1_鼠标左键被放开
| |
| |------ 执行子菜单
| |
| |------ __启动窗口_创建完毕
| |
| |------ __启动窗口_首次激活
| |
| |
======调用的Dll
| |
| |---[dll]------ API_SetCursorPos
| |
| |---[dll]------ API_SetCapture
| |
| |---[dll]------ API_ReleaseCapture
| |
| |---[dll]------ API_GetCursorPos
| |
| |---[dll]------ API_GetWindowRect
| |
| |---[dll]------ API_PtInRect
| |
| |---[dll]------ API_CallWindowProc
| |
| |---[dll]------ API_SendMessage
| |
| |---[dll]------ API_GetWindowDC
| |
| |---[dll]------ API_SetWindowLong
| |
| |---[dll]------ API_GetWindowWord
| |
| |---[dll]------ DLL命令1

调用的DLL命令:

.DLL命令 API_SetCursorPos, 整数型, "user32.dll", "SetCursorPos", , 置鼠标位置
.参数 x, 整数型
.参数 y, 整数型

.DLL命令 API_SetCapture, 整数型, "user32.dll", "SetCapture", , 俘获鼠标
.参数 hwnd, 整数型, , 要接收所有鼠标输入的窗口的句柄

.DLL命令 API_ReleaseCapture, 整数型, "user32.dll", "ReleaseCapture", , 释放鼠标

.DLL命令 API_GetCursorPos, 整数型, "user32", "GetCursorPos"
.参数 lpPoint, POINTAPI

.DLL命令 API_GetWindowRect, 整数型, "user32", "GetWindowRect"
.参数 hwnd, 整数型
.参数 lpRect, RECT

.DLL命令 API_PtInRect, 整数型, "user32.dll", "PtInRect"
.参数 lpRect, RECT
.参数 x, 整数型
.参数 y, 整数型

.DLL命令 API_CallWindowProc, 整数型, , "CallWindowProcA"
.参数 lpPrevWndFunc, 整数型
.参数 hwnd, 整数型
.参数 Msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 API_SendMessage, , , "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型, 传址

.DLL命令 API_GetWindowDC, 整数型, , "GetWindowDC"
.参数 hwnd, 整数型

.DLL命令 API_SetWindowLong, 整数型, , "SetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.参数 dwNewLong, 子程序指针

.DLL命令 API_GetWindowWord, 整数型, , "GetWindowWord"
.参数 hwnd, 整数型
.参数 nIndex, 整数型

.DLL命令 DLL命令1