如何使窗体检测到焦点是否切换.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

你 可 以 利 用 API函 数 SetCapture或 系 统 级 的 Hook函 数 (VB只 能 实 现 线 程 级 的 Hook函 数 )扑 捉 到 鼠 标 在 其 它 窗 口 的 动 作 。 但 按 照 你 的 要 求 ， 如 果 用 户 使 用 键 盘 将 当 前 窗 口 改 变 也 应 该 检 测 得 出 来 才 行 。 下 面 给 出 一 种 这 样 的 方 法 。 你 可 以 在 窗 体 上 放 一 个 Timer， 将 Interval设 为 100。 然 后 输 入 以 下 代 码 ： 
    Private Declare Function GetForegroundWindow Lib "user32" () As Long 
     
    Private Sub Timer1_Timer() 
     If GetForegroundWindow() <> hWnd Then Unload Me 
    End Sub 
    这 样 只 要 用 户 切 换 窗 口 ， 你 的 窗 口 就 会 自 动 被 关 闭 。 
<END>