易语言设置tab焦点源码

系统结构:初始化,高级表格导入句柄,窗口_枚举子窗口,表格数据,取窗口矩形_,注册热键_,FindWindowExA_文本,GetFocus,SendMessageStr,

======窗口程序集_启动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 初始化
           |  |
           |  |------ 高级表格导入句柄
           |  |
           |  |------ 窗口_枚举子窗口
           |  |
           |  |------ _标签1_反馈事件
           |  |
           |  |------ 表格数据
           |  |
           |  |------ _标签1_反馈事件备份
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   注册热键_
           |  |
           |  |---[dll]------   FindWindowExA_文本
           |  |
           |  |---[dll]------   GetFocus
           |  |
           |  |---[dll]------   SendMessageStr

调用的DLL命令:

.DLL命令 取窗口矩形_, 整数型, "user32", "GetWindowRect", , ,
    .参数 窗口句柄, 整数型
    .参数 矩形区域, RECT

.DLL命令 注册热键_, 整数型, "user32.dll", "RegisterHotKey", , ,
    .参数 窗口句柄, 整数型, , hWnd
    .参数 热键id, 整数型, , id
    .参数 功能键, 整数型, , fsModifiers
    .参数 主热键, 整数型, , vk

.DLL命令 FindWindowExA_文本, 整数型, "user32", "FindWindowExA", 公开
    .参数 父窗口句柄, 整数型
    .参数 子窗口, 整数型
    .参数 类名, 文本型
    .参数 标题, 文本型

.DLL命令 GetFocus, 整数型, "user32", "GetFocus", , 获得拥有输入焦点的窗口的句柄  拥有焦点的那个窗口的句柄。如没有窗口拥有输入焦点，则返回零

.DLL命令 SendMessageStr, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型