用GetActiveWindow
声明:
Public Declare Function GetActiveWindow Lib "user32" () As Long
调用例:(form1 is your form name)
Dim l As Long
l = GetActiveWindow
If l = form1.hWnd Then
MsgBox "It is me", vbOKOnly
End If
End Sub
声明:
Public Declare Function GetActiveWindow Lib "user32" () As Long
调用例:(form1 is your form name)
Dim l As Long
l = GetActiveWindow
If l = form1.hWnd Then
MsgBox "It is me", vbOKOnly
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货