如何得知程序是不是当前的活动程序？？？

Question

比如IE在不是活动程序后，就会暂停播放当前网页中背景音乐，等到重新成为被用户使用的活动程序后继续播放，那么它是如何知道自己是不是当前活动程序的呢？用VB该怎么做呢？？？

Answer 1

这是VB的问题,VB没有提供这样的事件!!

Answer 2

易如反掌的问题:
在form_activete  form_deactivete  之中监视一下
dim bActive as boolen
private sub form activate()
    bactive = true
end sub
provate sub form deactivate()
    bavtive = false
end sub

Answer 3

举个例子：
Public fflag As Boolean
Private Sub MDIForm_Load()
    fflag = False
End SubPrivate Sub numDept_Click()
    If fflag = True Then
        MsgBox "打开新窗口前，请关闭其他窗口", vbOKOnly, "警告"
    Exit Sub
    End If
        Load Dept_frm
        numDept.Enabled = False
End SubPrivate Sub numEmp_Click()
    If fflag = True Then
        MsgBox "打开新窗口前，请关闭其他窗口", vbOKOnly, "警告"
    Exit Sub
    End If
        Load Employee_frm
        numEmp.Enabled = False
End SubPrivate Sub numExit_Click()
    Unload Me
End SubPrivate Sub numSalary_Click()
    If fflag = True Then
        MsgBox "打开新窗口前，请关闭其他窗口", vbOKOnly, "警告"
    Exit Sub
    End If
        Load Salary_frm
        numSalary.Enabled = False
End Sub

Answer 4

//易如反掌的问题:
//在form_activete  form_deactivete  之中监视一下断章取义，你自己试试就知道了，嘿嘿

Answer 5

IsWindowEnabled VB声明 
Declare Function IsWindowEnabled Lib "user32" Alias "IsWindowEnabled" (ByVal hwnd As Long) As Long 
说明 
判断窗口是否处于活动状态（在vb里使用：针对vb窗体和控件，请用enabled属性） 
返回值 
Long，非零表示成功，零表示失败 
参数表 
参数 类型及说明 
hwnd Long，待检测窗口的句柄 Top
 

Answer 6

上面的不对，请看下面的！GetActiveWindow VB声明 
Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long 
说明 
获得活动窗口的句柄 
返回值 
Long，活动窗口的句柄，如没有窗口处于活动状态，则返回零值 

Answer 7

还有如下：Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Timer1_Timer()
    Dim a As Long
    a = GetForegroundWindow()
    Text1 = CStr(a)
    Text2 = Me.hwnd
    If a <> Me.hwnd Then SetForegroundWindow (Me.hwnd)
End SubGetForegroundWindow VB声明 
Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long 
说明 
获得前台窗口的句柄。这里的“前台窗口”是指前台应用程序的活动窗口 
返回值 
Long，前台窗口的句柄 
注解 
windows nt支持多个桌面，它们相互间是独立的。每个桌面都有自己的前台窗口
 
SetForegroundWindow VB声明 
Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long 
说明 
将窗口设为系统的前台窗口。这个函数可用于改变用户目前正在操作的应用程序 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
hwnd Long，带到前台的窗口 
注解 
不应随便使用它，因为一旦程序突然从后台进入前台，可能会使用户产生迷惑
 

Answer 8

可以使用GetForegroundWindow和Parent追踪判断是不是某个应用程序的子窗体。

Answer 9

使用API 获取系统活动窗口，
GetActiveWindow  便可知！