窗口_置控件焦点 窗口_激活 两函数代码不完整功致功能不能实现，修改后如下

wjt741106

.版本 2
.子程序 窗口_激活, 整数型, 公开, 若函数调用成功，则返回原先活动窗口的句柄。若函数调用失败，则返回值为NULL   。可激活非本进程的窗口
.参数 窗口句柄, 整数型, 可空, 欲激活窗口的句柄
.局部变量 SelfThreadId, 整数型
.局部变量 ForeThreadId, 整数型
.局部变量 原活动句柄, 整数型
SelfThreadId ＝ GetCurrentThreadId ()  ' //获取本身的线程ID
ForeThreadId ＝ GetWindowThreadProcessId (窗口句柄, 0)  ' //根据窗口句柄获取线程ID
AttachThreadInput (ForeThreadId, SelfThreadId, 真)  ' //附加线程
原活动句柄 ＝ SetActiveWindow (窗口句柄)  ' 该函数激活一个窗口。该窗口必须与调用线程的消息队列相关联。
AttachThreadInput (ForeThreadId, SelfThreadId, 假)  ' //取消附加的线程
返回 (原活动句柄)


.版本 2
.子程序 窗口_置控件焦点, 逻辑型, 公开, 该函数对指定的窗口设置键盘焦点。 成功返回真，失败返回假；
.参数 控件句柄, 整数型
.局部变量 SelfThreadId, 整数型
.局部变量 ForeThreadId, 整数型
.局部变量 返回值, 逻辑型
SelfThreadId ＝ GetCurrentThreadId ()  ' //获取本身的线程ID
ForeThreadId ＝ GetWindowThreadProcessId (窗口句柄, 0)  ' //根据窗口句柄获取线程ID
AttachThreadInput (ForeThreadId, SelfThreadId, 真)  ' //附加线程
返回值 ＝ SetFocus (控件句柄)  ' 该函数对指定的窗口设置键盘焦点。该窗口必须与调用线程的消息队列相关
AttachThreadInput (ForeThreadId, SelfThreadId, 假)  ' //取消附加的线程
返回 (返回值)