vb通过findwindow获得窗口句柄后怎样判断该窗口是否为活动窗口（具有焦点）

来源：百度知道 编辑：UC知道 时间：2024/06/14 18:33:46
谢谢一楼的回答
这个问题已经搞定 用的和你一样的方法
我还有个问题要解决
就是如何锁定这个窗体
使其不能移动
我知道一个方法是移除系统菜单里的移动项
但这样就没法恢复了
我想用程序控制窗口是否可以移动
随时锁定随时移除
能帮我解决的话给你加分

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
'可以通过查看前景窗口是否为指定窗口判断
hwd1 = FindWindow("#32770", "QQ用户登录") '获得指定窗口句柄
hwd2 = GetForegroundWindow '获得前景窗口句柄
If hwd1 = hwd2 Then MsgBox "指定窗口为活动状态！" '判断是否相同

'可以通过ModifyMenu修改系统菜单来禁止移动，但并不适用所有窗体，有的窗体不具有系统菜单(BorderStyle=0)
'但通过子类化仍可以实现系统菜单具有的功能,新建窗体，添加command1，复制粘贴下段代码

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "M